Система счисления Делфи

[Катерина19]

Помогите исправить перевод из двоичной системы в любую и добавить чтобы число 13-писал как D

procedure TForm1.Button1Click(Sender: TObject);
var i,b,s,g,d,z,t:integer;
    a,b1:array of integer;
    e,q:string;
begin
s:=strtoint(edit1.Text);
e:='';
t:=0;
d:=0;
b:=strtoint(edit3.Text);
q:=edit1.Text;
if RadioGroup1.ItemIndex=0 then
begin
repeat
e:=inttostr(s mod b)+e;
s:=s div b;
until
s=0;
edit2.Text:=e;
end
else
if radiogroup1.ItemIndex=1 then
begin
setlength(a,length(q)+1);
setlength(b1,length(q)+1);
b1[1]:=1;

for i:=2 to length(q) do
begin
g:=1;
for z:=1 to (i-1) do begin
if i<>1 then g:=g*b;
if z=(i-1) then b1[i]:=g;
end;
end;

for i:=length(q) downto 1 do
begin t:=t+1;
a[t]:=strtoint(q[i]);
end;

for i:=1 to length(q) do
d:=d+a[i]*b1[i];

edit2.Text:=inttostr(d);
end;
end;
end.

[ZX Spectrum-128]

http://forum.sources.ru/index.php?showtopic=42165

Из двоичной нельзя в любую.
Схема перевода
2-ная -> 10-ная -> любая

[Катерина19]

Сообщение от ZX Spectrum-128

http://forum.sources.ru/index.php?showtopic=42165

Из двоичной нельзя в любую.
Схема перевода
2-ная -> 10-ная -> любая

Тогда как в коде исправить чтобы было из любой в двоичную?

[ZX Spectrum-128]

И из любой в двоичную нельзя. Схема:
Любая сс -> 10-ная -> двоичная
Вы не сами код делали разве? Информация по ссылке вполне доступна даже семиклассникам.

[Катерина19]

Сообщение от ZX Spectrum-128

И из любой в двоичную нельзя. Схема:
Любая сс -> 10-ная -> двоичная
Вы не сами код делали разве? Информация по ссылке вполне доступна даже семиклассникам.

хорошо, это я поняла! не получается сделать так чтобы 10,11,12,13,14,15 вводились как A,b,c,d,e,f

[ZX Spectrum-128]

Ваш код я не смотрел. Но примеры, приведенные в ссылке, позволяют вводить числа в любой системе счисления (16-ной).