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

    技术2022-05-19  25

    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;

     

     


    最新回复(0)