Скачать: CL | DM;

Работа с файлами   Найти похожие ветки 

← →
031178 ©   (2007-10-17 10:11) [0]

Добрый день, подскажите кто нибудь как мне допустим пробегаться по определенному каталогу и по очереди показывать файлы, допустим в TImage

---

← →
Сергей М. ©   (2007-10-17 10:15) [1]

см.  FindFirst/Findnext/FindClose

---

← →
Denis__ ©   (2007-10-17 13:44) [2]

Сначала скажи мне, как ты покажешь текстовый файл(или видео и тд неважно)в TImage?

---

← →
foreverDelphi ©   (2007-10-17 14:04) [3]

> Denis__ ©   (17.10.07 13:44) [2]
>
> Сначала скажи мне, как ты покажешь текстовый файл(или видео
> и тд неважно)в TImage?


для домашнего пользования вполне подойдет
 if FindFirst("image\*.*",faArchive,sr)=0 then begin
 if Pos(".bmp",sr.name)<>0 then sl.Append(sr.Name);
 end;
 while FindNext(sr)=0 do begin
 if Pos(".bmp",sr.name)<>0 then sl.Append(sr.Name);
 end;
 findClose(sr);

---

← →
Denis__ ©   (2007-10-17 14:08) [4]

> пробегаться по определенному каталогу и по очереди показывать
> файлы, допустим в TImage

И как тут связано с тем, что Вы,foreverDelphi, ищите файлы .bmp?

---

← →
foreverDelphi ©   (2007-10-17 14:11) [5]

> Denis__ ©   (17.10.07 14:08) [4]
>
>
> > пробегаться по определенному каталогу и по очереди показывать
>
> > файлы, допустим в TImage
>
> И как тут связано с тем, что Вы,foreverDelphi, ищите файлы
> .bmp?

я ж не сказал что ето правильно, но работать будет :)

---

← →
Skyle ©   (2007-10-17 14:12) [6]

> Denis__ ©   (17.10.07 13:44) [2]
> Сначала скажи мне, как ты покажешь текстовый файл(или видео
> и тд неважно)в TImage?

А в чём сложность?

---

← →
koha   (2007-10-17 14:15) [7]

> [2] Denis__ ©   (17.10.07 13:44)
> Сначала скажи мне, как ты покажешь текстовый файл(или видео
> и тд неважно)в TImage?


А в вопросе про текстовые файлы и не упоминалось.

---

← →
Denis__ ©   (2007-10-17 14:16) [8]

А там вообще про все файлы упоминалось. ИМХО надо вопросы корректнее задавать.

> А в чём сложность?

А как Вы себе это представляете?

---

← →
koha   (2007-10-17 14:43) [9]

> [8] Denis__ ©   (17.10.07 14:16)
> А там вообще про все файлы упоминалось. ИМХО надо вопросы
> корректнее задавать.
>
> > А в чём сложность?
>
> А как Вы себе это представляете?


- а какая тебе разница как он их будет просматривать, тебя совесть замучает, что человека на путь истиный не напрвил?
FindFirst("image\*.jpg,$3f,sr)=0 - ведь можно же потом и так дописать

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c