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