[Alegun]

Сообщение от OmG killer

Как сделать так, чтобы в (edit) можно было ВСТАВЛЯТЬ только
['0'..'9','+','-',',',#8].

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var
i: integer;
str: string;
begin
str:=''; 
for i:=1 to Length(Edit1.Text) do
   case Edit1.Text[i] of
   '0'..'9', '+', '-', ',', #8: str:= str + Edit1.Text[i];
   end; { case }
   Edit1.Text:= str;
   Edit1.SelStart:= Length(Edit1.Text);
end;

З.Ы. Увидел про вставку, ищу

З.Ы.З.Ы.Ерундовая ведь весчь, копаю в сторону тклипборда, найду

З.Ы.З.Ы.P.S. Только такой эрзац удалось выкопать.