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