[Delphi] Из десятиричной в двоичную систему счисления

[Safok]

Дана строка, представляющая собой запись числа в десятеричной системе счисления. Преобразовать ее в строку, представляющую собой запись числа в двоичной системе счисления.

[Вадим Мошев]

Вот здесь написано
http://www.programmersforum.ru/showp...4&postcount=36

[Safok]

Можно только основное? Что передать функции и как получить результат

[type_Oleg]

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

Можно только основное? Что передать функции и как получить результат

Вам надо описать функцию что-то вроде:

function ConvertDecToBinary(decStr:string):string;

По ссылке - там даже круче - из любой в любую. Надо просто выбросить лишнее.
Ну и сам ввод/вывод сделать для Delphi.

[Arigato]

{$APPTYPE CONSOLE}

uses
  SysUtils;

function ConvertDecToBinary(decStr:string):string;
var
  int: longword;
begin
  int:=StrToInt(decStr);
  result:='';
  repeat
    result:=char(48 or int and 1)+result;
    int:=int shr 1;
  until int=0;
end;

var dec,bin: string;

begin
  readln(dec);
  bin:=ConvertDecToBinary(dec);
  writeln(bin);
  readln;
end.

[Вадим Мошев]

Лучше переменную int переименовать, так как int - это функция.

[Arigato]

В данной области видимости это переменная. А так мало ли какие еще функции существуют

[Safok]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function str(s:string):string;
  

implementation

{$R *.dfm}




procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then label1.Caption:=str(Edit1.Text);
end;

function str(s:string):string;
var
chislo: longword;
Result1 :integer;
begin
chislo:=StrToInt(s);
  repeat
    Result1:=char(48 or chislo and 1)+Result1;
    chislo:=chislo shr 1;
  until int=0;
end;
str:=inttostr(Result1);

end;

end.

Где ошибка?:0

[Stilet]

until int=0;

Надо

 until chislo=0;

[Arigato]

Result1 :integer; - это что за безобразие?