[gravs]

Код:

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" .

[Kailon]

Ну так как "meraisch" находиться в конструкции case..of, то скорее всего это просто напросто целочисленная переменная.

[angvelem]

И не просто целочисленная, а номер системы исчисления - 2, 8, 16. Десятичная, как видно, не проверяется.
И похоже, можно расштфровать как - "Мера исчисления".

[gravs]

Спасибо огромное за ваши ответы!!!!!