не видет каталоги с русскими символами при поиске с

[svsd_val]

Код: Выделить всё

uses sysutils;

Procedure ListDir(CurDir:String);
var
  F : TSearchRec;
begin
  if FindFirst(CurDir+'*.*', faAnyFile, F ) = 0 then
    repeat
     writeln('->',curdir+F.name);
    until FindNext(F)<>0;
  FindClose(F);
end;

begin
ListDir('/home/user/');
end.


выводит всё , кроме каталогов с русскими буквами , и также если искать в каталоге с русским буквами не видет другие подкаталоги =(((

что делать ?!

------
проверил , он даже обыкновенные каталоги невидет =( только те в которых есть '.' например '.opera' =((((

[Kubanych]

Сделай так:

Код: Выделить всё

    uses sysutils;

    Procedure ListDir(CurDir:String);
    var
      F : TSearchRec;
    begin
      if FindFirst(CurDir+'*', faAnyFile, F ) = 0 then
        repeat
         writeln('->',curdir+SysToUtf8(F.name));
        until FindNext(F)<>0;
      FindClose(F);
    end;

    begin
    ListDir('/home/user/');
    end.


Смотри также пример из моей книги "Основы программирования в среде Lazarus", стр. 659.

[Сквозняк]

Смотри также пример из моей книги "Основы программирования в среде Lazarus", стр. 659.

Не сохранилось ли у вас исходников книги? В html на ПК читать удобнее.

[svsd_val]

Kubanych
Ага, рабит, Спасибо =)
однако недолго думая решил пойти другим путём, который тоже работает ^_^

Код: Выделить всё

Procedure ListDir(CurDir:String);
Var _Dir  : PDir;
      _Dirent : PDirent;
begin
  _Dir := fpOpenDir(curdir);
  Repeat
    _Dirent := fpReadDir (_Dir^);
    If _Dirent<>Nil then
       WriteLn( pchar(@_Dirent^.d_name[0]) );
  Until _Dirent=Nil;
  fpCloseDir (_Dir^);
end;