dynamischen Array laden

[c64ranni]

Hallo!
I würds einfach so machen

Delphi-Quellcode:

procedure Speichern(Sender: TObject); 
var i, j: integer; 
slDaten: TStringList; 
begin 
slDaten := TStringList.Create; 
slDaten.Add(InttoStr(HIGH(Oberarray)=);
for i := 0 to high(Oberarray) do 
for j := 0 to 132 do 
slDaten.Add((oberarray[i, j])); 
slDaten.SaveToFile('termine'); 
slDaten.Free; 
end;

Damit hasch jetzt in der ersten Zeile der Stringlist die Länge stehen.
Beim Laden kannst die die Erste Zeile auslesen und dann hast den Count.
Aber ich schätze mal, dass es sich mit dem
slDaten.Count div 133 auch ausgehen müssten.


edit: Sorry hab das INttoStr vergessen.
Wenn du ein dynamisches Array hast, dann ist die Laderoutine von dir aber noch nicht fertig.
Du musst noch die Länge des dynamischen Arrays festelgen.