|
На основе вышесказанного напрашивается простая проверка:
procedure TForm1.Edit1Change(Sender: TObject);
var
i:integer;
Str:string;
begin
for i:=1 to Edit1.GetTextLen do
begin
if (not (copy(Edit1.Text, i, 1)[1] in ['0'..'9'])) then
begin
Str:=Edit1.Text;
SetLength(Str,Edit1.GetTextLen-1);
Edit1.Text:=Str;
MessageDlg('Очепятка',mtError,[mbOk],0)
end
end
end;
|