Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с файлами [D7]

031178 © (2007-10-17 10:11:00)
Добрый день, подскажите кто нибудь как мне допустим пробегаться по определенному каталогу и по очереди показывать файлы, допустим в TImage

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

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

Denis__ (2007-10-17 14:16:00) [2]
А там вообще про все файлы упоминалось. ИМХО надо вопросы корректнее задавать.

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

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

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

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

Skyle (2007-10-17 14:12:00) [4]

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

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

foreverDelphi (2007-10-17 14:11:00) [5]

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

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

Denis__ (2007-10-17 14:08:00) [6]

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

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

foreverDelphi (2007-10-17 14:04:00) [7]

> 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 13:44:00) [8]
Сначала скажи мне, как ты покажешь текстовый файл(или видео и тд неважно)в TImage?

Сергей М. (2007-10-17 10:15:00) [9]
см. FindFirst/Findnext/FindClose

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »