Float Edit-Feld

[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

[himitsu]

Dennoch seh ich das noch nicht so ganz eindeutig geklärt.

Delphi-Quellcode:

// Setzt es immer als Zahl, egal was im Edit drin steht.
Excel.Cells[x, y].Value := StrToFloatDef(Edit1.Text, 0);

// Setzt es als Zahl, wenn eine Zahl im Edit drin steht und setzt es ansonsten als Text.
if TryStrToFloat(Trim(Edit1.Text), F) then
  Excel.Cells[x, y].Value := F
else
  Excel.Cells[x, y].Value := Edit1.Text;

// Setzt es immer als Zahl und wenn keine Zahl im Edit drin steht, dann knallt es.
Excel.Cells[x, y].Value := StrToFloat(Edit1.Text);

// Setzt es immer als Zahl und wenn keine Zahl im Edit drin steht, dann knallt es, mit einer eigenen Meldung.
if TryStrToFloat(Trim(Edit1.Text), F) then
  Excel.Cells[x, y].Value := F
else
  raise Exception.CreateFmt('"%s" ist kein gültiger Wert.', [Edit1.Text]);

uvm.

[ByTheTime]

@Darlo: Ja, sorry, hab den Code nicht aus der IDE kopiert sondern "freihand" geschrieben.

Was ich erreichen möchte ist, das die im Edit-Feld (als Text) stehende Zahl in einen Float-Wert conventieren möchte, damit Excel (wo ich die Werte einfüge) keine Probleme mit seinen Berechnungen hat. ICh möchte nicht in jedem Feld "0" stehen haben, das wird etwas unübersichtlich...

[ByTheTime]

Hat sich erledigt!
@Darlo: Danke Darlo, das du das erwähnt hast, ich hatte "f" als "Real" deklariert :S