|
Тема
|
FindFirst - kyde byrkam ?
|
|
Автор | Sa (Нерегистриран) |
Публикувано | 16.05.02 13:17 |
|
LocalPath :...
FileAttrs := faAnyFile;
if FindFirst(LocalPath + '\*.*', FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then // bi tryabvalo tova vinagi da e TRUE, no ne vinagi e.. zashto ? Kyde byrkam ?
Mersi predvaritelno...
| |
Тема
|
Re: FindFirst - kyde byrkam ?
[re: Sa]
|
|
Автор |
Mandor (8-) |
Публикувано | 16.05.02 16:56 |
|
Почти дословно си повторил примера в Help-а на Delphi5...
Предположение:
Аргумента за атрибут е малко двузначен; ако зададеш два флага, това какво означава - че искаш файловете, които имат и двата флага или тези, които имат който и да е от тези флагове?
В случая Delphi-то (т.е. Windows-а) работи по втората схема; така получаваш файлове с установен който и да е от исканите атрибути, а ако искаш само тези, които имат установени и двата, ги филтрираш по посочения от теб начин.
| |
Тема
|
Знам ли?
[re: Sa]
|
|
Автор |
Pechenia (нема лабаво ;-) |
Публикувано | 16.05.02 18:39 |
|
Нещо не схванах... Преписах същия пример за FindFirst със един ListBox L и един бутон B. При натискане на бутона файловете и директориите от 'C:\*.*' се нахакват в L - независимо с какви атрибути са.
procedure TForm1.Button1Click(Sender: TObject);
var sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs := faAnyFile;
if FindFirst('c:\*.*', FileAttrs, sr) = 0 then
begin
if (sr.Attr and FileAttrs) = sr.Attr then L.Items.Add (sr.Name);
while FindNext(sr) = 0 do if (sr.Attr and FileAttrs) = sr.Attr then L.Items.Add (sr.Name);
FindClose(sr);
end;
end;
При тебе какви файлове не се прочитат?
чети и дишай по-леко
| |
Тема
|
Re: Знам ли?
[re: Pechenia]
|
|
Автор | Sa (Нерегистриран) |
Публикувано | 17.05.02 09:18 |
|
Obhogdam vsichki failove na c:\ (vkluchitelno i poddirektoriite) i sumata na razmera na failovete se razlichavashe ot tazi, koyato pokazva win-a (vseki pyt pokazva edno i systo chislo), kogato ya izpylnih postypkovo ne vyrhu celiya diska, a vyrhu direktoria na adobe (kydeto pak imashe razminavane, nyakoi direktorii obache si byaha nared) propuskashe faila WHAppList.xml ot direktoria C:\Documents and Settings\Administrator\Application Data\Adobe\Acrobat\Whapi.... Kato mahnah proverkata i vsichko si stana nared.... (ne sym tyrsil koi drugi failove propuska) strannoto e, che kogato tyrsya za fail, ko tyrsya kato anyfail i posle pri proverkata bi tryabvalo vinagi da e true...
| |
|
|
|
|