| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копировать
Bast © (2007-09-23 21:41:00)Здравствуйте! Есть строка, нужно скопировать от 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:00) [1]2650
Юрий Зотов (2007-09-23 22:05:00) [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;
| |
