Сбор статистики о продаваемых предметах

[NLObP]

Сообщение от Anton5

сопостовлением названия итема его ID?

Надо смотреть на методы TStringList и Tstring

{В TStringList и Tstring ->      Name=Value
                                 123=ghjdthrf
}
var
  WalkerScript: TStringList;

procedure Init; //Вызывается при включении скрипта
var
  i, j :integer;
begin
  WalkerScript:=TStringList.Create;
  //загружаем скрипт валкера из файла
  WalkerScript.LoadFromFile(PathWalkerScript+NameWalkerScript);
end;

function GetValues(ValName: string): string;
begin
  result:=WalkerScript.Values[ValName];
end;
//..............................................................................
function GetNames(Value: string): string;
begin
  result:=WalkerScript.Names[strtoint(Value)];
end;
//..............................................................................
procedure SetValues(ValName: string; Value: string);
begin
  WalkerScript.Values[ValName]:=Value;
end;
//..............................................................................
procedure SetNames(Value: string; Name: string);
begin
  WalkerScript.Names[strtoint(Value)];
end;