Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
qenzerok
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 85
#1

Соеденить 3 memo

15.12.2013, 00:07. Просмотров 270. Ответов 4
Метки нет (Все метки)

Delphi
1
Memo5.lines.add(Memo6.Lines[i]+Edit3.text+Memo4.Lines[i]);
Мне нада.
Что-бы Мемо6+Едит3+Мемо4.
И все это вывести в мемо 5
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2013, 00:07
Ответы с готовыми решениями:

Как сделать так, чтобы Memo появлялось поверх остальных Memo?
как сделать так чтобы memo появлялось поверх остальных memo

Разбить поровну содержимое Memo между четырьмя другими Memo
Здравствуйте, уважаемые форумчане! Я в delphi новичок совсем, только основы осваиваю, так...

Получение номера взятой строки из memo, содержимое которой вставлено рандомно в memo
Вообщем есть текстовый файл, из которого берутся все строки, вставляются в memo, а из memo уже в...

Найти строку и соединить со следующей
привет уважаемые програмисьты у меня к вам вопрос это очен срочна допустем у меня есть...

Перенести данные из memo в одной форме в memo в другой
Как перенести данные из memo в одной форме в memo в другой?

4
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,910
15.12.2013, 00:16 #2
А каким образом это нужно Мемо6+Едит3+Мемо4? по строчно? или еще как?

Добавлено через 1 минуту
Если по строчно как должо быть если в одном из мемо меньше строк?

Добавлено через 1 минуту
Модет просто
Delphi
1
Memo5.lines.Text:=Memo6.Lines.Text+Edit3.text+Memo4.Lines.Text;
Добавлено через 42 секунды
Или это опять секрет, и догадайтесь сами как в предыдущих темах?
1
qenzerok
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 85
15.12.2013, 17:12  [ТС] #3
Ну как бы. Мне надо что-бы К каждой строке Memo6 добавилось edit3. И потом к тому что вышло добавилось Memo4
В мемо 6 приблизительно 1000 строк. в мемо4 от одной до 10.. Но если там больше одной в Memo4 тогда что-бы к каждой строке добавилось ти по два раза.
Т.е. Если в мемо4 1 строка , вышло 1000 , если 2 вышло 2 тысячи.
0
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,910
15.12.2013, 17:20 #4
Ну как-то так
Delphi
1
2
3
4
5
for i:=0 to memo6.lines.count-1 do
for j:=0 to memo4.lines.count-1 do
begin
Memo5.lines.add(Memo6.Lines[i]+Edit3.text+Memo4.Lines[j])
end;
0
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,994
15.12.2013, 17:42 #5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  i: integer; //для счетчика
begin
  //К каждой строке Memo6 добавилось edit3
  for i := 0 to Pred(Memo6.Lines.Count) do
  Memo6.Lines[i]:= Memo6.Lines[i] + Edit3.Text;
 
  //И потом к тому что вышло добавилось Memo4
  Memo6.Lines.Add(Memo4.Text);
 
  //в Memo4 тогда что-бы к каждой строке добавилось ти по два раза.
  { ??? что три по два раза, куда три по два ???}
end;
0
15.12.2013, 17:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2013, 17:42

Показать один из компонентов memo поверх остальных memo
как сделать так чтобы memo появлялось поверх остальных memo === вот представь что у меня куча...

Как из memo вывести в listbox все слова, которые начинаются на ту же букву, что и последнее слово из memo?
и при этом сохранить порядок слов которые были в memo

Из DBGrid в memo, из memo печать
Помогите, нужен обработчик который будет переносить всю строку из DBGrid в memo, а из memо я мог...


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

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

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