Hi!
Schieb doch einfach ne temporäre String-Variable dazwischen:
Delphi-Quellcode:
AssignFile (Datei, DateiName);
Reset (Datei);
ReadLn (Datei, Temp); // Zeile 1 ignorieren
for i := 1 To Max do begin
ReadLn (Datei, zeile1); // Bezeichnung
ReadLn (Datei, zeile2); // +1 entfernt, da Betrag direkt in der nächsten Zeile kommt
Val(Zeile2, int_Betrag, ErrCode);
end;
Deklarationen:
var
ErrCode, int_Betrag: Integer;
Temp: String;
Arbeitest Du auch mit ungeraden Beträgen (mit Cent-Angaben) soltest
Du int_Betrag als Real definieren.
Hoffe, dir geholfen zu haben.
Gruß, Andy