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.