Как удалить бит?

[alenkov]

Доброго всем времени суток!!!

Есть функция

function IntToBin(Value: integer; Digits: integer): string;
var
  i: integer;
begin
  result := '';
  for i := 0 to Digits - 1 do begin
   if Value and (1 shl i) > 0
      then result := '1' + result
      else result := '0' + result;
  end;
   end;

Результат выводится в поле Memo1

procedure TForm1.StrToMemoFile(const St: String);
var
  I: Integer;
    S: String;
  
begin
   S := S + ' ' + inttoBin(Ord(St[I]),8);   // Bin
           memo1.Text := memo1.text + S;
        end;

Прсьба подсказать как разложить строки на биты, найти сочетание 111110 и из нее удалить 0 (6-й бит).Если можно то кодом
Спасибо!!!!

[Stilet]

как разложить строки на биты

Ух ты... Новый писк хакерской моды?
Допустим есть s:string тогда

for i;=0  to length(s) do Memo.Lines.Add(IntToBin(ord(s[i]),8));

Должон подать тебе раскладку в битах.
А вот насчет удаления 6 бита - это тебе нужно подправить функу IntToBin
в цикле

if i=6 then continue

Чтоб она шестой бит просто пропускала.

Ферштейн?

[alenkov]

Она будет пропускать 6-й бит в найденных 111110 ?

[alenkov]

Как это будет выглядеть в функции IntToBin

[Stilet]

Я написал как. Посмотри выше

[Serge_Bliznykov]

позволю себе прокомментировать совет Stilet (Виталий, простите, но, похоже, не может он понять, что и как... 100% функцию где-то готовую взял. И не понимает, что там как и как она работает...

function IntToBin(Value: integer; Digits: integer; SkipBit : integer): string;
var
  i: integer;
begin
  result := '';
  for i := 0 to Digits - 1 do begin
     if i<>(SkipBit-1) then begin
       if Value and (1 shl i) > 0
          then result := '1' + result
          else result := '0' + result;
     end;
   end;
   end;

внимание, SkipBit (бит, который пропустить, в данном примере передаётся при нумерации бит справа налево начиная с 1 (с единицы). Если удобнее нумеровать биты с нуля = то в условии сравнени выкинуть -1 (т.е. if i<>SkipBit then begin ... )

[Stilet]

похоже, не может он понять, что и как...

Плохо. Оч. плохо.

[DomiNick]

Ух ты... Новый писк хакерской моды?

Эм... Почему?

Есть функция

Ну... Это как бы хорошо...

Прсьба подсказать как разложить строки на биты, найти сочетание 111110

Ну разложить-то наверное как раз той самой функцией?
А что значит "найти сочетание"? Где найти?

и из нее удалить 0 (6-й бит)

Опять же не понятно... Удалить "ноль" или 6-й бит? И из кого удалить? Из строки которая в Memo? Или из числа в массиве?
Если из числа то что значит "удалить": 6-й бит занулить или со сдвигом куда-то? А может весь элемент массива удалить?

Если всё-таки из Memo то Delete(S, 6, 1) никто не отменял...

[Stilet]

Эм... Почему?

Ну... Байты разложить, число разложить, даже символ ACSII - это я понимаю.
А строку... Это ж сначала ее нужно разложить на символ, а если это китайский иероглиф? В общем жорсть.

[alenkov]

из числа 111110 6-й бит сдвинуть в лево