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

http://www.cnblogs.com/China3S/p/3219932.html

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;