editbox

[Blackheart]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
begin
    for i:= 1 to 20 do
    if StrToInt(TEdit(FindComponent('Edit'+IntToStr(i))).Text) < 5 then
    inc(j);
    if j = 7 then ShowMessage('In '+IntToStr(j)+' Edits ist der Wert kleiner als vier');
end;