FreePascal.ru

Всем спасибо, решил с помощью UTF8ToCP1251 и добавлением в uses LConvEncoding. Другие варианты не проверял, так как решил свой вопрос после первого поста. Вариант с короткими именами файлов кажется перспективным из-за "отвязки" от кодировок но хотельсь бы проверить как он отработает при определенных ...

Добрый день, использую Windows Xp, Lazarus 1.6.2, FPC 3.0.0
Для открытия каталога в проводнике использую код

procedure TForm1.Button1Click(Sender: TObject);
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := 'explorer.exe C ...

Огромное спасибо, все получилось !

Вначале все Ваши "aDate" положите в tmpList:TStringList; затем запустите tmpList.Sort;, и только потом загружайте отсортированный список в TreeView1

Спасибо vitaly_l, сделал на основе Вашей подсказки
aFiles:= TStringList.Create;
aFiles:= FindAllFiles(DirectoryEdit1.Directory ...

Здравствуйте, помогите найти правильный путь для решения следующующей задачи.
Просканировать все файлы в заданном каталоге (получить полный путь к файлу и дату последнего изменения) и на основе этих данных заполнить двухуровневый TreeView:
1 уровень - дата последнего изменения файла, 2 уровень - пуь ...

Добрый день, в Lazarus для поиска файлов использую функцию FindAllFiles которая объявлена в FileUtil.pas

function FindAllFiles(const SearchPath: String; SearchMask: String = '';
SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory): TStringList; overload;

Подскажите ...