Wurzel ziehen

[mkinzler]

FloatToStr()

[DJA]

ja, dass mit FloatToStr habe ich doch oben schon geschrieben, dass ich das auch geändert habe!
aber das Ergebnis ist immer noch null

[Tommy1988]

Pack am besten mal alle relevanten Dateien in ein Archiv und lade es als Anhang hoch.

[DJA]

naja sind ja keine Dateien,
der Quellcode tuts auch denk ich:

Zitat:

wegeditiert

[Tommy1988]

Wa der Fehler hier?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
Zahl1:=StrToFloat(Edit1.Text);
Zahl2:=StrToFloat(Edit2.Text);
Ergebnis:=Zahl1-Zahl2;
Label4.Caption:=FloatToStr(Ergebnis);
end;

Wenn ja, was sollte da nochmal berechnet werden`?

[DJA]

Nun gibt es ja keinen Fehler mehr - nur mein Ziel war es
die Wurzel zu ziehen, allerdings kommt als Ergebnis immer Null raus.

[Tommy1988]

Du hast meine Frage nicht richtig beantwortet..

Sag mir mal genau was du vorhast?

Die Wurzel aus einer zahl ziehen? was haben die beiden edit damit zu tun?

Edit:
Das schreibst du in das Edit, in welches die Zahl aus der die Wurzel gezogen werden soll stehen soll:
Zahl1 := StrToFloat(Edit1.Text); Das kommt in die Button-Methode:
Caption := FloatToStr(sqrt(Zahl1)); Das wars..

[DJA]

Also das Programm ist ein Taschenrechner mit bisher 5 Funktionen:
Addieren, Subtrahieren, Multiplizieren, Dividieren und Quadrieren.
Daher auch die beiden Editfenster.
Dort gibt man bei Edit1 z.B. 10 ein, bei Edit2 5.
Dann erhält man je nach Funktion,
bei addieren 15
bei subtrahieren 5
bei multiplizieren 50
bei dividieren 2
als Ergebnis.

Quadriert wird was is Edit1 steht. Also erhält man im Beispiel 100.

Nun möchte ich eine Funktion die die Wurzel aus Edit1 (als Label Zahl1) zieht.
Dafür brauch man Edit2 als nicht.



EDIT:
Dankeschön, jetzt geht es!!! Vielen Dank!!

[Tommy1988]

Ok, also brauchst du das hier, dann ist das fertig:

Das schreibst du in das Edit, in welches die Zahl aus der die Wurzel gezogen werden soll stehen soll:
Zahl1 := StrToFloat(Edit1.Text); Das kommt in die Button-Methode:
Caption := FloatToStr(sqrt(Zahl1));

[DJA]

Dankeschön, hattest du ja oben auch schon reineditiert, trotzdem noch ma thx