|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2011, 22:13 | #1 |
Новичок
Джуниор
Регистрация: 10.10.2011
Сообщений: 3
|
как в Delphi скопировать весь текст от нужного символа до конца строки ??
гуглил очень долго прежде чем спросить,но мозг уже понемножку закипает, поетому приходится спрашивать. итак
допустим есть Memo1 и там есть такой текст : ferrari : megosupercar zaporozhets : polnui_otstoi так вот! как скопировать только часть текста megosupercar??? чтобы не зацепляло следущую строку ?? я так понимаю будет что-то вида procedure TForm1.Button3Click(Sender: TObject); var copyresult : string; begin copyresult:=Copy(Memo1.Lines.Text, Pos(':',Memo1.Lines.Text),ВОТ_ЗДЕСЬ _ВОТ_НУЖНО_НАПИСАТЬ_ЧТО-ТО_ЧТОБЫ_СЧИТЫВАЛО_ТОЛЬКО_ДО_КОНЦА_ СТРОКИ); end; буду оч. благодарен за совет ) |
10.10.2011, 22:19 | #2 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
ВОТ_ЗДЕСЬ _ВОТ_НУЖНО_НАПИСАТЬ_ЧТО-ТО_ЧТОБЫ_СЧИТЫВАЛО_ТОЛЬКО_ДО_КОНЦА_ СТРОКИ
= Length(Memo1.Lines.Text)-Pos(':',Memo1.Lines.Text)+1
Предпочитаю на "ты".
|
10.10.2011, 22:28 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ну, если решение "в лоб", то
можно так Код:
p.s. не смущает, что Вы найдёте только ПЕРВОЕ двоеточие?! Остальные строчки точно обрабатывать не собираетесь?! |
10.10.2011, 22:28 | #4 |
Новичок
Джуниор
Регистрация: 10.10.2011
Сообщений: 3
|
эммм.....
вобщем если делаю так procedure TForm1.Button3Click(Sender: TObject); var copyresult : string; begin copyresult:=Copy(Memo1.Lines.Text, Pos(':',Memo1.Lines.Text),Length( Memo1.Lines.Text)-Pos(':',Memo1.Lines.Text)+1 ; end; то copyresult всеравно захватывает 2ую строчку...(((( тоесть copyresult = ferrari : megosupercar zaporozhets : polnui_otstoi толи я такой криворукий, толи код не правильный... |
10.10.2011, 22:36 | #5 |
Новичок
Джуниор
Регистрация: 10.10.2011
Сообщений: 3
|
Serge_Bliznykov
аааа, спасибо большое!! это мне помогло)))!!!! var copyresult : string; p1 : integer; begin p1 := Pos(':', Memo1.Lines.Text); if p1>0 then begin copyresult := Copy(Memo1.Lines.Text, p1+1, Length(Memo1.Lines.Text)-p1); if Pos(#13,copyresult)>1 then copyresult := Copy(copyresult, 1, Pos(#13,copyresult)-1); end; ура)! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как скопировать функцию эксель на весь столбец? | Bendebej | Microsoft Office Excel | 2 | 08.06.2015 21:28 |
Как поставить точки до конца строки? | Molotoklk | Microsoft Office Word | 6 | 04.10.2011 17:08 |
Как скопировать текст с Edit1 в Edit2 | amator_roma | Компоненты Delphi | 14 | 03.12.2010 12:32 |
Как скопировать текст с Edit1 в Edit2 | amator_roma | Помощь студентам | 2 | 02.12.2010 15:44 |
Вывод символа перевода строки из МЕМО в текст. файл (Delphi) | ChEaTeR-abc | Помощь студентам | 5 | 02.07.2010 20:43 |