Поиск в Linux идеальный, а в Винде проблематичный

[gc986]

Всем привет!

Написал приложение в Lazarus для Linux и всё работает идеально. Попробовал перекомпилировать код для винды и столкнулся с проблемкой - не получается произвести поиск файла по указанному пути; программа работает если поиск проводить в каталоге программы. А в линуксе-то всё работает!

Кто нибудь знает в чём дело ???

Вод этот код:

procedure GetFileCount(dir : string);
var fs : TSearchRec;
begin
ColFLST:=0;
if FindFirst(dir+'\*.lts',faAnyFile, fs)=0 then // Если заменить на - if FindFirst('*.lts',faAnyFile, fs)=0 then - то ищет в папке программы (вообщем хоть чтото работает . - - P.S. Путь к папке с файлами задаётся верно.
repeat
inc(ColFLST);
Form1.ListBox1.Items.Add(fs.Name); // Добавляем файл в список
until FindNext(fs)<>0;
SysUtils.FindClose(fs);
end;

[Brainenjii]

Проблема в кодировке. Используй нечто вроде такого для кроссплатформенного решения

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

FindFirst(UTF8ToSys(dir + DirectorySeparator + '*.lts'),faAnyFile, fs)=0


[Maxizar]

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

  if  (BaseDir='') or (not DirectoryExists(BaseDir)) then Exit; //Ааа нас обманули :)

  Dir := IncludeTrailingPathDelimiter(BaseDir);      //для Win ='\' Linux='/'
  iIndex := FindFirst(Dir+'*.*', faAnyFile, SearchRec);


dir + DirectorySeparator - не безопастно. вдруг dir уже имеет окончание.

[gc986]

Спасибо!!! Всё работает !!!