Textdatei ohne Trennzeichen verarbeiten

[Mavarik]

Oder nimm einfach:

Delphi-Quellcode:

{$A1}
type
  TAdresse = record
               Kundennummer : String[5];
               Kundenname   : String[18];
               Strasse      : String[13]; 
             end;

var
  Zeile : String;
  f     : Textfile;
  Adresse : TAdresse;
begin
  While not(eof(f)) do
    begin
      readln(f,Zeile);
      with Adresse do
        begin
          Kundennummer := Copy(Zeile,1,5);
          Kundenname   := Copy(Zeile,6,18);
          Strasse      := Copy(Zeile,39,Sizeof(Strasse)-1); // oder so
        end;
    end;
end;

Grüsse Frank