Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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!


 
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?


 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
14-1079624431
nastojashij Kamerad
2004-03-18 18:40
2004.04.11
KAMERAD: "Я DELFI ПОЧЕНИЛ"!


3-1081433101
ShaG
2004-04-08 18:05
2004.04.11
Excel в DataSet


14-1082011916
LaidBack
2004-04-15 10:51
2004.04.11
Люди! Вышлите мне файл таблицы *.tps, пожалуйста!


3-1081752975
student
2004-04-12 10:56
2004.04.11
MSSQL через ADO


1-1080224141
alex732
2004-03-25 17:15
2004.04.11
Цвет текста в RichEdit