Winkelumrechnung

[Wolfgang Mix]

Du bringst da einiges durcheinander, aber so müßte es funzen:

Delphi-Quellcode:

Zahl1 := strtofloat (EdtWinkel.text);
Zahl2 := strtofloat (EdtMinuten.text);
Zahl3 := strtofloat (EdtSekunden.text);
Ergebnis:=(Zahl1 + Zahl2/60 + Zahl3/3600)*pi/180;
LblErgebnis.caption := FloatToStr(Ergebnis);

Gruß

Wolfgang

[Yinnik94]

Ich weiß einfach nicht weiter!
Was muss ich jetzt ändern um diese Fehlermeldung wegzubekommen?

LblErgebnis soll ja anfangs leer bleiben, damit später das Ergebnis, also das Bogenmaß, dort ausgegeben wird.

Aktueller Stand:

Delphi-Quellcode:

Zahl1 := strtofloat (EdtWinkel.text);
Zahl2 := strtofloat (EdtMinuten.text);
Zahl3 := strtofloat (EdtSekunden.text);
Ergebnis := strtofloat (LblErgebnis.caption);
Ergebnis:=(Zahl1 + Zahl2/60 + Zahl3/3600)*pi/180;
LblErgebnis.Caption := FloatToStr(Ergebnis);

Aber auch wenn ich nicht weiter weiß möchte ich mich jetzt schonmal bei euch für eure Unterstützung bedanken!

[Matze]

Schmeiß diese Zeile raus:

Delphi-Quellcode:

Ergebnis := strtofloat (LblErgebnis.caption);

Überlege doch selbst mal, was diese Zeile macht: Du möchtest den Wert im Label in eine Fließkommazahl umwandeln und der Variablen "Ergebnis" zuweisen. Das ist Quatsch, da das Label zur Ausgabe und nicht zur Eingabe dient.
Da ist ganz klar, dass diese Meldung (beim zu Beginn leeren Label) erscheint.

[Wolfgang Mix]

War doch schon fertig.
Wieso hast du diese unsinnige Zeile wieder reingenommen?

[Yinnik94]

Hey Danke!:)
Es funktioniert!
Hätte nicht gedacht das es so einfach geht und es steckt Logik dahinter:P

Danke euch allen für eure Hilfe!
Meine Hausarbeit ist gerettet!^^

[Wolfgang Mix]

Zitat:

Hätte nicht gedacht das es so einfach geht und es steckt Logik dahinter:P

Wäre ja auch schlimm, wenn keine Logik dahinter stecken würde :)

Grüß

Wolfgang