Hallo,
gibt es eigentlich eine möglichkeit diesen Quellcode zu verkürzen??
Ein Schleife??
Mir fällt nämlich nichts ein....
Delphi-Quellcode:
procedure TForm1.KIClick(Sender: TObject);
begin
// Check von allen entfernen
ki_SehrLeicht.Checked:=false;
ki_Leicht.Checked:=false;
ki_normal.Checked:=false;
ki_schwer.Checked:=false;
ki_sehrschwer.Checked:=false;
// Check beim Sender machen
if sender=ki_SehrLeicht then ki_SehrLeicht.Checked:=true
else if sender=ki_leicht then ki_Leicht.Checked:=true
else if sender=ki_normal then ki_normal.Checked:=true
else if sender=ki_schwer then ki_schwer.Checked:=true
else ki_sehrschwer.Checked:=true;
end;
Es handelt sich hierbei um ein TMenueItem das fünf unter TMenueItem hat.
Der Benutzer soll einfach einstellen können wie stark die KI ist,
vor die gewählte Schwierigkeit kommt ein Hackerl.....
Ferby