in edit maximal 1 KOMMA zulassen

[HappyTreeFriend]

Moin Leutz

Also ich hab mal wieder n kleines Problemchen... Ich will, dass in bestimmte Edit-Fenster in meinem Programm nur maximal 1 Komma stehen darf, also, dass man es praktisch auch nur 1 mal eingeben kann. Die 2. Lösung wäre, dass wenn es ein zweites mal steht, eine Showmessage angezeigt wird, dass ein Komma zu viel ist.

Code:

procedure TForm7.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#8, #9,#44, #48 .. #57]) then key:=#0;
end;  
{Hier wird das Komma im Editfenster erlaubt... müsste #44 sein, jedoch will ich ja, dass es nur 1 mal erlaubt ist, damit eine eingabe wie 1,2,3,... nicht geht.}

Kann man das vielleicht über solch eine Procedure machen?

thx 4 reply

so long Euer HappyTreeFriend