delchrstr - Функция удаляет все символы chr(n) из строки (Delphi)
//Функция удаляет все символы chr(n) из строки function delchrstr(s0:string; n:integer): String; var stemp:string; i:integer; begin stemp:=''; for i := 1 to length(s0) do if s[i]<>chr(n) then stemp:=stemp+s[i]; delchrstr:=stemp; end; Пример: удаление нулевых символов (нулей) из строки S if pos(chr(0),s)>0 then s:=delchrstr(s,0);