try bei for-Schleife

[shmia]

So geht's auch:

Delphi-Quellcode:

for i := 1 to 44 do begin 
  s := TEdit(FindComponent('Edit' + inttostr(i))).Text; 
  u := StrToIntDef(s, 0);  // wenn Editfeld leer, dann Wert 0 als Default nehmen
end;