[alikskonst]

да, от процедуры отказался сразу

решил по другому (цикл перелопачивания содержимого папки оставил):

var

lst1:TSearchRec;

begin

//

---

Form1.sImageList1.Items.Clear;

if FindFirst(ExtractFilePath(ParamStr(0))+'homeplimglist1*.png',faAnyFile,lst1)=0 then

begin

repeat

if FileExists(ExtractFilePath(ParamStr(0))+'homeplimglist1'+lst1.Name) then

begin

Form1.sImageList1.LoadFromFile(ExtractFilePath(ParamStr(0))+'homeplimglist1'+lst1.Name);

end;

until FindNext(lst1)<>0;

FindClose(lst1);

end;

//

---

end;

спасибо за помощь

[alikskonst]

оке, спс, сейчас попробую все это в цикл впихнуть

если получится, то я здесь код покажу

[alikskonst]

тип файлов всегда один – png

[alikskonst]

к примеру, чтобы заполнить комбобокс именами скинов, чтобы пользователь мог выбрать нужный ему:

var

sr:TSearchRec;

…

//

---

Form1.sComboBox3.Items.Clear;

if FindFirst(ExtractFilePath(ParamStr(0))+'homeglobalsettingsskn*.asz',faAnyFile,sr)=0 then

begin

repeat

if FileExists(ExtractFilePath(ParamStr(0))+'homeglobalsettingsskn'+sr.Name) then

begin

sr.Name:=Copy(sr.Name,0,Pos('.',sr.Name)-1);

Form1.sComboBox3.Items.Add(sr.Name);

end;

until FindNext(sr)<>0;

FindClose(sr);

end;

//

---

…

я так понимаю, по такому же принципу нужно перебрать и папку с картинками, заполняя items компонента

но не выходит

[alikskonst]

программно разумеется

вся беда в том, что содержимое папки циклом я могу перебрать

а вот как все, что я получил запихать в компонент, это я не победил

иначе проект пухнет из-за картинок неимоверно

[Author]

Posts