Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.041 c
