Не работает операция

[RevenGGe]

В начало строки должно добавлять ноль в случае, если число не кратное 4, но у меня не работает. Подскажите ошибку, пожалуйста.

While Length(Sx) mod 4<>0 do
    Sx:='0'+Sx;

[Hacker19_90]

Отлично, а при чём тут длина строки?
Вы на примере можете показать что конкретно хотите?

[Stilet]

While (Length(Sx) mod 4)<>0 do

Так надежнее.

[RevenGGe]

Stilet, так тоже пробовал. Не помогает.

Hacker19_90, длинна строки, потому что мне нужно перевести с 2 в 16 систему. Это одна из операций, которая прибавляет ноль в начало строки, если длинна строки не кратная 4.
По моей логике оно должно работать, но увы. Также пробовал через insert и тоже не работает.

[Stilet]

Это одна из операций, которая прибавляет ноль в начало строки

Эту глупость тебе кто сказал?
Ноль дорисовывается не для этого.

так тоже пробовал. Не помогает.

А пошаговочку?
Показывай код.

[RevenGGe]

function To16(Sx:string):string;
   var j:byte;
       St1,St:string;
    begin
     St:='';
       While Length(Sx) mod 4<>0 do
         Sx:='0'+Sx;



   For j:=0 to Length(Sx) div 4 -1  do
    begin
      St1:=Copy(k,4*j+1,4);
           if St1='0000' then St1:='0'
      else if St1='0001' then St1:='1'
      else if St1='0010' then St1:='2'
      else if St1='0011' then St1:='3'
      else if St1='0100' then St1:='4'
      else if St1='0101' then St1:='5'
      else if St1='0110' then St1:='6'
      else if St1='0111' then St1:='7'
      else if St1='1000' then St1:='8'
      else if St1='1001' then St1:='9'
      else if St1='1010' then St1:='A'
      else if St1='1011' then St1:='B'
      else if St1='1100' then St1:='C'
      else if St1='1101' then St1:='D'
      else if St1='1110' then St1:='E'
      else if St1='1111' then St1:='F';
      St:=St+St1;
      end;
   result:=St;
   end;

[Hacker19_90]

St1:=Copy(k,4*j+1,4);

что такое k?

[Sciv]

А Sx как передается в функцию? Где этот кусок кода? Может, в нем и заключаются грабли?

[RevenGGe]

Точно! спасибо Hacker19_90. Случайно перенес глобальную переменную. Спасибо большое за помощь.

[Sciv]

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

что такое k?

Выскажу предположение, что это нечто глобальное