Das erste was mir auffällt ist
Zitat von
unskilled:
Delphi-Quellcode:
for q := 1 to 24 do List.add((FindComponent('edit'+inttostr(q)) as TEdit).text);
//for q := 1 to 16 do List.add(tcombobox((FindComponent('combobox'+inttostr(q))).text);
//for q:= 25 to 39 do List.Add(tcombobox(findcomponent('combobox'+inttostr(q))).text);
...
for w := 1 to 24 do (FindComponent('Edit' + IntToStr(w)) as TEdit).Text := List[w-1];
for q:= 25 to 39 do tcombobox(findcomponent('combobox'+inttostr(q))).text := List[q];
Du hast 25 bis 39 auskommentiert.