Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 01.10.2012, 17:17
Аватар для ined
ined ined вне форума
Начинающий
 
Регистрация: 16.11.2008
Адрес: Российская Федерация!! :)
Сообщения: 165
Версия Delphi: Delphi 2010
Репутация: 1272
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
path:=extractFileDir(Application.ExeName);
//Загрузка картинок танков
for i:=1 to 4 do
for j:=1 to 2 do
begin
Tanki[1,i,j]:=Tbitmap.Create;
Tanki[2,i,j].TransparentColor:=clwhite;
Tanki[1,i,j].LoadFromFile(path+'\img\'+'t'+inttostr(i)+inttostr(j)+'.bmp');
Tanki[2,i,j]:=Tbitmap.Create;
Tanki[2,i,j].TransparentColor:=clWhite;
Tanki[2,i,j].LoadFromFile(path+'\img\'+'q'+inttostr(i)+inttostr(j)+'.bmp');
end;
В этом блоке я нашёл ошибку.
__________________
11011111 INED Home code
VK
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:35.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter