Procedure beenden

[himitsu]

wozu denn das weiterzählen selber übernehmen?

Delphi-Quellcode:

case Pos of
  0 : begin
    button1.Top :=  120;
    button1.Left := 8;
  end;
  1 : begin
      ...
  end;
  ...
  4 : begin
      ...
  end;
end;
Pos := (Pos + 1) mod 5;




procedure TForm1.FormCreate(Sender: TObject);
begin
  pos := 0;
end;

oder in "länger" (für 1 bis 5)

Delphi-Quellcode:

case Pos of
  ..
end;
Inc(Pos);
if Pos > 5 then Pos := 1;

oder

Delphi-Quellcode:

case Pos of
  ..
end;
if Pos < 4 then Inc(Pos)
else Pos := 1;

oder
oder
oder
...