Float Edit-Feld

[ByTheTime]

Hallo,
der Titel ist vllt. etwas unpassen... Ich habe folgendes Problem:

Meine Anwendung kopiert Werte aus ComboBoxen in Excel. Allerdings habe ich das Problem, das sie in Excel dann als Text stehen. Da mein Excel Dokument ebenfalls mit Formlen arbeitet und verschiedene Felder zusammenrechnet, muss ich das Dokument öffnen und erst alle als Text gespeicherten Zahlen in eine Zahl umwandeln. Fällt euch eine gute Lösung ein? Ich hätte an eine "Float-ComboBox" gedacht, gibt es ähnliche Komponenten?

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.

Danke,
Lukas

[Luckie]

Zitat:

Zitat von ByTheTime (Beitrag 1146791)

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.

Dann behandele diesen Fall eben entsprechend.

[himitsu]

Tipp: Rate mal, wofür TryStrToFloat erfunden wurde.

[Popov]

Zitat:

Zitat von ByTheTime (Beitrag 1146791)

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:

Delphi-Quellcode:

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