Скачать: CL | DM;

Копировать   Найти похожие ветки 

← →
Bast   (2007-09-23 21:41) [0]

Здравствуйте! Есть строка, нужно скопировать от n:=pos("default_price=", gmshop[a]); все число(без пробелов и т.п. ) как это сделать?:
item_begin armor 49 [gloves] item_type=armor slot_bit_type={gloves} armor_type=none etcitem_type=none recipe_id=0 blessed=0 weight=660 default_action=action_equip consume_type=consume_type_normal initial_count=1 maximum_count=1 soulshot_count=0 spiritshot_count=0 reduced_soulshot={} reduced_spiritshot={} reduced_mp_consume={} immediate_effect=1 price=0 default_price=2650 item_skill=[none] critical_attack_skill=[none] attack_skill=[none] magic_skill=[none] item_skill_enchanted_four=[none] material_type=cloth crystal_type=none crystal_count=0 is_trade=1 is_drop=1 is_destruct=1 physical_damage=0 random_damage=0 weapon_type=none can_penetrate=0 critical=0 hit_modify=0 avoid_modify=0 dual_fhit_rate=0 shield_defense=0 shield_defense_rate=0 attack_range=0 damage_range={} attack_speed=0 reuse_delay=0 mp_consume=0 magical_damage=0 durability=90 damaged=0 physical_defense=13 magical_defense=0 mp_bonus=0 category={} enchanted=0 html=[item_default.htm] equip_pet={0} magic_weapon=0 enchant_enable=0 can_equip_sex=-1 can_eq

---

← →
DrPass ©   (2007-09-23 22:05) [1]

2650

---

← →
Юрий Зотов ©   (2007-09-23 22:05) [2]

Вариант 1:
1. Находим позицию начала числа.
2. Находим позицию пробела после нее (см. PosEx)
3. Берем подстроку, содержащую число (см. Copy).
4. Преобразуем ее в число.

Вариант 2:
1. Находим позицию P начала числа в строке S.
2. Result := 0;
  while (P <= Length(S)) and (S[P] in ["0".."9"]) do
  begin
     Result := Result * 10 + Ord(S[P]) - Ord("0");
     Inc(P);
  end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c