Копировать

← →
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

Вариант 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;

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