diff options
Diffstat (limited to 'fhunit.pas')
-rw-r--r-- | fhunit.pas | 40 |
1 files changed, 20 insertions, 20 deletions
@@ -23,41 +23,41 @@ type _mZeit: tZeit; _uZeit: extended; _mW: tMessWerte; - procedure setzeUZeit; inline; - procedure setzeZeit; inline; - function rMW(mG: tMessGroesze): extended; inline; + procedure setzeUZeit; + procedure setzeZeit; + function rMW(mG: tMessGroesze): extended; public constructor create; destructor destroy; override; - function lade(s: string): boolean; inline; - function schreibe: string; inline; + function lade(s: string): boolean; + function schreibe: string; property zeit: extended read _uZeit; property mW[mG: tMessGroesze]: extended read rMW; - procedure dump(p: pExtended); inline; - procedure pmud(p: pExtended); inline; - function size: longint; inline; + procedure dump(p: pExtended); + procedure pmud(p: pExtended); + function size: longint; end; tMessPunkteListe = class private inhalt: tFPList; - function rItem(i: longint): tMessPunkt; inline; - function bisekt(zeit: extended): longint; inline; + function rItem(i: longint): tMessPunkt; + function bisekt(zeit: extended): longint; public constructor create; destructor destroy; override; - function add(s: string): boolean; inline; - function append(s: string): boolean; inline; + function add(s: string): boolean; + function append(s: string): boolean; function last: tMessPunkt; function count: longint; property items[i: longint]: tMessPunkt read rItem; default; function minMaxY(startZeit,stopZeit: extended): tMessWerteExtPoints; - procedure dump(p: pointer); inline; - procedure pmud(p: pointer; version,len: longint); inline; - function size: longint; inline; + procedure dump(p: pointer); + procedure pmud(p: pointer; version,len: longint); + function size: longint; end; tMessPunkteUpdateThread = class(tThread) @@ -70,7 +70,7 @@ type nZeit: extended; _tNum,_tAnz: longint; procedure uebernehmen; - procedure nZeitNullen; inline; + procedure nZeitNullen; public beenden: boolean; constructor create(besitzer: tMessPunkte; tNum,tAnz: longint); @@ -99,8 +99,8 @@ type function mehrInfos(was: tMessGroeszenSet): string; end; -procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); inline; -procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); inline; +procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); +procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); function strZuMZeit(s: string; out mZ: tZeit): boolean; const @@ -735,7 +735,7 @@ end; // allgemeine Funktionen ******************************************************* -procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); inline; +procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); var mi,se,hu: word; begin @@ -744,7 +744,7 @@ begin mZ[zgMin10]:=round(mi/10); end; -procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); inline; +procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); begin uZ:= encodeDate(mZ[zgJahr],mZ[zgMonat],mZ[zgTag])+ |