Mit If...Then geht es im Prinzip ganz einfach:
Delphi-Quellcode:
procedure TForm4.Button11Click(Sender: TObject);
var i:integer;
begin
erg:=strtoint(edit1.text)+zahl1;
circle1a.visible:=false;
circle2a.visible:=false;
circle3a.visible:=false;
circle4a.visible:=false;
circle5a.visible:=false;
circle6a.visible:=false;
circle7a.visible:=false;
circle8a.visible:=false;
circle9a.visible:=false;
circle10a.visible:=false;
for i := 1 to erg do
if i=1 then circle1a.visible:=true
else if i=2 then circle2a.visible:=true
else if i=3 then circle3a.visible:=true
else if i=4 then circle4a.visible:=true
else if i=5 then circle5a.visible:=true
else if i=6 then circle6a.visible:=true
else if i=7 then circle7a.visible:=true
else if i=8 then circle8a.visible:=true
else if i=9 then circle9a.Visible:=true
else if i=10 then circle10a.Visible:=true
end;
Damit kann ich ohne viel Schreibarbeit viele Varianten erstellen, indem nur der Start- und Endwert der For-Schleife geändert wird.