请高手看看这个TFileStream的写操作问题

Question

procedure TForm1.Button2Click(Sender: TObject);
//向C:\1.txt中写入该文件的扩展名
var
pData:PChar;
filestream:TFileStream;
strfileName:Ansistring;
begin
  strfileName:=ExtractFileExt('C:\1.txt');
  pData:=PChar(strfileName);
  filestream:=TFileStream.Create(self.Edit1.Text,fmOpenWrite);
  try
  filestream.WriteBuffer(pData,Length(pData));
  finally
  filestream.Free;
  end;
end;当我再读出来的时候确是乱码，请高手指点这是为什么

Answer 1

楼主这一句就犯了两个错误.
  filestream.WriteBuffer(pData,Length(pData));
改成
  filestream.WriteBuffer(pData^,Length(strfileName));

Answer 2

多谢指教
但不知为什么要在pData后加^号呢

Answer 3

pData是一个字符指针,pData^是其内容
这是指针的基本用法,
在这里你不是传你的指针,而是传你的内容,所以要加^