If-Then oder Case-else

[Klaus01]

Hallo,

wenn Du diesen Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i, ii: Integer; 
begin 
  i:=0; 
  for ii := 1 to 3 do 
  begin 
    if strtoint(TEdit(FindComponent('Edit'+ IntToStr(ii))).text) < 15 then 
    i:=i+1 
  end; 
  if i=1 then Label1.Caption := 'Stufe 1' 
  else if i>1 then Label1.Caption := 'Stufe 2'; 
end;

in Deinem Struktogramm beshrieben hast, dann fehlt Dir zumindest
die for Schleife (weil Du das ja für 3 Editfelder/Räume überprüfen willst).

Grüße
Klaus