Registriert seit: 11. Jan 2021
5 Beiträge
|
AW: Hallo suche Hilfe auf Stundenbasis in Ludwigsburg Delphi XE5
12. Jan 2021, 05:44
Delphi-Quellcode:
LIBRARY Flr_Ein;
USES SysUtils,Classes;
TYPE
TWert = RECORD
Gueltig : BOOLEAN;
Wert : DOUBLE;
END;
CONST
MaxEHT = 7200;
MaxEHTSP = 7200;
TYPE
[B]STR255 [/B] = Ansistring;{STRING[255];}
PEHTSpalte = ^TEHTSpalte;
TEHTSpalte = ARRAY[0..MaxEHTSP] OF DOUBLE;
TYPE
TFlrKopf = RECORD
Bez : STR255; {Bezeichnung}
EHT : STR255; {Dateiname EHT}
Bea : STR255; {Bearbeiter}
Bem : STR255; {Bemerkung}
Dat : STR255; {Datum/Uhrzeit}
DFl : BOOLEAN; {Flag Stoessel gelesen}
DRS : TWert; {Durchmesser Rollenstoessel}
Wkl : TWert; {Bezugswinkel}
Spg : TWert; {1=Gespiegelt}
Fkt : TWert; {Bewertungsfaktor}
Inch : BOOLEAN; {Flag fuer Masssystem}
Norm : BOOLEAN; {Flag, Daten normal auf T-Bahn}
END;
TYPE
TExtFlrDat = ARRAY[0..255+4] OF BYTE;
.
.
.
.FUNCTION HoleZeile (VAR Dat : TDatei;
VAR Zeile : TZeile) : BOOLEAN;
CONST
MaxZL = 500;
VAR
[B] B [/B] : BYTE;
CR,LF : BOOLEAN;
I,J,E : INTEGER;
HStr : STR255;
Geändert von mkinzler (12. Jan 2021 um 07:51 Uhr)
Grund: Delphi-Tag eingefügt
|
|
Zitat
|