在Delphi 中使用TFileStream以二进制方式保存文本文件注意事项

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;