如何替换文本文件中的16进制信息??? ( 积分: 100 )

比如我有一个A.TXT的文本文件 现在文本文件中有一种特殊的空格和普通的空格 但用字符表示都是空格 这种特殊的空格用16进制表示是$00 而普通的是$20 我现在想把所有普通的替换成这种特殊的 该怎么做呢? 如何读入这种特殊的文本 貌似用普通的读取文本文件的方法不行!

procedure TForm1.Button1Click(Sender: TObject);
var
pC: PChar;
I : Integer;
begin
with TFileStream.Create('./A.txt', fmOpenReadWrite) do
begin
if Size > 0 then
begin
GetMem(pC, Size);
Seek(0, 0);
Read(pC^, Size);
for I := 0 to Size - 1 do
if pC = #20 then
pC := #0;
Seek(0, 0);
Write(pC^, Size);
FreeMem(pC);
end;
Free;
end;
end;

好使么...

感谢Miros,问题解决了