Float Edit-Feld

[Popov]

Zitat von ByTheTime:

Edit: Bitte kommt mir nicht mit "StringToFloat(Excel.Cells[x, y].Value := ComboBoxFloat.Text);", denn wenn man nichts in der ComboBox stehen haben sollte, hängt sich das Programm auf, da '' ja kein Float-Wert ist.

Bevor du gleich mit Try Except prüfst, ich habe vor einiger Zeit paar Prüfroutinen programmiert. Sie prüfen ob String eine Zahl ist. Ohne Error usw. Vielleicht hilft dir das:

Delphi-Quellcode:

    { Prüft ob String ein Currencywert ist }
function IsValidCurrency(S: String): Boolean;
var
  C: Currency;
begin
  Result := TextToFloat(PChar(S), C, fvCurrency);
end;

    { Prüft ob String ein Extendedwert ist }
function IsValidExtended(S: String): Boolean;
var
  E: Extended;
begin
  Result := TextToFloat(PChar(S), E, fvExtended);
end;

Beispiele:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := '922337203685477,5807';
  if IsValidCurrency(S)
    then ShowMessage(Format('%s ist eine gültige Currency Zahl', [S]))
    else ShowMessage(Format('%s ist keine gültige Currency Zahl', [S]));

  S := '1,1e4932';
  if IsValidExtended(S)
    then ShowMessage(Format('%s ist eine gültige Extended Zahl', [S]))
    else ShowMessage(Format('%s ist keine gültige Extended Zahl', [S]));
end;

[ByTheTime]

Danke für die Hilfe,
wie oben schon genannant wollte ich nicht jeden Fall (da es seeehr viele sind) mit try, except behandeln, das wäre sehr aufwendig, das mit dem 'TryStrToFloat' kommt mir gerade recht

[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]

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...