Mit errechnetem Wert weiter rechnen

Computer: Software & Programmierung Delphi & Pascal
#1

Servus,

hab nochmal ne Frage. Wahrscheinlich kein großes Kino, aber ich habe keinen Schimmer wie es funktioniert.
Wie kann ich mit einem Wert weiter rechnen den mir das Programm in einem Edit/Panel ausgibt?
Also als Beispiel mal folgendes.

(Edit1Eingabefeld) 3 + (Edit2Eingabefeld) 4 = (Edit3Ausgabefeld) 7

Soweit kein Thema. Will ich mit der 7 weiterrechnen, setze ich Variablen:

A := StrtoInt(Form1.Edit1.Text);
B := StrtoInt(Form1.Edit2.Text);

AB := A + B
Z :=3

Dann könnte ich einfach folgendes machen:
Edit4.Text:= IntToStr (AB * Z);

Wodurch mir mein Edit4Ausgabefeld ein Ergebnis von 21 liefern würde.
Soweit alles klar.
Aber was kann ich tun, wenn z.B. Z abhängig ist von anderen Faktoren, wie z.B. unterschiedlich aktivierten RadioButtons?
Also mir schwebt irgendwie im Kopf vor, entweder mit dem Wert eines Ausgabefeldes weiter zu rechnen oder eine „if (and) then“ Funktion als Variable zu setzen. Wie kann ich das machen?

Würde mich über Hilfe mal wieder sehr freuen!

#2

Moin,

ganz genau habe ich nicht verstanden, wass du machen willst.

Also entweder soll aus den Eingaben etwas berechnet und ausgegeben werden (zB die Summe der Zahlen in Edit1 und Edit2) oder … was?

Soll in Abh. der Radiobuttons das Ergebnis noch mit Z multipliziert werden oder was?

Dann wäre das eine mögliche Lösung:

A := StrtoInt(Form1.Edit1.Text);
B := StrtoInt(Form1.Edit2.Text);
Z :=3

AB := A + B

if Radiobutton1.Checked then
 // Ausgabe Summe \* Z
 Edit4.Text:= IntToStr (AB \* Z)
else
 // Ausgabe Summe 
 Edit4.Text:= IntToStr (AB);

Das ganze kann man auch in eine Funktion packen:

Function Berechne(Z:Integer):String;
var
 A,B: Integer;
begin
 A := StrtoInt(Form1.Edit1.Text);
 B := StrtoInt(Form1.Edit2.Text);
 if Radiobutton1.Checked then
 Result := IntToStr ( (A+B) \* Z)
 else
 Result := IntToStr (A+B);
end;

Und im Programm könnte irdendwo der Aufruf stehen:

 Edit4.Text := Berechne(3);

Wahrscheinlich ist das nicht genau das, was du wolltest, aber es sollte dir als Anhaltspunkt dienen können.

LG
Jochen

#3

Hallo,

da es anscheinend an Grundlagen mangelt, empfehle ich Dir http://www.bergt.de/workshop/delphi/index.htm

Viele Grüße
Manfred