Добавление к Тексту memo текста из edit

@Salabim · Регистрация: 27.09.2011

Author24 — интернет-сервис помощи студентам

Есть Memo, есть Edit. Нужно к последней строке Memo, добавить строку из Edit. Как это сделать? Добавить и загрузить в другой Memo.

@Salabim · 16.10.2011, 19:19 **[ТС]**

@igoriy · 16.10.2011, 19:27

Delphi

1	mmo1.Lines.Strings[mmo1.Lines.Count-1]:= mmo1.Lines.Strings[mmo1.Lines.Count-1]+ edt1.Text;

если я правильно понял

@Salabim · 16.10.2011, 19:53 **[ТС]**

Сообщение от igoriy

mmo1.Lines.Strings[mmo1.Lines.Count-1]:= mmo1.Lines.Strings[mmo1.Lines.Count-1]+ edt1.Text;

А что такое mmo1?

Нужно что то вроде
Memo5.Lines:=Memo2.Lines+Edit1.Text (текст из Edit1 запихнуть в последнюю строку Memo5 (после текста из Memo6).

Должно получиться что то вроде:
----------------------------------
Memo2:

В потоке радостных событий
Жизнь проходила стороной,
За то что я,вернулся к свету,
Я благодарен ей одной,

Она мой день,мой луч надежды,
Моя полночная звезда,
Всего одна её улыбка
Перечеркнёт всю тяжесть дня.
----------------------------------
Edit1: Автор: VAD.
----------------------------------
А в Memo5:
В потоке радостных событий
Жизнь проходила стороной,
За то что я,вернулся к свету,
Я благодарен ей одной,

Она мой день,мой луч надежды,
Моя полночная звезда,
Всего одна её улыбка
Перечеркнет всю тяжесть дня.

Автор: VAD.

@igoriy · 16.10.2011, 20:01

Сообщение от Salabim

А что такое mmo1?

Пусть будет memo1

Добавлено через 1 минуту
и вообще сначало было

Сообщение от Salabim

Есть Memo, есть Edit. Нужно к последней строке Memo, добавить строку из Edit. Как это сделать?

Добавлено через 2 минуты

Delphi

1	mmo5.Lines.Strings[mmo5.Lines.Count-1]:= mmo6.Lines.Strings[mmo6.Lines.Count-1]+ edt1.Text;

@Salabim · 16.10.2011, 20:21 **[ТС]**

Delphi

1
2
3

If CheckBox1.State=cbChecked then
If Form1.SaveDialog1.Execute then
Form1.Memo4.Lines.SaveToFile(Form1.SaveDialog1.FileName)

Нужно, чтобы если CheckBox1 включен ("cbChecked"), тогда SaveDialog1.Execute. Как?

@scroyler · 16.10.2011, 21:26

Попробуй что то типо такого
Memo1.Lines+'Edit1.Text';

@igoriy · 17.10.2011, 11:10

О уже и

Сообщение от Salabim

Нужно, чтобы если CheckBox1

появился.Глядишь общими усилиями что-то и сварганим.
а начиналось все

Сообщение от Salabim

Есть Memo, есть Edit. Нужно к последней строке Memo, добавить строку из Edit. Как это сделать?

@Salabim · 17.10.2011, 15:52 **[ТС]**

Сообщение от igoriy

О уже и
CheckBox1
появился.Глядишь общими усилиями что-то и сварганим.
а начиналось все

У меня уже "сварганенный" проект, просто дорабатываю функционал.

Добавлено через 1 минуту
кстати, как между текстами memo и edit сделать пустую строку?

Добавлено через 1 час 56 минут
Как между текстами memo и edit сделать пустую строку?

@igoriy · 17.10.2011, 16:02

Memo1.lines.Add(''); добавить пустую строку

@Salabim · 17.10.2011, 19:09 **[ТС]**

Delphi

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
If Form1.Edit1.Color:=clWhite Then
Form1.Edit1.Color:=clInfoBk
Else
Form1.Edit1.Color:=clWhite
end;

Ошибка: "type of expression must be BOOLEAN" в конце третьей строки.
Как исправить?

@igoriy · 17.10.2011, 19:12

Добавлено через 40 секунд

Сообщение от Salabim

If Form1.Edit1.Color:=clWhite

убери двоеточие

Добавлено через 54 секунды
тыж не присваиваешь а проверяешь

@Salabim · 17.10.2011, 19:12 **[ТС]**

Блин, Спасибо

Да, понял.

@Salabim 0 / 0 / 1 Регистрация: 27.09.2011 Сообщений: 75
	17.10.2011, 19:12 [ТС]	13
	Блин, Спасибо Да, понял. 0

@Salabim 0 / 0 / 1 Регистрация: 27.09.2011 Сообщений: 75
		1
	Добавление к Тексту memo текста из edit 16.10.2011, 19:08. Показов 3193. Ответов 12 Метки нет (Все метки) Есть Memo, есть Edit. Нужно к последней строке Memo, добавить строку из Edit. Как это сделать? Добавить и загрузить в другой Memo. 0

@Salabim 0 / 0 / 1 Регистрация: 27.09.2011 Сообщений: 75
	16.10.2011, 19:19 [ТС]	2
	0

@Salabim 0 / 0 / 1 Регистрация: 27.09.2011 Сообщений: 75
	16.10.2011, 19:53 [ТС]	4
	Сообщение от igoriy mmo1.Lines.Strings[mmo1.Lines.Count-1]:= mmo1.Lines.Strings[mmo1.Lines.Count-1]+ edt1.Text; А что такое mmo1? Нужно что то вроде Memo5.Lines:=Memo2.Lines+Edit1.Text (текст из Edit1 запихнуть в последнюю строку Memo5 (после текста из Memo6). Должно получиться что то вроде: ---------------------------------- Memo2: В потоке радостных событий Жизнь проходила стороной, За то что я,вернулся к свету, Я благодарен ей одной, Она мой день,мой луч надежды, Моя полночная звезда, Всего одна её улыбка Перечеркнёт всю тяжесть дня. ---------------------------------- Edit1: Автор: VAD. ---------------------------------- А в Memo5: В потоке радостных событий Жизнь проходила стороной, За то что я,вернулся к свету, Я благодарен ей одной, Она мой день,мой луч надежды, Моя полночная звезда, Всего одна её улыбка Перечеркнет всю тяжесть дня. Автор: VAD. 0

@scroyler 14 / 14 / 1 Регистрация: 01.08.2011 Сообщений: 332
	16.10.2011, 21:26	7
	Попробуй что то типо такого Memo1.Lines+'Edit1.Text'; 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	17.10.2011, 11:10	8
	О уже и Сообщение от Salabim Нужно, чтобы если CheckBox1 появился.Глядишь общими усилиями что-то и сварганим. а начиналось все Сообщение от Salabim Есть Memo, есть Edit. Нужно к последней строке Memo, добавить строку из Edit. Как это сделать? 0

@Salabim 0 / 0 / 1 Регистрация: 27.09.2011 Сообщений: 75
	17.10.2011, 15:52 [ТС]	9
	Сообщение от igoriy О уже и CheckBox1 появился.Глядишь общими усилиями что-то и сварганим. а начиналось все У меня уже "сварганенный" проект, просто дорабатываю функционал. Добавлено через 1 минуту кстати, как между текстами memo и edit сделать пустую строку? Добавлено через 1 час 56 минут Как между текстами memo и edit сделать пустую строку? 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	17.10.2011, 16:02	10
	Memo1.lines.Add(''); добавить пустую строку 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	17.10.2011, 19:12	12
	Добавлено через 40 секунд Сообщение от Salabim If Form1.Edit1.Color:=clWhite убери двоеточие Добавлено через 54 секунды тыж не присваиваешь а проверяешь 0

Опции темы