用filewrite为什么写不了数据

Question

创建一个txt文件，写入'zzzzz'，但打开txt文件后，显示'嗾E '，而不是'zzzz',strdirpath:='c:\Temp\qq.txt';
intfilehandle:=filecreate(strdirpath);
strtemp:='zzzzz';
filewrite(intfilehandle,strtemp,sizeof(strtemp));
fileclose(intfilehandle);应该怎么写？

Answer 1

var 
  s:Textfile;
assignfile(s,filename);
rewrite(s);
writeln(s,'adfasfd');
closefile(s);

Answer 2

filewrite是内存中的缓冲区首地址，
试试filewrite(intfilehandle,strtemp[1],1);
就知道了

Answer 3

楼上说的对阿。
strdirpath:='c:\Temp\qq.txt';
intfilehandle:=filecreate(strdirpath);
strtemp:='zzzzz';
filewrite(intfilehandle,strtemp[1],Length(strtemp));
fileclose(intfilehandle);