PHP DM Gate v0.9 » Слайд шоу не работает <span class="vd">[D2005, XP]</span>

Сергей М. © (31.03.08 21:50) [20]

> не следует изменять значение управляющей переменной внутри
> цикла

Да, не следует.

> Ситуация осталась неизменной

А что принципиально изменилось ?
Ничто.

Код как был неверным по логике, так им и остался, несмотря на то что отпущен один из "грехов".

Пробуй вставить в тело цикла вызов

Application.ProcessMessages

Ощути разницу.

Думай. Много.

<Цитата>
{RASkov} © (31.03.08 21:50) [21]

> Собственно это не ошибка и ничего страшного не произойдет,
> об этом позаботились более умные программисты в сеттерах
> свойств...

Черт, не докончил мысль...

..., но говорит о плохой подготовки "текущего"(в данном случае тебя) (горе)программиста...

<Цитата>
Ramzes001 © (31.03.08 21:50) [22]

{RASkov}А как повысить этот приоритет?

<Цитата>
{RASkov} © (31.03.08 21:54) [23]

> [19] Ramzes001 © (31.03.08 21:48)
> {RASkov} Ну что значит "код бредовый"?

А то и значит...
Это значит, что в голове у тебя совсем не то что нужно :(

> Всё работает

Через каку все работает.... а тебя это к сожалению устраивает :(

> да и она грузится, но только последняя

Они все грузятся, но почитай про сообщение выше...

> Я не говорю, что это эталон, но ведь почти всё работает!

Лучше исправь все по нормальному :) Сергей вон тебе подсказал.... но не нужно бездумно вставлять в бредовый код спасительную строчку.

<Цитата>
{RASkov} © (31.03.08 21:55) [24]

> [22] Ramzes001 © (31.03.08 21:50)

никак :) Просто это нужно знать и учитывать)

<Цитата>
DDR (31.03.08 22:03) [25]

чё-чё, а ребята правильно говорят: не страдать фигнёй, а включать голову и думать!

Я сам почти ТРИ (!) месяца писал аналогичную прогу, и пару раз переписывал ее "с нуля"!

Вот тебе подсказка, но дальше ты сам!

var
Form1: TForm1;
Nomer, i: integer; // для определения позиции списка

procedure TForm1.Next; //листание по списку
begin
Inc (Nomer);
if Nomer > (listbox1.Items.Count-1) then
Nomer := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
next;
end;
.........
Дальше ты просто ОБЯЗАН думать сам!
Извини.

<Цитата>
{RASkov} © (31.03.08 22:08) [26]

> [16] Ramzes001 © (31.03.08 21:41)
> GetMem(PCh,Length(filepach + guber[prokrut] + '.wav')+1);

И зачем все эти манипуляции с памятью?
Примерно вот как выглядит твой цикл:
//Развёртывание окна во всю ширину, просто при загрузки картинки оно съезжает вниз
WindowState := wsMaximized;
for I :=megaguban to neve do
begin
with Image1.Picture do
begin
//Загрузка самой картинки
LoadFromFile(filepach + guber[i]);
//Наполнение заголовка названием фотки
Application.ProcessMessages;
Caption:=guber[i];
//Дальше идёт воспроизведение звука
PlaySound(PChar(filepach + guber[i] + '.wav'), 0, SND_FILENAME or SND_SYNC); //С именем не совсем понятно, но это тебе виднее
end;
end;
end;

<Цитата>
{RASkov} © (31.03.08 22:09) [27]

> [25] DDR (31.03.08 22:03)
> Вот тебе подсказка, но дальше ты сам!

Да уж... :) Наподсказывал тут не о чем...)

<Цитата>
DDR (31.03.08 22:23) [28]

{RASkow}, это же типа толчок :) Человеку нужно понять, а он не может (или не хочет), ну.... я поделился своими мыслями. Может быть, может быть.... я чёта не догнал или лишнее состряпал.

<Цитата>
Ramzes001 © (31.03.08 22:28) [29]

Прошу прощения что так долго не писал, просто Нет у меня очень сильно логал. Всем спасибо всё работает просто надо было вставить Application.ProcessMessagesж и всё отлично работает, а вообще значит код был не убитый, протестую, идея была хорошей, ещё раз всем спасибо.
P.S. В своё оправдание хочу сказать, что мне 15 лет и я-сомоучка.

<Цитата>
DDR (31.03.08 22:30) [30]

а мне 27 лет и сАмоучка :)
Удачи тебе!

<Цитата>
Сергей М. © (31.03.08 22:30) [31]

> я-сомоучка

Интересно, чему ты учишь сомов ?)

<Цитата>