[code lang=”delphi”]procedure CheckText(Sender:TEdit; var Key:Char);
begin
If not (Key in [‘0′..’9′,’.’,#8, #13]) then
Key := #0;
If Key = ‘.’ then
begin
If Pos(‘.’, Sender.Text) > 0 then
Key := #0;
end;
end;
[/code]
[tags]Delphi, Strings[/tags]
0 Kommentare zu “Check Text”