ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Я знаю что как это делается в уме и на бумаге... Но не могу перевести это все в процедуру... Вот Например такая процедура будет:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Вот как сделать чтоб при нажатии кнопки, число взятое из Edit1 преобразовалось в двоичный код и вывелось в Edit2?

Или может для этого есть определенная функция, типа StrToInt...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Код нечитабелен, но компилиться аху***но

Эх юмористы мля....вот код:

Код:

//Из десятичной в двоичную
procedure TForm1.Button2Click(Sender: TObject);
var
number:cardinal;
begin
 number:=strtoint(Edit1.text);
   Edit1.text:='';
  repeat
    if number mod 2 = 1 then
       Edit1.text:='1'+Edit1.text
    else
       Edit1.text:='0'+Edit1.text;
       number:=number div 2;
    until 
       number = 0;
end;

//из двоичной в десятичную
procedure TForm1.Button1Click(Sender: TObject); 
var
i,p: cardinal;
begin
p:=0;
for i:=1 to length(Edit1.text) do
   begin
   p:=p*2;
   if Edit1.text[i] = '1' then
      p:=p+1
   else if Edit1.text[i] <> '0' then
      ShowMessage('Ошибка преобразования'); 
   end;
Edit1.text:=inttostr(p);
end;
end.