Probleme mit StrToFloat

[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