Hallo Leute,
ich habe eine kleine Maske zum Erfassen von Preis, Anzahl und einer zu berechnenden Summe eingerichtet.
Die Ausgabe soll nicht "12345,67", sonder so aussehen "12.345,67". Mit folgenden Zeilen habe ich mein Problem realisiert:
Delphi-Quellcode:
procedure TForm1.EinpreisKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var Preis,Summe: Real;
begin
If Key=13 Then
begin
Preis:=StrToFloat(ol(EinPreis.Text));
EinPreis.Text:=' '+FloatToStrF(Preis,ffNumber,8,2);
end;
Nach ENTER soll also die Eingabe formatiert angezeigt werde. Es klappt bis 999,99 ganz gut, ab 1000.00 kommt eine Fehlermeldung:
------------------------
Im Projekt Lehrer.exe ist eine
Exception der Klasse EConvertError mit der Meldung ''1.000,00' ist kein gültiger Gleitkommawert' aufgetreten.
------------------------
Was mache ich falsch, bzw. was habe ich übersehen?
Ich bin neugierig auf die, sicherlich einfachen, Hinweise
TedBomi