Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Вниз

FindFirst, FindNext   Найти похожие ветки 

 
Sliski Slimak   (2003-04-23 16:34) [0]

Привет всем!

что это такое, может кто объяснит..

в папке 2 текстовых файла.....

if FindFirst ("папка\*.*,s")=0 then
begin
Memo1.lines.add (s.name);
while FindNext (s)=0 do
begin
Memo1.lines.add (s.name);
end;
end;

и вижу в Мемо такой текст

.
..
1.тхт
2.тхт

что это за точки?


 
panov   (2003-04-23 16:36) [1]

Основы ОС надо знать.

. - фиктивныя ссылка, указывающая на текущий каталог
.. - фиктивныя ссылка, указывающая на каталог уровнем выше


 
MortalScorpion   (2003-04-23 16:36) [2]

Одна точка - это твой каталог
Две точки - это предыдущий каталог


 
Proton   (2003-04-23 19:41) [3]

Позволю себе наглость неколко модифицировать ваш пример


sr := FindFirst ("папка\*.*",s);
while sr = 0 do
begin
Memo1.lines.add(s.name);
sr := FindNext (s);
end;


 
Song   (2003-04-23 19:49) [4]

FindClose() забыли


 
Sliski Slimak   (2003-04-24 04:50) [5]

Спасибо....
Будем знать основы ОС ;)


 
Palladin   (2003-04-24 10:34) [6]

что бы знать основы ОС
начинай ты лучьше с DOS



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-20291
BOA_KAA
2003-06-20 14:07
2003.07.07
PowerPoint


14-20214
Дмитрий К.К.
2003-06-22 10:34
2003.07.07
Именинники 22 июня


14-20309
Тих
2003-06-21 00:39
2003.07.07
Что это такое?


3-19962
Саня
2003-06-06 17:49
2003.07.07
Как создать вычисляемое поле


14-20277
Omar2002
2003-06-07 17:43
2003.07.07
Траблы со мной и форумами!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский