editbox

[craash]

spontan würd ich das so lösen

Delphi-Quellcode:

var editfelder: array [1..20] of TEdit = (edit1, edit2, ...);

procedure deinevent;
var i,zaehler:integer;
begin
zaehler:= 0;

for i:=1 to 20 do
  begin
  if ( strtoint(editfelder[i].text) < 5 ) then zaehler:= zaehler +1;
  end;

if zaehler >=7 then showmessage('bla');

end;