[code delphi]
var
vstream:tfilestream;
c:array[1..100] of char;
s:string;
begin
vstream:=tfilestream.Create('c:\1.txt',fmopenread);
setlength(s,100);
vstream.Read(c,100);
move(c,s[1],100);
showmessage(inttostr(pos(#00,s)));
showmessage(s);
vstream.Free;
end;
[/code]

本程序读取1.txt中的100个字节，在100个字节中有#00，而win32程序中#00是作为字符串结尾的，所以用showmessage(s)无法显示100字节中#00以后的字符，但是pos能够在程序中找到#00的位置，而且在调试的时候，变量s中也显示的完整的100个字符串。

请各位帮帮忙，看看如何才能showmessage字符串中所有的字符。

從程式來看
你會做一個 inttostr()的動作，既然showmessage()無法處理＃0
那麼不如直接用一個迴圈做數值轉字串的處理
for i:=1 to 100
begin
s[i] := chr(s[i] 48);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
vstream:tfilestream;
c:array[1..100] of char;
s:string;
i:integer;
begin
vstream:=tfilestream.Create('d:\1.txt',fmopenread);
setlength(s,100);
vstream.Read(c,100);
move(c,s[1],100);
i:=pos(#0, s);
while i>0 do
begin
s:=copy(s,1,i-1) ' ' copy(s,i 1,100);
i:=pos(#0, s);
end;
showmessage(s);
vstream.Free;
end;

------
What do we live for if not to make life less difficult for each other?

非常感谢楼上大侠。！！！