Lazarus解决无法识别中文路径的方法

Lazarus解决无法识别中文路径的方法

 1 procedure TForm1.Button1Click(Sender: TObject);
 2 var
 3   FileN:string;
 4 begin
 5    if self.OpenDialog1.Execute then
 6    begin
 7      filen:=UTF8ToAnsi(self.OpenDialog1.FileName);
 8      self.Memo1.Lines.SaveToFile(FileN);
 9    end;
10 end;

 

posted on 2013-07-27 18:27  向北方 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/China3S/p/3219932.html