Thema: Delphi dynamischen Array laden

Einzelnen Beitrag anzeigen

Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#15

Re: dynamischen Array laden

  Alt 2. Nov 2006, 10:53
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!
  Mit Zitat antworten Zitat