Форум: "Система";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Внизdir Найти похожие ветки
← →
kima (2002-08-05 18:30) [0]Не знаю много ли этот вопрос спрашивался
но как узнать имена файлов в директории
и положить их в array of string?
← →
Странный Прохожий (2002-08-05 18:35) [1]См. FAQ или
FindFirstFile() -- FindNextFile() -- CloseHandle() Win32 API
← →
kima (2002-08-05 20:17) [2]спасибо щас буду разбираться
← →
zavdim (2002-08-06 08:36) [3]var Source: string;
sr: TSearchRec;
FileAttrs: Integer;
Files : TStringList;
begin
Files := TStringList.Create;
FileAttrs :=faAnyFile;
Source:= YorsDirectory+"\";
if FindFirst(Source+"*.*", FileAttrs, sr) = 0 then
begin
repeat
Files.Add(sr.Name)
until FindNext(sr) <> 0
end;
//---
//А тут чего надо то и делай
//--
end;
← →
Song (2002-08-06 08:41) [4]>>и положить их в array of string?
Самый лёгкий array of String: TListBox+LB_DIR
← →
zavdim (2002-08-06 11:15) [5]2Song
А чем TStringList не нравится?
← →
Song (2002-08-06 11:29) [6]>А чем TStringList не нравится?
Да нравится, просто нужно ещё цикл с TSearchRec делать.
← →
Dimka Maslov (2002-08-07 12:30) [7]http://delphibase.endimus.com/?action=viewfunc&topic=fileops&id=10046
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c