Probleme mit StrToFloat

[Dieter11]

Hallo Zusammen,

ich hänge schon eine ganze Weile an folgendem Problem:

Delphi-Quellcode:

VAR  SP_Menge : Extended;
     Menge_String : String;

begin
  inherited;

  DecimalSeparator := ',';

  Menge_String := String(frm_Behandlungen.DBEdit_Menge.Text);
  SP_Menge := strtofloat(Menge_String);

  .......

Menge_String wird korrekt angezeigt.
Bei SP_Menge gibt es keine Veränderung - die Variable hat immer den Wert 0.
Auch wenn ich z.B. die Variable SP_Menge : Real; (oder double, ...) setze.

Vielleicht kann mir hier jemand helfen.

Danke.

Gruss
Dieter

[edit=mkinzler]Delphi-Tag korrigiert Mfg, mkinzler[/edit]

[Meflin]

1. was soll der typecast nach string()?
2. wieso nicht einfach strtofloat(frm_Behandlungen.DBEdit_Menge.Text)?

[Dieter11]

Das hatte ich auch schon probiert - ohne Erfolg.

[Meflin]

Zitat:

Zitat von Dieter11

Das hatte ich auch schon probiert - ohne Erfolg.

Wie sieht denn der Wert als string aus?

[blink182]

das was ich vermutet habe ;)

Delphi-Quellcode:

Menge_String :=Stringreplace(Menge_String ,'.',#44,[]);

das sollte helfen

[Dieter11]

Der String sieht wie folgt aus: '2,89'
Probiert habe ich auch : '2.89'

Stringreplace
Menge_String :=Stringreplace(Menge_String ,'.',#44,[])
fürht auch nicht zum Erfolg.

[Neutral General]

Hi,

Hast du mal debuggt und geschaut, was Menge_String vor dem StrToFloat für einen Wert hat? (Evtl. das falsche, leere Edit im Code benutzt?)

[Meflin]

Da dein code an sich keine Fehler enthält, und strtofloat eine Exception auslösen müsste, wenn irgendwelche nicht verarbeitbaren Zeichen im string sind, tippe ich darauf, dass der Fehler woanders im code ist :gruebel:

[Satty67]

Ja, das eine Exception ausgelöst wird schreibt er ja nicht. Vielleicht klappt im Prinzip auch alles (was wir vom Code sehen) korrekt.

Interessant wäre noch, wie er den Wert überprüft. Also etwas mehr vom Code...

[Dieter11]

Ich schaue mir den Wert im Überwachungsmonitor an.

Hier der Code der Prozedure:

Delphi-Quellcode:

procedure Tfrm_Behandlungen.BitBtn_SpeichernArtikelClick(Sender: TObject);

VAR  SP_Einzelpreis : Real;
     SP_Menge : double;
     Menge_String : String;

begin
  inherited;

  DecimalSeparator := ',';

  SP_Menge := 0.01;
  Menge_String := '0,01';

//  SP_Menge := String(frm_Behandlungen.DBEdit_Menge.Text);
//  SP_Menge_Float := StrToFloat(SP_Menge);


  Menge_String := String(frm_Behandlungen.DBEdit_Menge.Text);
//  Menge_String :=Stringreplace(Menge_String ,'.',#44,[]);

  SP_Menge := strtofloat(Menge_String);

  SP_Einzelpreis := StrToFloat(frm_Behandlungen.DBEdit_Menge.Text);

// Hier wird letztendlich Menge mit Preis multipliziert und das Ergebnis gespeichert.




end;

[edit=mkinzler]Delphi-Tag eingefügt. Mfg, mkinzler[/edit]

[Satty67]

Ziemlich verwirrend, was Du so in dem Beispielcode stehen hast (durch's Testen wohl mehr Chaos als Hilfe entstanden).

Delphi Code-Tags machen das lesen leichter (im Forum-Editor oben "Delphi-Code")

Delphi-Quellcode:

procedure Tfrm_Behandlungen.BitBtn_SpeichernArtikelClick(Sender: TObject);
var
  SP_Einzelpreis : Real;
  SP_Menge : double;
  SP_Ergebnis : Currency;  // damit das Datentypen-Chaos perfekt wird ;-)
begin
  inherited; // ???

  DecimalSeparator := ',';
 
  // SP_Menge := 0.01;
  // Menge_String := '0,01';

  SP_Menge := StrToFloat(frm_Behandlungen.DBEdit_Menge.Text);

  // Wieso Einzelpreis vom gleichen Datenfeld?
  SP_Einzelpreis := StrToFloat(frm_Behandlungen.DBEdit_Menge.Text);

  SP_Ergebnis := SP_Einzelpreis * SP_Menge;
end;

1. Wieso SP_Einzelpreis vom gleichen Datenfeld... Copy+Paste Fehler oder?
2. Welchen Wert hat Einzelpreis. Ist der 0, dann ist auch das Ergebnis 0

[stoxx]

probier mal die Function StrToFloatSafe aus der Unit JclStrings von Jedi

Delphi-Quellcode:

var
  s : String;
  d : Double;

begin
  s := 'Eine Zahl: 123,45';
  d :=  StrToFloatSafe(s);
  s := '123,45 Euro';
  d := d + StrToFloatSafe(s);

  ShowMessage('Ergebnis :'+  FloatToStr(d));
  // da wird 246,9 angezeigt

ach sorry, hab zu schnell gelesen, war ja nicht sein Problem, lass den Post trotzdem mal stehen ...

[alphaflight83]

Grundsätzlich war mir immer TryStrToFloat, bzw. auch TryStrToInt lieber,
da so nicht konvertierbare Werte leichter abgefangen werden können.
Was mir nicht ganz klar ist:
Liest du die Preise aus einer DB aus? Wenn ja mit welchem Zugriff?
Falls du ADO verwendest könntest du das Feld mit FieldByName('Wert').AsFloat auslesen und direkt in eine Variable schreiben.

Welche Mengen-Einheiten verwendest du?
Zur Fehlersuche könntest du evtl. auf die nächst kleinere Einheit wechseln,
die als Integerwert angezeigt werden kann. So könntest du einen Fehler in der Floatumrechnung ausschließen.
Vielleicht auch falscher Datentyp beim Ergebnis?

Überwachungsmonitor ... nur um das auszuschließen: hast du Brakepoints gesetzt, dass der Gute auch was anzeigen kann?
Leg lieber mal ein Editfeld an, in dem du deinen Ergebniswert ausgibst.

Das war alles was mir grade dazu einfällt, ich weiß jetzt natürlich deinen Kenntnisstand nicht,
deswegen vergiss alles, was du schon versucht hast.

Gruß, Alpha

[Dieter11]

Hallo Zusammen,
Danke für Eure Unterstützung.

Ich hatte Brakepoints gesetzt um die Ergebnisse im Überwachungsmonitor anzuzeigen - der hat leider nichts angezeigt.
Geholfen hatte letztendlich die Anzeige der Ergebnisse über ShowMessage ().

Gruss
Dieter