Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.11;
Скачать: 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 вся ветка

Текущий архив: 2007.11.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
2-1192991104
NiGGa
2007-10-21 22:25
2007.11.11
Delphi5 и константы


15-1191838328
Ega23
2007-10-08 14:12
2007.11.11
Кто тут про рабочее время и личную почту говорил?


2-1192726332
Malik
2007-10-18 20:52
2007.11.11
PopupMenu


15-1191463705
Slider007
2007-10-04 06:08
2007.11.11
С днем рождения ! 4 октября 2007 четверг


15-1191495261
Василий
2007-10-04 14:54
2007.11.11
PNG Delphi (Gustavo Daud) Как снимать ImageOver?