Prvo pitanje - sta ce ti ovo Sleep(3)? =)
Ne znam sta podrazumevas pod tim da sa for petljom ne radi, ali ja kao problem ovde vidim da ti u svakom prolazu kroz petlju u istu labelu upisujes razlicitu vrednost. Na primer, u situaciji da sva tri foldera postoje, za i = 0 dobijas label1.caption := 'postoji Zvukovi', zatim za i = 1 dobijas label1.caption := 'postoji Logovi', i na kraju za i = 2 dobijas label1.caption := 'postoji Slike'. Ova poslednja vrednost ('postoji Slike') ce po izvrsenju procedure i ostati vidljiva korisniku (ono 'postoji Zvukovi' i 'postoji Logovi' neces ni stici da vidis).
Ili umesto:
Code:
if FolderPostoji(edit1.Text + myarray[i])=true then label1.caption:='postoji ' + myarray[i];
... stavi nesto ovako (da sve upises u jednu labelu):
Code:
if (FolderPostoji(edit1.Text + myarray[i])) then label1.caption := label1.caption + ' postoji ' + myarray[i];
... ili stavi tri labele (label1, label2, label3), pa uradi nesto ovako:
Code:
if (FolderPostoji(edit1.Text + myarray[i])) then TLabel(Form1.FindComponent('label'+IntToStr(i+1))).Caption := 'postoji ' + myarray[i];
... gde je Form1 ime tvoje forme.
[
edit] Nisam odmah obratio paznju, sad sam ispravio, kad proveravas IF uslov ne moras da vrsis poredjenje sa TRUE, kao sto radis ovde:
Code:
if FolderPostoji(edit1.Text + myarray[i])=true then
... vec mozes direktno da koristis sam rezultat funkcije koji je bool(ean), tj. ovako:
Code:
if FolderPostoji(edit1.Text + myarray[i]) then
[Ovu poruku je menjao ((BugA)) dana 30.09.2011. u 11:38 GMT+1]