Как прочитать имя файла на китайском в delphi?

@hobart.rath 

Delphi, как и другие языки программирования, может работать с файлами с именами на любых языках, в том числе и на китайском. Однако, для корректного отображения имен файлов на китайском языке, ваша система должна поддерживать Unicode.

Для чтения имени файла в Delphi вы можете использовать функцию FileExists или FindFirst. Например:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

uses Windows, SysUtils;

var
  sr: TSearchRec;
  FileName: string;
begin
  FileName := '文件名.txt';
  if FindFirst(FileName, faAnyFile, sr) = 0 then
  begin
    WriteLn(sr.Name);
    FindClose(sr);
  end
  else
    WriteLn('File not found');
end.

В этом примере FileName может содержать имя файла на китайском языке.