GetToolTipRec извлечение параметров

[sadX_Xface]

Берем пример из api справочника по сабжу

Code: Select all

Program New;
var
aa : TClilocRec;
bb : TClilocItemRec;
i,k : Integer;
begin
aa := GetToolTipRec(BackPack);
AddToSystemJournal('Total lines in Toolptip: ' + IntToStr(aa.Count));
if aa.count > 0 then
for i := 0 to aa.Count - 1 do
begin
AddToSystemJournal('Line ' + IntToStr(i) + ': ');
bb := aa.Items[i]; 
AddToSystemJournal('Cliloc: $' + IntToHex(bb.ClilocID,8));
AddToSystemJournal('Cliloc text: ' + GetClilocByID(bb.ClilocID));
for k := 0 to Length(bb.Params) - 1 do
AddToSystemJournal('Param-' + IntToStr(k) + ': "'
+ bb.Params[k] + '"');
end;

в качестве примера возьмем тултип рецепта хертвуда:

Code: Select all

12:26:00:865 [MAIN]: Cliloc text: recipe scroll
12:26:00:866 [MAIN]: Cliloc: $00105E94
12:26:00:867 [MAIN]: Cliloc text: Weight: ~1_WEIGHT~ stone
12:26:00:868 [MAIN]: Param-0: "1"
12:26:00:869 [MAIN]: Cliloc: $0010042C
12:26:00:886 [MAIN]: Cliloc text: [~1_stuff~]
12:26:00:887 [MAIN]: Param-0: "#1073388"

Интересует последняя строчка с параметром. В данном конкретном случае #1073388 - это то на что рецепт.
Вопрос: Как по этому коду(по этим циферкам #1073388) понять на что этот рецепт? ака получить название этого предмета как?

P.S.: аналогичная тема для примера с commodity deed. там тоже в качестве параметра будут циферки которые показывают что же там в этот дид свернуто.

[Gauhar]

Code: Select all

if Pos('#', bb.Params[k]) = 1 then
   AddToSystemJournal( GetClilocByID( StrToInt( Copy(bb.Params[k], 2, Length(bb.Params[k])) ) ) );

[sadX_Xface]

Отдельное спасибо за Copy... очень изящно