Datenimport von Zahlen einer seltsamen Datei

[DeddyH]

Auf den ersten Blick drängt sich mir den Verdacht auf, dass es sich um eine typisierte Datei handelt. Versuch es mal so (ungetestet):

Delphi-Quellcode:

type TBetrag = string[5];

procedure Einlesen;
var BetrArray: array of TBetrag;
    Betr: TBetrag;
    f: file of TBetrag;
begin
  SetLength(BetrArray,0);
  AssignFile(f,'Geld.txt');
  {$I-}
  Reset(f);
  {$I+}
  if IOResult = 0 then
    begin
      while not EOF(f) do
        begin
          read(f,Betr);
          SetLength(BetrArray,Length(BetrArray) + 1);
          BetrArray[Pred(Length(BetrArray))] := Betr;
        end;
      CloseFile(f);
    end;
end;