Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2012, 18:39   #1
Reglament_
Пользователь
 
Регистрация: 09.11.2011
Сообщений: 12
Сообщение delphi работа со строками

Нужно из строки скопировать только одну часть,
-допустим есть строка вида

Код:
"ababab^1234^cvcv^45345^hjhjhj^4545^ddd^555"
Мне нужно скопировать эту часть строки 45345,
и этаже часть строки может быть длиннее или короче, вот.

Возможно ли скопировать строчку, сначало найти две позиции
"cvcv^" и "hjhjhj^" - затем между этими двумя позициями и скопировать??

Набросайте примерчики плз!
Reglament_ вне форума Ответить с цитированием
Старый 17.03.2012, 19:15   #2
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

Пошагово:
Код:
procedure TForm1.RzBitBtn1Click(Sender: TObject);
const
  s: string = 'ababab^1234^cvcv^45345^hjhjhj^4545^ddd^555';
var
  d1, d2: Integer;
begin
  { Начальная позиция искомой строки }
  d1 := pos('^cvcv^', s) + length('^cvcv^');
  { Конечная позиция искомой строки }
  d2 := pos('^hjhjhj^', s);
  ShowMessage(Copy(s, d1, d2 - d1));
end;
_SERGEYX_ вне форума Ответить с цитированием
Старый 17.03.2012, 20:18   #3
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
По умолчанию

просто и со вкусом! малорик!
kta87 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со строками в Delphi 7.0 Димкоff Помощь студентам 4 07.01.2010 17:13
работа со строками delphi fize Помощь студентам 22 07.01.2010 03:59
Работа со строками. Delphi сер4ей Помощь студентам 1 09.03.2009 23:22
Работа со строками. Delphi defeat Помощь студентам 4 10.01.2008 13:39