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.