Hi, ich bin selbst neu in Delphi, aber ich denke, dass ich das schaffe.
Übernehme keine Garantie
Also ich würde radiobutton erstmal public deklarieren:
Delphi-Quellcode:
...
end;
var
Form1: TForm1;
radiobutton, zahl: Integer;
implementation
{$R *.dfm}
...
Dann würde ich bei jedem RadioButton ne If-Clause machen:
Delphi-Quellcode:
If RadioButton1.Checked then radiobutton := 1;
If RadioButton2.Checked then radiobutton := 2;
...
Delphi-Quellcode:
procedure TForm1.BtnPruefeClick(Sender: TObject);
begin
// Hier zeile entfernt
if radiobutton < zahl then
LblZahl.Caption := IntToStr(radiobutton) + '? Nee, größer'
else
if radiobutton > zahl then
LblZahl.Caption := IntToStr(radiobutton) + '? Nee, kleiner'
else
begin
LblZahl.Caption := 'Richtig! Es ist die ' + IntToStr(zahl);
ShowMessage('Alter, du hast es voll drauf!');
end;
end;
Müsste so eigentlich klappen.