есть более лутший способ читать с ини данные
Добавлено через 2 минуты
В место :
delphi Код:
function ItemName(id:integer):string;
begin
result:=ItemsName.Strings[ID];
end;
delphi Код:
function ItemName(id:integer):string;
begin
result:=ItemsName.Values[ID];
end;
это значт что строка (123=адена) -- 'адена'=ItemName(123)
Добавлено через 3 минуты
delphi Код:
var
ItemsName: TStringList; //названия предметов
namestr:String;
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.values[ID];
end;
Begin
namestr:=ItemName(53);
//namestr->'adena';
end;