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

Вниз

Spisok Directroriy v TStringList e   Найти похожие ветки 

 
AndersoNRules ©   (2004-04-20 18:38) [0]

kak poluchiti spisok directoriy pervovo poryadka(toesti ne vlizati v poddirectorii)nahodyashyhsya v kakoy-to directoriy?
budu ocheni blagodaren!


 
AndersoNRules ©   (2004-04-20 18:38) [0]

kak poluchiti spisok directoriy pervovo poryadka(toesti ne vlizati v poddirectorii)nahodyashyhsya v kakoy-to directoriy?
budu ocheni blagodaren!


 
SammIk ©   (2004-04-20 18:44) [1]

procedure serall(const p:string);
var
sr:TSearchRec;
s:string;
begin
   if findfirst(p+"*.*",faAnyFile,sr)=0 then
   try
       repeat
       s:=p+sr.FindData.cFileName ;
   tstring.....:=s;

       until(findnext(sr)<>0);
   finally
             findclose(sr);
   end;
end;


 
SammIk ©   (2004-04-20 18:44) [1]

procedure serall(const p:string);
var
sr:TSearchRec;
s:string;
begin
   if findfirst(p+"*.*",faAnyFile,sr)=0 then
   try
       repeat
       s:=p+sr.FindData.cFileName ;
   tstring.....:=s;

       until(findnext(sr)<>0);
   finally
             findclose(sr);
   end;
end;


 
AndersoNRules ©   (2004-04-20 19:00) [2]

Ona vidaeot ne toliko directorii no i exe i zip rar lnk i txt
toesti shto-to ne to.
proboval vmesto faAnyFile staviti faDirectory, no k bolishemu uspehu ne privelo.shto delati?


 
AndersoNRules ©   (2004-04-20 19:00) [2]

Ona vidaeot ne toliko directorii no i exe i zip rar lnk i txt
toesti shto-to ne to.
proboval vmesto faAnyFile staviti faDirectory, no k bolishemu uspehu ne privelo.shto delati?


 
SammIk ©   (2004-04-20 19:20) [3]

А что не так?
Показывае дириктории . и ..?
Если так то вставь после
repeat
      s:=p+sr.FindData.cFileName ;
     if sr.FindData.cFileName[1]="."then Continue;
  tstring.....:=s;


 
SammIk ©   (2004-04-20 19:20) [3]

А что не так?
Показывае дириктории . и ..?
Если так то вставь после
repeat
      s:=p+sr.FindData.cFileName ;
     if sr.FindData.cFileName[1]="."then Continue;
  tstring.....:=s;



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

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

Наверх




Память: 0.45 MB
Время: 0.047 c
1-1082363352
Bohdan
2004-04-19 12:29
2004.05.09
TDirectoryListBox - Как показать скрытые директории?


7-1080149340
Neogrand
2004-03-24 20:29
2004.05.09
Системный приоритет


1-1082618636
Alex*
2004-04-22 11:23
2004.05.09
Как превести в PWideChar или как работает функция StringToWideCh


1-1082526440
31512
2004-04-21 09:47
2004.05.09
Маштабирование элементов управления на форме.


1-1082957632
voprosik
2004-04-26 09:33
2004.05.09
Динамический PopUp





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