Float Edit-Feld

[Sir Rufo]

Es gibt sogar noch ein StrToFloatDef, wo man einen Default-Wert mitgeben kann, der dann benutzt wird, wenn der String nicht umgewandelt werden kann.

[ByTheTime]

Ich muss das ganze nochmal aufrollen...
Ich habe versucht, mit "TryStrToFloat" einen String aus einem Edit-Feld in einen Float-Wert umzuwandeln. Leider habe ich den Befehl erst falsch verstanden, und folgendes gemacht:
Excel.Cells[x, y].Value := TryStrToFloat(Edit1.Text); Dann habe ich erfahren, das TryStrToFloat mir erst als Boolean zurückgibt ob man den String umwandeln kann oder nicht und dann erst den Wert, also (bin mir nicht ganz sicher, wie genau es geht, habe mal meine 2 überlegungen hier):

1. Idee

Delphi-Quellcode:

 var
   b: Boolean;
   f: Float; 

 if TryStrToFloat(Edit1.Text, f) then //Wenn der String umgewandelt werden kann...
    Excel.Cells[x, y].Value := f;

[mkinzler]

Es gobt auch StrToFloatDef(). Da kann man einen Defaultwert vorgeben, welcher im Fehlerfehl genommen wird.

[himitsu]

Die erste Idee ist schon richtig.

TryStrTo... versucht den String umzuwandeln und wenn das ging, dann wird True und der Wert zurückgegeben.
Try wie Versuchen

StrTo...Def wandelt den String immer um und gibt im Fehlerfall den Standardwert zurück.
Def wie Default Value / Standardwert


Es kommt jetzt darauf an, was du willst.
- immer (irgend)eine Zahl schreiben (def)
- wenn möglich eine Zahl schteiben und ansonsten den String (try mit 'nem ELSE und dann als String zuweisen)

[ByTheTime]

Sorry, das ich das wieder aufwühle, aber ich kriege es einfach nicht gebacken!!!

Das ist mein Codeschnipsel:

Delphi-Quellcode:

 if TryStrToFloat(TPArray[0].Ort, f) then
    Excel.Cells[9, 4].Value := f;

Was mache ich den falsch... f ist als variable (f: Real deklariert...

[Sir Rufo]

Warum nimmst du nicht StrToFloatDef?

[himitsu]

Zitat von Sir Rufo:

Warum nimmst du nicht StrToFloatDef?

Kommt ja drauf an, was er erreichen will.

Zitat von ByTheTime:

Was mache ich den falsch...

Weiß nicht.
Gibt es eine Fehlermeldung und wenn ja welche?
Oder was passiert, bzw. was passiert nicht?

[Darlo]

Nur aus dem Kopf, f ist nicht vom Typ Real sondern Double.

[himitsu]

TryStrToFloat gibt es jeweils für Single, Double und Extended.
Real ist eine Weiterleitung zu Double. (so wie ein Integer aktuell LongInt entspricht und String entweger AnsiString oder UnicodeString)
Der alte Real-Typ versteckt sich aktuell als Real48.

[Sir Rufo]

Zitat von ByTheTime:

Ich muss das ganze nochmal aufrollen...
Ich habe versucht, mit "TryStrToFloat" einen String aus einem Edit-Feld in einen Float-Wert umzuwandeln. Leider habe ich den Befehl erst falsch verstanden, und folgendes gemacht:
Excel.Cells[x, y].Value := TryStrToFloat(Edit1.Text);

Aus diesem Ansatz leite ich mal ab, dass er mit StrToFloatDef genau das bekommt, was er wollte