关于 FileWrite

Question

procedure TForm1.Button1Click(Sender: TObject);
var FileHandle: Integer;Str:string;
begin
        FileHandle := FileCreate('Out.txt');
        Str:='我';
        FileWrite(FileHandle,Str,length(Str));
        fileclose(filehandle);
end;Out.txt是乱码
procedure TForm1.Button1Click(Sender: TObject);
var FileHandle: Integer;Str:string;
begin
        FileHandle := FileCreate('Out.txt');
        //Str:='我';
        FileWrite(FileHandle,'我',length('我'));
        fileclose(filehandle);
end;是正常，何解？

Answer 1

up up up没有人知道吗？

Answer 2

汉字不能用length来获取长度？

Answer 3

用
FileWrite(FileHandle,Str[1],length(Str));

Answer 4

to yhtang(请明月带问候)
  一样的问题：）

Answer 5

to yhtang(请明月带问候)
 不要意思，你是对的，就是FileWrite(FileHandle,Str[1],length(Str));

Answer 6

to yhtang(请明月带问候)
你的办法可以，我今天早上才来看，不好意思。结帖。这个问题真怪异。如果能讲一下具体原因，请 mail 我, [email protected]