Быстрый поиск текстуры по имени

[Alex Cones]

В данный момент пересоздаю систему отрисовки. Расклад такой - Программист Пользователь вызывает функцию CreateTexture или LoadTexture и получает номер в каталоге, который это текстура получит. И далее он уже отрисовывает текстуру, только называя её номер.

Нужно ли добавить такое свойство текстуре, как имя и вызов по имени? В принципе сейчас пользоваться нужно так:

Var
 Dodge : Integer;
Begin
 Dodge := LoadTexture(Form1, 'C:\DodgeViper.bmp')
 Draw(Form1, Dodge, 0, 0, FALSE);
 BufferDraw(Form1);
 DestroyTexture(Form1, Dodge);
End;

[_-Re@l-_]

Draw(Form1, Dodge; 0, 0, FALSE);

Ээээ..А что здесь делает точка с запятой?

Нужно ли добавить такое свойство текстуре, как имя и вызов по имени? В принципе сейчас пользоваться нужно так:

Ну а в целом идея очень даже ничего, это лучше, чем рисовать используя Bitmap.

[Alex Cones]

Ээээ..А что здесь делает точка с запятой?

Исправил за 2 минуты до Вашего поста

Ну а в целом идея очень даже ничего, это лучше, чем рисовать используя Bitmap.

Есть несколько причин, почему я не хочу этого делать:
1) При отрисовке с указание имени придется сначала найти текстуру по такому имени, потом отрисовать.
2) В принципе система предназначена только для одного:

Begin
 LoadTexture(Form1, 'C:\DodgeViper.bmp', 'Dodge');
 Draw(Form1, 'Dodge', 0, 0, FALSE);
 BufferDraw(Form1);
 DestroyTexture(Form1, 'Dodge');
End;

Т.е. мы не храним у себя переменную/номер текстуры с доджем, а вызываем по имени..

[_-Re@l-_]

Begin
 LoadTexture(Form1, 'C:\DodgeViper.bmp', 'Dodge');
 Draw(Form1, 'Dodge', 0, 0, FALSE);
 BufferDraw(Form1);
 DestroyTexture(Form1, 'Dodge');
End;

А-а-а-а....Теперь понял.
Это ещё лучше чем я думал. Не объявлять переменные для работы с текстурой - это просто замечательно.

[russian-stalker]

Считаю, что это не нужно.
Допустим, над проектом работает не один человек, а команда.
Тогда вам придется думать над пространствами имен, так как могут быть конфликты с названиями текстур. Гораздо лучше хранить указатель на экземпляр класса. Ну или как в вашем случае, уникальный идентификационный номер элемента.

[Alex Cones]

Да, с одной стороны хорошо. А теперь представьте, что делаете игру 1024 х 768, частота обновления 24 fps. Если Вы будете рисовать например по-блочно как в "Марио":

В циклах: 
If A[X,Y] = 55 Then Draw(MainForm, 'tree', X * 32, Y * 32, FALSE);

Моей системе для такой отрисовки сначала придется найти текстуру по имени (перебирая), потом только отрисовать.

Хотя, если пользователю понадобится быстрая отрисовка - пусть не выпендривается и пользуется числами. А если удобная - то буквами.
___________________________UPD

Как бы то ни было добавил две версии функций - по имени и номеру.

 Function CreateTexture(Var Form : TForm; Width, Height : Integer) : Integer; OverLoad;
 Function CreateTexture(Var Form : TForm; Width, Height : Integer; TName : String) : Integer; OverLoad;
 Function LoadTexture(Var Form : TForm; FileName : String) : Integer; OverLoad;
 Function LoadTexture(Var Form : TForm; FileName : String; TexName : String) : Integer; OverLoad;
 Function DestroyTexture(Var Form : TForm; Number : Integer) : LongBool; OverLoad;
 Function DestroyTexture(Var Form : TForm; TName : String) : LongBool; OverLoad;
 Procedure Draw(Var Form : TForm; TNum : Integer; X,Y : Integer; TFlag : LongBool); OverLoad;
 Procedure Draw(Var Form : TForm; TName : String; X,Y : Integer; TFlag : LongBool); OverLoad;