На главную

Назад

//Функция удаляет все символы 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);