Калькулятор!

[-=DeS=-]

можно например так:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#27,#8]) then Key := #0;
end;

[merax]

Пользуйся.

[HAMMAN]

Большое спасибо!

[HAMMAN]

и еще вопрос как сделать BACKSPACE и перевод из одной системы счисления в другую?(те же что и на стандартном калькуляторе Винды)

[zetrix]

как сделать BACKSPACE

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var s:string;
begin
if not (Key in ['0'..'9',#27,#8]) then Key := #0;
if key = #8 then
begin
s:=Edit1.text;
Delete(s,length(s),1);
Edit1.text:=s;
if Edit1.text='' then Edit1.text:='0';
end;
end;

[SuperVisor]

Сообщение от HAMMAN

... и перевод из одной системы счисления в другую?(те же что и на стандартном калькуляторе Винды)

Можно сделать лучше, чем у Винды
Есть функция переведения ИЗ десятичной системы в другие системы (это пример с основой до 62):

Function DecimalToXBasedNum(Decimal: integer; Base: byte): string;
var
 step: integer;
function convert(Num: byte): string;
begin
 case Num of
  0..9: Result:= inttostr(Num);
  10..35: Result:= chr(55+Num);
  36..61: Result:= chr(61+Num);
 Else raise EConvertError.Create('Base Number is out of range');
 end;
end;
begin
 Step:=1;
 Result:=Convert(Decimal mod Base);
 while (Decimal div Trunc(IntPower(Base, step))) > 0 do
 begin
  Result:=Convert((Decimal div Trunc(IntPower(Base, step))) mod Base)+result;
  inc(step);
 end;
end;

Функция переведения из любой системы в десятичную гораздо проще: просто умножаем каждое число (справа налево) на основу в степени(порядковый_номер_числа), начиная отсчет с нуля