Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.56 MB
Время: 0.04 c
7-56380
kima
2002-08-11 15:44
2002.10.17
clipboard


14-56326
Shadow
2002-09-23 21:42
2002.10.17
Кто я такой, и зачем живу?


3-55992
АлексейЦ
2002-09-26 10:24
2002.10.17
Редактирование после сортировки посредством TQuery


1-56070
Демонов Е.В.
2002-10-08 15:29
2002.10.17
Приостановка выполнения проги при перемещении за title


1-56199
Weare
2002-10-07 17:32
2002.10.17
Сумма прописью





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский