[gravs]

Код:

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

[Kailon]

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

[angvelem]

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

[gravs]

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