Float Edit-Feld

[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