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]