Na irgendwie so (anhand deiner obigen Beschreibung):
Delphi-Quellcode:
var Datei:Tfilestream;
anzahl,wert:integer;
i,j:integer;
koord:array of array[1..3] of double;
begin
Datei:=TFileStream.create('xyz.dat',fmopenread);
try
Datei.read(anzahl,4);
setlength(koord,anzahl);
for i:=0 to anzahl-1 do for j:=1 to 3 do
begin
Datei.read(wert,4);
koord[i,j]:=toDouble(wert);
end
finally
Datei.free;
end;
end;
oder ist der Text da direkt so drin enthalten
