Winkelumrechnung

[olee]

@Yinnik94 :
Da es von unseren alten Hasen hier anscheinend mal vergessen wurde, will ich das mal nachholen und dir erstmal ein freundliches
WILLKOMMEN IN DER DP wünschen!

Die Zeilen

Delphi-Quellcode:

ausgabe := Zahl1 + Zahl2/60 + Zahl3/3600; 
Ergebnis := ausgabe*Pi/180;

sind schonmal gut so.

Jetzt musst du im Grunde nur noch Ergebnis in dem Label LblErgebnis ausgeben.
Doch da du hier je jetzt einen Float-Wert hast, bracuhst du nun auch die Funktion FloatToStr(), um den Wert auszugeben

MFG

[Yinnik94]

Danke das du mich willkommen heißt!

Allerdings komme ich einfach bei FloatToStr nicht weiter..
Bin wie man wahrscheinlich merkt noch ein ziemlicher Anfänger in Sachen Delphi!

Ich hätte jetzt gedacht:
Ergebnis := FloatToStr (LblErgebnis.caption) Allerdings kommt folgender Fehler:

[Fehler] UWinkelumrechnung.pas(46): Inkompatible Typen: 'Extended' und 'TCaption'

[Wolfgang Mix]

Zeige mal ein bisschen Code

Ergebnis := FloatToStr (LblErgebnis.caption) Ich glaube eher du meinst

LblErgebnis.caption:=FloatToStr(Ergebnis);

[hoika]

Hallo,

Ergebnis := FloatToStr(LblErgebnis.caption) Tja,
etwa so sieht die Definition aus
function FloatToStr(X: Float): String Es wird ein Float übergeben und in ein String übergeben
Float To String

Du übergibst aber einen String (LblErgebnis.caption)
TXCaption ist intern auch ein String

d.h.

du benutzt einfach die falsche Funktion


Heiko

[Yinnik94]

Nun kommt wieder die Fehlermeldung:

'' ist kein gültiger Gleitkommawert

So langsam verzweifel ich an meinem Projekt

[Matze]

Dann ist entweder ein Edit oder das Label (LblErgebnis) leer. Fülle mal alles aus und lasse es dann ausrechnen. Wie erwähnt kann ein Leerstring nicht in eine zahl konvertiert werden.

[hoika]

Hallo,

paste noch mal, was du bisher hast,
und markier die Stelle, wo der Fehler kommt.


Heiko

PS:
Ich bin ja drauf und dran,
nen "Debugging for Beginners"-Tut. zu schreiben,
aber solange es keine Turbos's gibt ...

[Yinnik94]

Delphi-Quellcode:

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

Kommt nur ein Fehler wenn ich das Bogenmaß ausrechnen lassen möchte.

Und zwar dieser:

'' ist kein gültiger Gleitkommawert

[Matze]

Das ist Murks

Delphi-Quellcode:

Ergebnis := strtofloat (LblErgebnis.caption);
LblErgebnis.caption := FloatToStr(Ergebnis)

Du weist "Ergebnis" den Wert des Labels zu und anschließend umgekehrt.

Ich vermute, du möchtest das hier:

Delphi-Quellcode:

// ...
ausgabe := Zahl1 + Zahl2/60 + Zahl3/3600; 
LblErgebnis.Caption := FloatToStr(ausgabe);

Grüße, Matze

[himitsu]

Damit sagst du uns aber immernoch nicht, wo genau der Fehler auftritt.

Hierfür gibt es etwas, welches sich DEBUGGEN nennt

Zitat:

'' ist kein gültiger Gleitkommawert

bedeutet, es wird versucht einen '' (Leerstring) in eine Fließkommazahl umzuwandeln,
welches in deinem Code nur die Funktion StrToFloat macht.

was also heißt, daß in EdtWinkel.Text, EdtMinuten.Text, EdtSekunden.Text und/oder LblErgebnis.Caption kein Text bzw. keine Zahl enthalten ist.