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