Перевод чисел из одной системы в другую!!!

[Abay19941308]

Перевод чисел сделал. Вот только задали доп.задание. В числе переведенном в двоичную систему необходимо заменить нули единицами, а единицы нулями. Потом обратно конвертировать это число в десятичную систему.
Н-р:
25 в двоичной будет -> 11001
11001-> (заменили еденицы нулями) 00110
00110 (опять перевили это число в десятичную) -> 6

Вот код:

function Convert(chislo:integer; osnovanie:byte):string;
begin
result:='';
repeat
    result:=zn[(chislo mod osnovanie)+1] + result;
		chislo:=chislo div osnovanie;
until chislo=0;
end;

procedure TForm1.button1Click(Sender: TObject);
var s,S1,S2,SS:string; 
    cell,drob,k,i:integer; 
    osn:byte;
begin
s:=Edit1.text; 
osn:=StrToint(Edit2.Text);
if pos(',',s)<>0 then
   begin
    cell:=Strtoint(copy(s,1,pos(',',s)-1)); 
    drob:=Strtoint(copy(s,pos(',',s)+1,length(s)-pos(',',s)));
    S2:=Convert(cell,osn)+','+Convert(drob,osn);
    Label1.Caption:=(S2);

   end
else if  pos(',',s)=0 then begin
Label1.Caption:=Convert(StrToInt(s),osn); end;

S1:='00000000';
//S2:=inttostr(SS);
k:=8;
for i:=length(S2) downto 1 do begin
s1[k]:=S2[i];
k:=k-1;
end;
edit3.Text:=(s1);

end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

простите, не понял: а вопрос то в чём? что не получается?

[Abay19941308]

Извиняюсь,забыл!!!
Не меняет единицы с нулями.
Выводит либо тоже самое число в двоичной системе.

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var Number,x,y,z: DWORD;
begin
  Number:=15233; x:=Number; y:=1; z:=0;
  while x<>0 do begin z:=z or y; y:=y shl 1; x:=x shr 1; end;
  x:=(not Number) and z;
  Label1.Caption:=IntToStr(Number) +' '+IntToHex(Number,8);
  Label2.Caption:=IntToStr(x) +' '+IntToHex(x,8);
end;