|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
qhq (qhq) |
★☆☆☆☆ |
-
|
普通会员 |
|
2006/1/10 23:17:38 |
标题: |
|
加入我的收藏 |
楼主: |
以下代码写入的时候总是无发正常写入UTF8编码的字符串 总是3个字节一个00
function WriteBlock(Filename: String;Sname:AnsiString;RStart:Integer): String; var Buf: array of Char; f:file; begin fillchar(Buf,SizeOf(Buf),0); Assignfile(f,Filename); reset(f,1); seek(f,RStart); Sname:=ANSIToUTF8(Sname); SetLength(buf,Length(Sname)); StrpCopy(@buf[0],Sname); blockwrite(f,buf,Length(Sname)); Closefile(f); end;
procedure TForm1.Button2Click(Sender: TObject); var Sname:AnsiString; begin Sname:=(edit5.text); WriteBlock(filep,sname,$8DD3C8); end;
----------------------------------------------
- |
作者: |
51sh (51sh) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2006/1/11 8:38:03 |
1楼: |
你转来转去,还是AnsiString!
----------------------------------------------
-
|
作者: |
|
2006/1/11 13:39:46 |
2楼: |
blockwrite(f,Pointer(buf)^,Length(Sname));
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
|
|