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
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