TFileStream类的Write方法第一个参数要求一个缓冲区地址,该值并非传统意义上的地址,delphi会根据传入变量的类型进行转换,注意以下几点:
1. 如果传入的是值,则其二进制数值被传入缓冲区
2. 如果传入的是字符串,PChar等类型,则将保存4个字节的指针地址,而不是字符串内容
3. 传递字符串时应使用str[1]或p[0]的形式,其中str为string类型,p为PChar类型
4. 可以直接以' ' 形式传递字符串参数
5. 不要忘记在Count参数中正确计算长度,特别是对Unicode及utf-8编码
测试函数:
procedure test();var s:TFileStream; txt:string; p:PAnsiChar; len1,len2:Integer; filename:string; a:Integer; buf : array[0..3] of Char;begin txt := 'test测试文本'; len1 := Length(txt); len2 := StrLen(p); filename := 'test.txt'; len2 := SizeOf(Char); //p := #$ff#$fe;
if not FileExists(filename) then begin s := TFileStream.Create(filename,fmCreate or fmShareDenyWrite); end else begin s := TFileStream.Create('test.txt',fmOpenWrite or fmShareDenyWrite); end;
if (len2 = 2) then begin //s.Write(p[0], 2); // 保存为unicode编码文件 end;
p := #$ff#$fe; s.Write(p[0],2); s.Write(len1,SizeOf(len1)); s.Write(txt,SizeOf(txt)); s.Write('______',6*sizeof(Char)); s.Write(txt[1],Length(txt)*sizeof(Char)); txt := #$d#$a; s.Write(txt[1],Length(txt)*sizeof(Char)); s.Free;end;