Показать сообщение отдельно
Старый 20.05.2008, 00:02   #6
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Подобные процедуры не стоит так делать
delphi Код:
//****************************************** //название вещи //****************************************** function ItemName(id:integer):string;

Лучше переделать примерно так:
delphi Код:
var ItemsName: TStringList//названия предметов procedure Init; begin   ItemsName:=TStringList.Create;   ItemsName.LoadFromFile('itemsid.ini'); //загрузка из файла end; function free; begin   ItemsName.free; end; //****************************************** //название вещи //****************************************** function ItemName(id:integer):string; begin  result:=ItemsName.Strings[ID]; end;

Последний раз редактировалось NLObP, 20.05.2008 в 00:05.
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 4 спасибками от: