procedure OnItemDblClick(uSource, uItemKey: integer; astr: string);
var
temp: integer;
str: string;
begin
temp:=getQuestTempArr(uSource,13);
deleteitem(uSource, '历练',1);
setQuestTempArr(uSource,13,temp+1);
saysystem(uSource, '获得了1点历练 你之前的历练是'+ inttostr(temp)+ '');
end;
这段代码我想把1设置成变量 请问怎么设置啊？？？？

在Form内放一个Edit，把‘1’改为Edit.text，从键盘输入Edit的内容
这样可以吗？
你还是想把‘1’改为随机变量？？？