wenn Du den Abschnitt nur behandeln willst wenn Limit gewählt ist:
Delphi-Quellcode:
procedure Tfenster_frm.limit_radiobtnClick(Sender: TObject);
var
limit : integer;
begin
IF limit_radiobtn.Checked THEN
begin
limit := StrToInt(limit_edt.Text);
IF limit = punkte_2 THEN
ShowMessage('Winner ist (game2_edt.Text)')
ELSE
begin // hier muss kein begin+end, ist aber übersichtlicher nach dem else
IF limit = punkte_1 THEN
ShowMessage('Winner ist (game1_edt.Text)');
end;
END;
limit := 0;
end;
Wenn der Abschnitt immer durchlaufen werden soll:
Delphi-Quellcode:
procedure Tfenster_frm.limit_radiobtnClick(Sender: TObject);
var
limit : integer;
begin
IF limit_radiobtn.Checked THEN
limit := StrToInt(limit_edt.Text);
else
limit := 12345; // sonst inst unklar, welcher Wert in Limit steht!
IF limit = punkte_2 THEN
...
stahli