man kann auch noch die folgenden zeilen..
Delphi-Quellcode:
// , bzw. . nur einmal eingeben
if (key = ',') or (key = '.') then
if pos(',', Edit1.Text) > 0 then
begin
key := #0; exit;
end;
zu:
Delphi-Quellcode:
// , bzw. . nur einmal eingeben
if (key = ',') or (key = '.') then
if pos(',', TEdit(Sender).Text) > 0 then
begin
key := #0; exit;
end;
..abändern, und somit die Procedure für mehrere OnKeyPress Ereignisse einsetzen (habe ich zB in meinem Programm verwendet, sieht bei 13 TEdits hübscher aus)
lg,sign