Check Text
12. Mai 2007Jetzt bewerten: 
(0)
(0) 
Loading ...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;
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;
[tags]Delphi, Strings[/tags]