- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
For i := 0 to 7 do
Begin
If ((iMass[i])[1] = dClick.xAlf) and (StrToInt((iMass[i])[2]) = dClick.yFlt) then
BegiN
cObject.Caption := '';
If (i = 1) or (i = 2) then
Begin
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier1.bmp');
Break;
End;
If i = 4 then
Begin
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier3.bmp');
Break;
End;
If i >= 5 then
Begin
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier2.bmp');
Break;
End;
(Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier'+IntToStr(i + 1)+'.bmp');
Break;
EnD;
End;
Мой высер. За неимением идей, больше ничего придумать не смог.
Вы издеваетесь или пишете на пхп?)
это примерно как гоуту
еще никто не знал про MVC, про трехзвенную архитектуру, про паттерны и рефакторинг, текстовые терминалы "glass tty" подключались к мейн-фреймам по сериальному порту, но все уже значли что меджик наберы это калл.
правильно, надо же как-то канализацию проектировать
Сионисты.
кстати-то, юзверей зарегено почти три тыщи, а активничает десятка два. Остальные - "мертвые души" т.н. "возмездия"?