Textdatei ohne Trennzeichen verarbeiten

[Reinhard Kern]

Hallo,
eine nette Variante, Urpascal und gut wartbar, da die Definition im Record steckt:

Delphi-Quellcode:

type
  TAdresse = record case boolean of
               false : (DataString : string [maxdatalength]);
               true:   (KNummer : array [1..5] of char;
                        Kname   : array [1..18] of char;
                        KStrasse : array [1..13]) of char); 
             end;

var
  f     : Textfile;
  Adresse : TAdresse;
  Kundennummer : string;
begin
  While not(eof(f)) do
    begin
      readln(f,Adresse.DataString);
      Kundennummer := StrPLCopy (Adresse.KNummer,High(Adresse.KNummer));
          {...}
    end;
end;

Setztz voraus, dass keine NUL-Char in der Zeile, wäre auch seltsam.

Gruss Reinhard