Textdatei zerlegen

[marabu]

Beachte bitte, dass mein Code-Beispiel eine minimale Konsolenanwendung war. In einer GUI-Anwendung musst du tatsächlich AssignFile() und natürlich anschließend Reset() und CloseFile() benutzen:

Delphi-Quellcode:

Procedure DAT2D.LoadFromFile(filename : string);
var
  i   : Integer;
  x, y: Extended;
  F   : TextFile;
begin
  DecimalSeparator := '.'; // adjust output
  AssignFile(F, filename);
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F, i, x, y);
    AddOrReplace(x, y, i);
  end;
  CloseFile(F);
end;

Zur Erinnerung: das funktioniert nur, wenn deine Daten einen Dezimalpunkt verwenden! Grund dafür ist, dass die Standard-I/O-Routinen den Punkt fest eingebaut haben - Standard halt.

marabu