Hilfe bei Algorithmus

[sirius]

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