В чем ошибка?

← →
Pipety (2007-01-27 04:24) [0]

var ini:tinifile; i:integer; str:tstringlist; ... if (image2.Top >= image3.Top-30) and (image2.Top <= (image3.Top+10)+image3.Height) then begin if (image2.left >= image3.left-30) and (image2.left <= (image3.left+10)+image3.width) then begin timer1.Enabled:=false; Randomize; ini:=tinifile.Create(extractfilepath(application.ExeName)+"вопросы.txt"); str:=tstringlist.Create; ini.ReadSections(str); form2.label2.Caption:=ini.ReadString(str.Strings[vid],"good",""); form2.richedit1.lines.Text:=str.Strings[vid]; form2.Edit1.Text:=""; if vid < str.Count-1 then begin // ничего не делаем end else begin stoped:=true; if label2.Caption = inttostr(str.Count-1) then begin form3.label2.Caption:="Вы выиграли!"; form3.Image2.Picture.LoadFromFile(extractfilepath(application.ExeName)+"/images/good_p3.bmp"); end else begin form3.label2.Caption:="Вы проиграли!"; form3.Image2.Picture.LoadFromFile(extractfilepath(application.ExeName)+"/images/good_p4.bmp"); end; // if label2.Caption = in form3.ShowModal; end; // if vid < str.Count-1 th str.Free; ini.Free; if stoped = false then begin form2.showmodal; image3.Top:=RandomRange(5,image1.Height-5); image3.Left:=RandomRange(5,image1.width-5); end; // if stoped = false then timer1.Enabled:=true; vid:=vid+1; end; // if (image2.left >= image3.left-30) and (imag end; // if (image2.Top >= image3.Top-30) and (image2.Top <= (im

В этом коде проверяетися, "попадает ли" image2 в image3 и, если попадает, увеличивает счетчик vid на 1. Если vid str.count-1 (количество вопросов) то показать форму с вопросов str.strings[vid] в противном случае, показать форму form3, но она показывается до того как vid будет равен 3 т.е. она показывается когда равен 3, а надо 4.

← →
Loginov Dmitry © (2007-01-27 08:28) [1]

> В чем ошибка?

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

В чем ошибка? Найти похожие ветки