[Hetrue]

Код:

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;

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

[U.B.M.]

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

Код:

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

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

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

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