Помогите немного доделать программку на Дельфях

[HAMMAN]

Дело в том, что у меня программка (Калькулятор) почти готовая за исключением систем счисления, градусов и радиан!Никак не могу их добить!Помогите по-возможности...

[HAMMAN]

Вот небольшой отрывок с той программки:

var
  Form1: TForm1;
  flag1,flag2,flag3,flag4:boolean;
  op1,op2:real;
  operand:char;
  tan:Real;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
if flag1 then begin
 edit1.Text:=Speedbutton11.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+Speedbutton11.Caption;
   end
end;
.............
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
operand:='+';
 flag3:=true;
  if flag2 then begin
  op1:=strtofloat(edit1.Text);
  flag2:=false;
  end
   else begin
   if not flag1 then op1:=op1+strtofloat(edit1.Text);
   edit1.Text:=floattostr(op1);
   end;
   flag1:=true;
end;

procedure TForm1.SpeedButton23Click(Sender: TObject);
begin
  operand:='/';
  if flag2 then begin
  op1:=strtofloat(edit1.Text);
  flag2:=false;
  flag3:=true;
end
  else begin
  if not flag1 then op1:=op1/strtofloat(edit1.Text);
  edit1.Text:=floattostr(op1);
end;
  flag1:=true;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
  if Edit1.Text = '0' then
    begin
      Edit1.Text := '0,';
      op1 := 1;
    end;
  if Pos(',',Edit1.Text) = 0 then
      Edit1.Text := Edit1.Text + ',';
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
  case operand of
  '/' : if strtofloat(edit1.Text)<>0 then op1:=op1/strtofloat(edit1.Text);
  '*' : op1:=op1*strtofloat(edit1.Text);
  '+' : op1:=op1+strtofloat(edit1.Text);
  '-' : op1:=op1-strtofloat(edit1.Text);
end;
if strtofloat (edit1.Text)<>0 then
  edit1.Text:=floattostr(op1)
  else edit1.Text:='error!';
  flag2:=true;
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
begin
  operand:='*';
  if flag2 then begin
   op1:=strtofloat(edit1.Text);
   flag2:=false;
   flag3:=true;
end
else begin
if not flag1 then op1:=op1*strtofloat(edit1.Text);
edit1.Text:=floattostr(op1);
end;
flag1:=true;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
operand:='-';
 flag3:=true;
  if flag2 then begin
  op1:=strtofloat(edit1.Text);
  flag2:=false;
  end
   else begin
   if not flag1 then op1:=op1+strtofloat(edit1.Text);
   edit1.Text:=floattostr(op1);
   end;
   flag1:=true;
end;

procedure TForm1.SpeedButton35Click(Sender: TObject);
begin
  op1:=StrToFloat(Edit1.Text);
  op1:=1/op1;
  Edit1.Text:=FloatToStr(op1)
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
var s:string;
begin
 s:=edit1.Text;
 if s[1]<>'-' then insert('-',s,0) else
 delete(s,1,1);
 edit1.Text:=s;

end;

procedure TForm1.SpeedButton26Click(Sender: TObject);
begin
 op1:=StrToFloat(Edit1.Text);
 op1:=Log10(op1);
 Edit1.Text:=FloatToStr(op1);
end;

procedure TForm1.SpeedButton24Click(Sender: TObject);
begin
if strtofloat(edit1.Text)>=0 then begin
op1:=sqrt(strtofloat(edit1.Text));
edit1.Text:=floattostr(op1);
end
else
begin
flag1:=true;
flag2:=true;
flag3:=true;
edit1.Text:='ошибка !';
end;
end;

procedure TForm1.SpeedButton25Click(Sender: TObject);
begin
if strtofloat(edit1.Text) <>0 then begin
op1:=sin(strtofloat(edit1.Text)*180/pi);
edit1.Text:=floattostr(op1);
flag1:=true;
flag2:=true;
flag3:=true;
end
end;

procedure TForm1.SpeedButton27Click(Sender: TObject);
begin
if strtofloat(edit1.Text) <>0 then begin
op1:=cos(strtofloat(edit1.Text)*180/pi);
edit1.Text:=floattostr(op1);
end
else
begin
flag1:=true;
flag2:=true;
flag3:=true;
edit1.Text:='1';
end
end;

procedure TForm1.SpeedButton28Click(Sender: TObject);
begin
operand:='^';
if flag2 then begin
op1:=strtofloat(edit1.Text);
flag2:=false;
end
else begin
if not flag1 then op1:=exp(ln(op1)*strtofloat(edit1.Text));
edit1.Text:=floattostr(op1);
end;
flag1:=true;
end;

procedure TForm1.SpeedButton31Click(Sender: TObject);
begin
  op1:=Exp(1);
  op1:=StrToFloat(Edit1.Text);
  op2:=ln(op1);
  Edit1.Text:=FloatToStr(op2);
end;

procedure TForm1.SpeedButton32Click(Sender: TObject);
begin
if strtofloat(edit1.Text)>=0 then begin
op1:=sqr(strtofloat(edit1.Text));
edit1.Text:=floattostr(op1);
end
else
begin
flag1:=true;
flag2:=true;
flag3:=true;
edit1.Text:='ошибка !';
end;
end;

end.

ВОТ СЮДА НУЖНО ЕЩЁ СИСТЕМУ СЧИСЛЕНИЙ КАК НА СТАНДАРТНОМ WINDOWS КАЛЬКУЛЯТОРЕ!

[Shuraken]

http://alienhacker.narod.ru/ProjectsRS.htm
Скачай оттуда калькулятор, посмотри.

[HAMMAN]

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

http://alienhacker.narod.ru/ProjectsRS.htm
Скачай оттуда калькулятор, посмотри.

ссылки битые...

[bill]

формула перевода радиан в углы-
a:=180*f/p (если мне память не изменяет), где p - это пи, а-это уже угол, f-это то число которое у тебя есть(оно всегда в радианах). Вот со системами счисления я не знаю точно.

[Virtson]

по системами счисления - бери в сети алгоритмы и вставляй в программу. твоя прога %)
что от нас ждешь ?. так даже не интересно ..

[beso]

HAMMAN vbmenu_register("postmenu_17890", true); ! pasmatri Rabochi Kalkulatore! a pvaevo progu ka vi tam napisana ia ni ponial! ,,Pasmapri rabochi Probu i tebia Pamojet"

[SuperVisor]

Надавать бы по ушам предыдущему постеру... Жаль с мобилы...
По теме: зайди в поиск - в свое время я писал на форуме стандартные функции перевода систем счисления.