Edit + Буфер обмена

[0nni]

Думаю так?

procedure TWorkForm.Edit1Change(Sender: TObject);
var
  i:Integer;
  s:String;
  caretpos : integer;
begin
  caretpos := Edit1.SelStart
  s:=TEdit(Sender).Text;
  for i:=Length(s) downto 1 do
  begin
    if not(s[i] in ['0'..'9']) then
    delete(s, i, 1);
  end;
  TEdit(Sender).Text:=s;
  Edit1.SelStart := caretpos;
end;

[SNUPY]

Всем большое спасибо, в особенности 0nni =)))). Но всетаки мне интересно как в OnChange это красиво реализовать ^_^???

[SNUPY]

Всем большое спасибо тема закрыта ^_^

Думаю так?
Код:

procedure TWorkForm.Edit1Change(Sender: TObject);
var
i:Integer;
s:String;
caretpos : integer;
begin
caretpos := Edit1.SelStart
s:=TEdit(Sender).Text;
for i:=Length(s) downto 1 do
begin
if not(s[i] in ['0'..'9']) then
delete(s, i, 1);
end;
TEdit(Sender).Text:=s;
Edit1.SelStart := caretpos;
end;

Думаю тут чуть чуть надо будет еще учесть, что курсор может сдвигаться. Но это уже дело техники ^_^

[VVM]

Перенести курсор в крайнее правое положение:

  Edit1.SelStart := Length(Edit1.Text);

[Arigato]

Могу предложить 2 варианта решения проблемы:
1.

procedure TForm1.Edit1Change(Sender: TObject);
var
  i,p:Integer;
  s:String;
  Change: Boolean;
begin
  s:=TEdit(Sender).Text;
  p := TEdit(Sender).SelStart;
  Change := False;
  for i:=Length(s) downto 1 do
  begin
    if not(s[i] in ['0'..'9']) then
    begin
      delete(s, i, 1);
      Change := True;
    end
  end;
  if Change then
  begin
    TEdit(Sender).Text:=s;
    TEdit(Sender).SelStart := p - 1;
    TEdit(Sender).SelLength := 0;
  end;
end;

2.

procedure TForm1.Edit1Change(Sender: TObject);
var
  i:Integer;
  s:String;
begin
  s:=TEdit(Sender).Text;
  for i:=Length(s) downto 1 do
  begin
    if not(s[i] in ['0'..'9']) then
    delete(s, i, 1);
  end;
  TEdit(Sender).Text:=s;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) and (Byte(Key) > 31) then Key := #0;
end;

2-й вариант мне нравится больше.