Punkt & Komma

[Uwe Merckens]

Hallo Gemeinde,
<BR><BR>
trotz DecimalSeparator := ',' nimmt mein DBGrid in einem TFloat Field kein Komma an, sondern quittiert dieses mit einem Beep. Nun habe ich daran gedacht, das vom User eingegebene Komma durch ein geeignetes Keyboardevent zu tauschen. Trotz Recherche im Forum und WIN32 Hilfe komme ich nicht auf die Lösung.
<BR>
Wenn jemand den "Dreh" weiß - bitte sagen. Vielen Dank!
<BR><BR>
Viele Grüße
<BR>
Uwe

[Gerd Paulus]

Hallo Uwe,

so arbeite ich seit Jahren erfolgreich und vor allem auch Länderunabhängig (z.B. in D ist Komma =',', in CH ='.'

<PRE>
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['.', ',', ';'] then Key:=DecimalSeparator;
end;
</PRE>

Ich hoffe es hilft

Gruß Ger

[Uwe Merckens]

Hallo Gerd,
<BR> <BR>
genial! Genau der war's. Danke!
<BR> <BR>
Gruss
<BR> <BR>
Uw