请教TFileStream.write和Delphi中的数组指针相关问题

2010-11-29 11:41:07 359 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›



procedure TForm1.btn1Click(Sender: TObject);

var

  verifyMsg         : array[0..48] of Char;

  signedLen         : Integer;

  verfyFile         : TFileStream;

  str               : string;

begin

  str := 'hello world';

  FillChar(verifyMsg, SizeOf(verifyMsg), 0);

  CopyMemory(PChar(@verifyMsg[0]), PChar(@str[1]), Length(str));   //要从str[1] 开始copy

  verfyFile := TFileStream.Create('c:\\test.data', fmCreate or fmShareDenyRead);

  //方法 1

  //verfyFile.Write(pchar(@verifyMsg[0])^, Length(verifyMsg));    //OK 工作正常

  //方法 2

  //  verfyFile.Write(verifyMsg, Length(verifyMsg));                  //OK 工作正常



  //方法 3

 // verfyFile.write(pchar(str)^,length(str));      //OK 工作正常

 //方法 4

 //wrong  是不是因为string 内部结构不一样,如从索引1开始存储的是内容,方法3中的 pchar(str) 其实内部已经转换了.

 // verfyFile.write(str, length(str));



 //方法 5 OK  从索引1开始.

  verfyFile.write(str[1], length(str));

  freeAndNil(verfyFile);



end;

Q1:
function THandleStream.Write(const Buffer; Count: Longint): Longint;
这个函数的签名.buffer 类型是什么,好像是没有定义?它的意思是不是不是指针类型也行,具体根据buffer参数而定.

Q2:
方法一的代码是从网上看的,感觉完全是脱裤放屁,pchar(@verifyMsg[0])^ 先取数组指针,再转PChar再反解引用,于是我改成方法二了,工作正常,我的理解对么?在其他地方应用时,delphi中的数组名是不是也可以当成数组指针使用?

Q3:
方法4是有问题的, 是不是因为string 内部结构不一样,如从索引1开始存储的是内容,方法3中的 pchar(str) 其实内部已经转换了,把string转换成了char数组的指针了.所以方法3.4 的问题和1.2 不一样了.

请大家多多指教.

...全文