Radiobutton-abfrage

**Tailer**

Hi,

ich habe ein kleines Problem und hoffe, das mir jmd helfen kann, weil ich in der SuFu nichts gefunden habe.
Ich habe mit Delphi eine kleinen taschenrechner gebastelt. Dieser Funktioniert auch sehr gut. Jetzt habe ich mir überlegt, das ganze über RadioButtons zu gestallten, da man hier nur einen "berechnen" button benötigt und die ganzen funktionen in die "Auswahlliste"packen kann.

Jetzt zu meiner frage:
Wie kann ich die abfrage gestallten, welcher Punkt gewählt wurde und somit, welche Funktion wird ausgeführt.

Mein erster gedanke war für jeden Button eine extra If-Abfrage zu schreiben, da er dann aber bei der ersten schon feststellt, das diese nicht erfüllt ist sind somit die anderen auch falsch.

das habe ich bisher

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.Explode(var a: TStrArray; Border, S: string): Integer;

var

  S2: string;

begin

  Result  := 0;

  S2 := S + Border;

  repeat

    SetLength(A, Length(A) + 1);

    a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);

    Delete(S2, 1,Length(a[Result] + Border));

    Inc(Result);

  until S2 = '';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var zahl1, zahl2, erg : Double;

begin

  Anz:=Explode(A,';',Edit1.Text);

  zahl1:= StrToFloat (A[0]);

  zahl2:= StrToFloat (A[1]);

  If RadioButton1.Checked = true then begin erg:=zahl1 / zahl2; end

  else begin erg:= zahl1 * zahl2; end;

  Label1.Caption:= '= '+FloatToStr(erg);

end;

end.

würd mich über Antworten sehr freuen.

MFG Patrick

Radiobutton-abfrage

Radiobutton-abfrage

Forumregeln