Código Delphi [-] for i:= 0 to length(Buffer) -1 do if Buffer[i] = #0 then Delete(Buffer, i, 1);
for i:= 0 to length(Buffer) -1 do if Buffer[i] = #0 then Delete(Buffer, i, 1);