Nur bestimmte Zeichen zulassen

[René]

Ich möchte in meiner Anwendung nur die Zeichen 0-9 und das Komma zulassen. Die Anweisung IF Key in ('0','1',...) then funktioniert nicht. Wer kann helfen ? Vielen Dank.

[Thomas Melchert]

<p>Hallo Rene,<br>
<br>
so müsste es gehen:<br>
<br>
<pre>
// Set mit allen gültigen Werten
const ValidChars=set of Char=['0'..'9', ',', #8];
</pre>
<pre>
// OnKeyPress des Edit-Feldes
procedure TForm1.MyEditKeyPress(Sender:TObject; var Key:Char);
begin
if (Key in ValidChars) then
begin
...
MacheEtwas;
...
end else Key=#0;
end;
</pre>
<br>
Gruß Thomas</p&gt