Lazarus解决含中文文件名或路径的使用问题

 

    其实用lazarus很久（也不算久啦。。），目前打算做完手头的最后一个小程序然后就转向c#窗体程序。。之前用lazarus的时候出了很多问题，资料也不是很好找，所以这回把比较容易说的记下来省得忘掉。

    Lazarus读取中文文件名并显出来这个过程并没多大问题，但是实际会出现各种各样的问题。比如加载一个路径或标题包含中文的文件，软件显示出来的路径甚至正常但是就是不能正常使用文件。那么，先上解决方案好了。。

当你获取文件路径时，这样处理文件路径：

  pathvar:=utf8toansi(FilePath); 

这样之后，使用文件时就可以通过pathvar调用文件而不出错。不过，如果这样处理后，想要在窗体中显示文件名，你还需要做如下工作：

  Label1.Caption:=ansitoutf8(FilePath);

实际使用时，你需要使用的是转为ansi的路径字符串，但是为了显示不出乱码，你需要将处理过的路径在显示时转回utf8.

我的某个程序中的一部分代码(节选)：

  with OpenDialog1 do
  begin
    Filter:='TGE GUI File(*.gui)|*.gui';
    DefaultExt:='gui';
    FileName:='';
    Options:=[ofHideReadOnly,ofEnableSizing];
    if Execute then
      if ofExtensionDifferent in Options then
        Options:=[ofHideReadOnly,ofEnableSizing]
      else
        begin
        filepath:=utf8toansi(FileName);         //*1
        end;
  end;
end;
  Label1.Caption:=ansitoutf8(filepath);         //*2
  if not FileExists(PChar(filepath)) then exit; //*3 
  assignfile(guiFile, filepath);//'test.gui'
  reset(guiFile);
  assignfile(guiFile, filepath);//*4
  reset(guiFile);     

     上面的代码中，FileName就是直接获取到的文件的路径，在一开始（*1）用filepath记录了变量。之后在下面（*2）为了显示正常而转回utf8用语Label的显示，之后在（*3和*4）的调用中，直接使用了filepath。这样就是正常的了。

    以上是上面所摘抄部分代码的原来的程序执行时的样子。