Работа с файлами

← →
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?

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

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

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

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

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

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

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

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