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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2017, 15:02   #1
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 466
По умолчанию copy копировать остальные символы после найденной

как копировать остальные символы после найденной

Код:
var
sss,coy:string;
begin
sss:= 'https:df dkfjfkf ye and fglf';
coy:=copy(Sss,pos('and',sss),0);
label1.Caption:=(coy);
end;
Hе указать количество символов как на коде coy:=copy(Sss,pos('and',sss),0);

проста копировать вес остальное после слова and

Последний раз редактировалось alman12; 15.04.2017 в 15:11.
alman12 вне форума Ответить с цитированием
Старый 15.04.2017, 15:29   #2
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

от слова and
coy:=copy(Sss,pos('and',sss), MaxInt);
ну и после
coy:=copy(Sss,pos('and',sss) + 3, MaxInt);
перед
coy:=copy(Sss, 1, pos('and',sss));

а лучше с проверкой
Код:
var
sss: string;
iPos: integer;
begin
sss:= 'https:df dkfjfkf ye and fglf';
iPos:= pos('and', sss);
//Проверяем что позиция найдена и выводим результат
if iPos <> 0 then
label1.Caption:= copy(Sss, iPos, maxInt);
end;

Последний раз редактировалось Aliens_wolfs; 15.04.2017 в 15:39.
Aliens_wolfs вне форума Ответить с цитированием
Старый 15.04.2017, 15:51   #3
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 466
По умолчанию

спасибо большое
alman12 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как копировать после # в url ? mr_xxx PHP 4 30.11.2016 14:02
Составить программу, которая выводит на экран все символы, расположенные после первого символа «'» Azazel-San Паскаль, Turbo Pascal, PascalABC.NET 1 14.12.2015 09:09
Отображение сообщения и переход к найденной записи moonlightchild Microsoft Office Excel 2 06.07.2012 10:06
Узнать символы после слова ICQClient qiwi289 Общие вопросы Delphi 4 01.10.2011 15:57
Коды клавиш - буквы и остальные символы, Паскаль Фиалка001 Помощь студентам 3 01.05.2010 21:01