Форум: "Начинающим";
Текущий архив: 2007.11.11;
Скачать: [xml.tar.bz2];
Вниз
Работа с файлами Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.074 c
