Hallo Fridolin,
ein dynamisches Array beginnt mit Index 0 genau wie die Items einer Listbox. Das hier:
Delphi-Quellcode:
y:=1;
sch:=0;
for i:=1 to dstnum do begin
dstlistar[y]:=dstlist.Items.Strings[sch];
y:=y + 1;
sch:=sch + 1;
end;
würde ich so schreiben:
Delphi-Quellcode:
for i := 0 to dstnum - 1 do
begin
dstlistar[i] := dstlist.Items.Strings[i];
end;
Edit: Da es afaik
i-1 heißen muss (weil
sch um 1 niedriger ist) und ich bei 1 anfange, da er auf den vorigen Index zugreifen möchte, sende ich meinen Beitrag auch ab.
ABer ich muss zugeben, verstanden habe ich noch nicht, was der Code soll.
Edit 2: Achso 1:1 übertragen, dann hat Klaus recht, hab's angepasst.