[Hetrue]

Код:

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;

Здравствуйте Программисты!
есть код, не могли бы вы мне его описать?
заранее благодарю!

[U.B.M.]

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

Код:

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;

Здравствуйте Программисты!
есть код, не могли бы вы мне его описать?
заранее благодарю!

готов предположить что это калькулятор...

DesToDr - полагаю нечто типа DesyatToDrygoe перевод из десятичной системы в двоичную, восьмеричную и шестнадцатиричную по логике вещей.

В любом случае надо весь этот чудесный код видеть чтоб точнее можно было сказать