программа слайдшоу

← →
b86 (2009-03-02 17:37) [0]

Драсте. Мне нужно сделать программу для слайд шоу. В одной книжке я нашёл как это сделать, но получилось что вернуться назад(на предыдущий слайд) она не может.
procedure NextPicture();
var
r:integer;
begin
aFile:=aPath + aSearchRec.Name;
Form1.Image1.Picture.LoadFromFile(aFile);
r:=FindNext(aSearchRec);
end;

я попробовал в FindNext заменить на FindPrev (самый хитрый же!), но не фига не фурычит. а очень хочется чтоб за фурычило! что делать?

← →
clickmaker © (2009-03-02 17:50) [1]

хм... а составить список файлов, хотя бы в стринглисте, не приходило в голову?

← →
b86 (2009-03-02 18:05) [2]

я не знаю, что такое стринглист.
можно переписать эту процедуру чтобы он шёл назад? если нельзя, то так и скажите. всего делов.

← →
Рамиль © (2009-03-02 18:10) [3]

Запоминай пути ко всем показанным файлам.

← →
clickmaker © (2009-03-02 18:12) [4]

стринглист - это TStringList
у него есть метод Add. И в цикле, вызывая FindNext, можно его заполнить. А потом уже ходить по нему взад-вперед, используя свойство Strings

← →
Плохиш © (2009-03-02 18:48) [5]

> b86 (02.03.09 18:05) [2]
>
> я не знаю, что такое стринглист.

Тогда стоит начать с основ выбранного языка программирования и среды разработки. Попробовать написать программу "HelloWorld".

b86 cрочно изучить следующие вещи

1 циклы - while, repeat, for
2 условия - if then else
3 операторы - and or not
4 типы основных переменных, хотя бы integer, string
4 иметь понятия об ООП
5 изучить TStringList и TImage

если это всё делать лень - то не стоит вообще браться за это дело.. поменяв пару буковок программа не изменится =) программирование это состояние души - нравится - надо учить и будет интересно.. не нравится? не забивай себе голову дурью

сорри если сурово =)

> b86 (02.03.09 17:37)
>
> Драсте. Мне нужно сделать программу для слайд шоу.

Что значит нужно?
Тебя заставили или ты сам этого хочешь без всякого принуждения?

программа слайдшоу Найти похожие ветки