Hallo suche Hilfe auf Stundenbasis in Ludwigsburg Delphi XE5

[Ceruso]

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;