Hallo,
was ich schreibe bezieht sich auf Delphi. Ob das so unter Lazarus geht, weiß ich nicht, denke aber schon.
Du kannst die Edits in einem "array of TEdit" verwalten und dieses in einer Schleife durchgehen:
Delphi-Quellcode:
var EdtArray: array of TEdit;
SetLength(EdtArray, 22);
for i := 0 to Length(EdtArray) - 1 do
EdtArray[i].Text := 'Hallo';
Du kannst jedoch auch
FindComponent verwenden:
Delphi-Quellcode:
for i := 1 to 22 do
(FindComponent('Edit' + IntToStr(i)) as TEdit).Text := 'Hallo';
Oder so ähnlich.
Grüße, Matze