summaryrefslogtreecommitdiff
path: root/fhunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'fhunit.pas')
-rw-r--r--fhunit.pas40
1 files changed, 20 insertions, 20 deletions
diff --git a/fhunit.pas b/fhunit.pas
index 10c8ca7..04dd1bf 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -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])+