Подобные процедуры не стоит так делать
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;