Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Norim
1 / 1 / 0
Регистрация: 24.04.2015
Сообщений: 6
1

Изменить текст в Memo

30.04.2015, 21:59. Просмотров 766. Ответов 5
Метки нет (Все метки)

Здравствуйте, позвольте обратится с таким вопросом:
Есть текст в мемо1, из него выдернул регуляркой вот такой текст
185.92.220.181</th>
<th>16074
Вывел в мемо2, как его преобразовать что бы в конце получить:

185.92.220.181<th>16074
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2015, 21:59
Ответы с готовыми решениями:

Изменить все символы в Memo
Подскажите как пройтись по всем символам в Memo и изменить их на...

Текст в Memo
Возможно ли в Memo заносить разный текст в зависимости от условия?

Почистить текст в Memo
Есть мемо в нем содержимое сайта страничка с тегами как мне удалить все лишние...

Нерабочий текст в memo
Доброго дня! Если я ввожу в memo сам текст, то программа работает, но если же...

Memo, разделить текст
В memo1 есть текст такого плана: Zadacha378328328 Zadacha435455656...

5
Sky Walker
0 / 25 / 13
Регистрация: 30.04.2014
Сообщений: 515
30.04.2015, 22:52 2
попробуй так
Delphi
1
2
3
4
5
6
7
var
i,j,k:string;
begin
i:=memo1.text;
j:=memo2.text;
k:=i+j;
edit1.text:=k;
в edit1 получишь сумму записей
0
skinex
4 / 4 / 4
Регистрация: 09.03.2013
Сообщений: 209
Завершенные тесты: 2
30.04.2015, 22:59 3
Еще так можно:
Delphi
1
2
3
4
5
6
7
8
9
var
s:string;
i:integer;
begin
s:=memo2.text;
i:=Pos(s,'<');
Delete(s,i,18);
Edit1.text:=s;
end;
0
Norim
1 / 1 / 0
Регистрация: 24.04.2015
Сообщений: 6
30.04.2015, 23:26  [ТС] 4
Цитата Сообщение от skinex Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
8
var
s:string;
i:integer;
begin
s:=memo2.text;
i:=Pos(s,'<');
Delete(s,i,18);
Edit1.te
У меня в мемо1 исходный текст, я из него в мемо2 вытащил
185.92.220.181</th>
<th>16074
Получается надо сложить 2 строки и вывести в мемо2
0
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,994
30.04.2015, 23:41 5
Цитата Сообщение от Norim Посмотреть сообщение
Есть текст в мемо1, из него выдернул регуляркой вот такой текст
Цитата Сообщение от Norim Посмотреть сообщение
Вывел в мемо2, как его преобразовать что бы в конце получить:
Так же регуляркой и вытаскивай раз ты уже ей начал вытаскивать.
0
Norim
1 / 1 / 0
Регистрация: 24.04.2015
Сообщений: 6
01.05.2015, 00:01  [ТС] 6
Всем спасибо за помощь, написал тупой код и всё гуд!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
ip, port, res: string;
  i:integer;
begin
  var
  ip, port, res: string;
  i:integer;
begin
  port :=memo2.text;
  ip := memo2.text;
  Delete(ip, 15, 30);
  Delete(port, 1,23);
  Res:= ip+port ;
0
01.05.2015, 00:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2015, 00:01

Скопировать текст из memo
Как скопировать memo.text в переменную? Нужна именно переменная, чтобы текст...

Текст не растягивается в Memo
Имеется поле Memo, в которое я вставил текст через Lines. При включенном...

Печатать текст содержащийся в memo
Вывожу на печать содержимое memo вот так var POutput : TextFile; Ln ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru