удаление байтов

[varelik]

Доброго дня. Ай нид хэлп. Такой вопрос появился:
есть ли функция, аналогичная pos() для строк, но оперирующая с байтами?
Ситуация:В своей проге я из буфера COM-порта принимаю байты, приходящие с внешнего устройства: b:=com1.getbyte;//b:byte
Потом я их в worde отображаю.
Но среди принимаемых байт содержится некий набор букв 'АВС', который среди этих байт может оказаться ГДЕ УГОДНО. От последовательности букв 'АВС' мне и надо избавиться.

[raxp]

эм... а вы случаем отображаете не hex- варианты ? (ибо a b c це числа)

[varelik]

raxp, да да.
вобщем, пример:

АВС JKKJHK ABC 7979
GG545657667
ABC

Итого, 'АВС' мне надо убрать, а все остальное отобразить в Word.

[raxp]

ну, раз итог у вас в строке, то для поиска таже pos и delete для удаления... но никто не мешает убрать числа $a $b $c до преобразования... например если берете отсюда b:=com1.getbyte; - так и проверьте, что if (b <> $a) and (b <> $b) and (b <> $c) или через in

[Stilet]

аналогичная pos() для строк, но оперирующая с байтами?

Можно байты эти в строку пихнуть, и pos будет с ними как с символами работать.

[varelik]

Вобщето не так все просто, на самом деле чуть ошибся:

АВС JKKJHK ABC 7979
АВ545657667
ABC

во 2й строке: АВ545657667.
если я изначально сделаю if (b <> $a) and (b <> $b) and (b <> $c), то во
2й строке получу: 545657667, а надо: АВ545657667.
т.е. мне именно ПОСЛЕДОВАТЕЛЬНОСТЬ букв 'АВС' надо убрать.
И еще: в Word (в одной из процедур) я отображаю так:
keypress(b); где b:byte.
Сама процедура keypress:

procedure tform1.keypress(b:byte);
----
begin
if ((b=$45) or (b=$36) or и т.д.) then begin
vk:=b;
keybd_event(vk,scan,flags,extrainfo);
----
end;

[varelik]

Stilet,Если в строку пихну типа так: вместо keypress(b);
напишу: n:=n+chr(b);
keypress(strtoint(n));
ошибку выдаст:
'A' is not valid of integer value

[raxp]

нажатие клавиш через com-порт, интересный вариант... работаете на удаленной машине.

во 2й строке: АВ545657667.
если я изначально сделаю if (b <> $a) and (b <> $b) and (b <> $c), то во
2й строке получу: 545657667, а надо: АВ545657667.

дык, оставьте проверку на $c до преобразования или используйте pos на символ "c" после преобразования в строке и delete найденной позиции.

[varelik]

не, не совсем так. Если непонятно излагаю мысль, извиняюсь (подустал).
Еще раз:
из

АВС JKKJHK ABC 7979
АВ545657667
ABC

должно получиться:

JKKJHK  7979
АВ545657667

Как (если можно) написать, что если КАКИЕ-ЛИБО БАЙТЫ ИДУТ ПОДРЯД, наподобие:
if (b=$45+$46) //это конечно неправильно
..........
то выполнять 'определенное действие' ?

[raxp]

вот то-что вы хотите...

var s: string;
    i: integer;
    p: boolean;
begin
 //
 s:= 'ABC JKKJHK ABC 7979 AB545657667 ABC';
 p:= true;

 while (p) do begin // удаление комбинации ABC из строки
  i:= pos('ABC', s);
  //memo1.Lines.Add(inttostr(i));
  if i>0 then delete(s,i,3);
  if i=0 then p:= false
 end;
 caption:= s
end;