Ввести в Edit только числа и удалять их Bacspase'ом.

[Alar]

перенесено со старого форума. сообщение от Freedom.

Ввести в Edit только числа и удалять их Bacspase'ом.
Пишу на OnKeyPress ввод только чисел, но при работе отказывается удалять Bacspase'ом и работает только Delete.

перенесено со старого форума. сообщение от oLMeR.

Чтобы работал BackSpace ты должен тамже где разрешаеш числа разрешить и кнопку #8 как ты уже наверное догадался это и есть многоуважаемый BackSpace

перенесено со старого форума. сообщение от Freedom.

Спасибо! А то нигде не мог найти его код.

перенесено со старого форума. сообщение от SilVaN.

Предлогаю следующий вариант:

function TransStr(x: string): string;
var
rs: string;
i: integer;
begin
rs:=x;
if rs<>'' then
begin
if (rs[1]<>'-')and(not(rs[1] in ['0'..'9'])) then
rs:=Copy(rs,2,Length(rs)-1);
if Length(rs)>1 then
begin
for i:=2 to Length(rs) do
begin
if not (rs[i] in ['0'..'9']) then
rs:=Copy(rs,1,i-1)+Copy(rs,i+1,Length(rs)-i);
end;
end;
end;
Result:=rs;
end;

а в Edit1OnChange ставишь: Edit1.Text:=TransStr(Edit1.Text);

[Баламут]

В обработчике KeyPress пишем:

if not (Key in ['0'..'9', #8]) then key := #0