Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
case meraisch of
2: memo1.Text:=DrtoDes(memo1.Text,2);
8: memo1.Text:=DrtoDes(memo1.Text,8);
16: memo1.Text:=DrtoDes(memo1.Text,16);
end;
t:=t+1;
a[t]:=memo1.Text;
b[t]:='/';
if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-')) and ((b[t-1]<>'+')and(b[t-1]<>'-') )) and (skob=false)) then
memo1.Text:=rezul(t-1);
glob_check:=true;
case meraisch of
2: memo1.Text:=DesToDr(memo1.Text,2);
8: memo1.Text:=DesToDr(memo1.Text,8);
16: memo1.Text:=DesToDr(memo1.Text,16);
end;
end;
|
lmikle: Дальше начну злобствовать!!!
Есть код кнопки калькулятора но не понятно что означает слово "meraisch" .