CoderX :: Forums - Показать сообщение отдельно

Fer123 · 10.02.2010, 20:56

По идее должно работать если здесь вставить:
CurEnchLvl:=0;
repeat
ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;

10.02.2010, 20:56	#338
Fer123 Местный Регистрация: 05.11.2008 Сообщений: 168 Сказал Спасибо: 35 Имеет 139 спасибок в 66 сообщенях	По идее должно работать если здесь вставить: CurEnchLvl:=0; repeat ItemOID:=GetItemEnchant(ItemID, CurEnchLvl); if ItemOID=0 then begin inc(CurEnchLvl); Edit2.text:=inttostr(CurEnchLvl); end; until ItemOID<>0;