![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
программа слайдшоу [D7, XP]
b86 © (2009-03-02 17:37:00)Драсте. Мне нужно сделать программу для слайд шоу. В одной книжке я нашёл как это сделать, но получилось что вернуться назад(на предыдущий слайд) она не может.
procedure NextPicture();
var
r:integer;
begin
aFile:=aPath + aSearchRec.Name;
Form1.Image1.Picture.LoadFromFile(aFile);
r:=FindNext(aSearchRec);
end;
я попробовал в FindNext заменить на FindPrev (самый хитрый же!), но не фига не фурычит. а очень хочется чтоб за фурычило! что делать?
Германн (2009-03-03 00:34:00) [1]
> b86 (02.03.09 17:37)
>
> Драсте. Мне нужно сделать программу для слайд шоу.
Что значит нужно?
Тебя заставили или ты сам этого хочешь без всякого принуждения?
faiwer (2009-03-02 22:18:00) [2]b86 cрочно изучить следующие вещи
1 циклы - while, repeat, for
2 условия - if then else
3 операторы - and or not
4 типы основных переменных, хотя бы integer, string
4 иметь понятия об ООП
5 изучить TStringList и TImage
если это всё делать лень - то не стоит вообще браться за это дело.. поменяв пару буковок программа не изменится =) программирование это состояние души - нравится - надо учить и будет интересно.. не нравится? не забивай себе голову дурью
сорри если сурово =)
Плохиш (2009-03-02 18:48:00) [3]
> b86 (02.03.09 18:05) [2]
>
> я не знаю, что такое стринглист.
Тогда стоит начать с основ выбранного языка программирования и среды разработки. Попробовать написать программу "HelloWorld".
clickmaker (2009-03-02 18:12:00) [4]стринглист - это TStringList
у него есть метод Add. И в цикле, вызывая FindNext, можно его заполнить. А потом уже ходить по нему взад-вперед, используя свойство Strings
Рамиль (2009-03-02 18:10:00) [5]Запоминай пути ко всем показанным файлам.
b86 (2009-03-02 18:05:00) [6]я не знаю, что такое стринглист.
можно переписать эту процедуру чтобы он шёл назад? если нельзя, то так и скажите. всего делов.
clickmaker (2009-03-02 17:50:00) [7]хм... а составить список файлов, хотя бы в стринглисте, не приходило в голову?