Einzelnen Beitrag anzeigen

Ceruso

Registriert seit: 11. Jan 2021
5 Beiträge
 
#6

AW: Hallo suche Hilfe auf Stundenbasis in Ludwigsburg Delphi XE5

  Alt 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
  Mit Zitat antworten Zitat