sorry hattest recht, hatte was übersehen, so sollte es gehen...
Delphi-Quellcode:
procedure TFStartseite.LadenClick(Sender: TObject);
var
i, j, zeile: integer;
slDaten: TStringList;
begin
slDaten := TStringList.Create;
slDaten.LoadFromFile('termine');
zeile:=0;
setlength(slDaten,slDaten.count); <--- nachtrag, arraygröße stzen!
for i := 0 to slDaten.count-1 do <-- hier ist die lösung!!!!
begin
for j := 0 to 132 do
begin
Oberarray[zeile, j] :=slDaten[i];
end;
inc(zeile); '<----------
end;
slDaten.Free;
end;
[edit] arraygröße!