| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Memo Richedit и Steam

Katya21 ©   (2005-07-29 00:48:00) 

Как воткнуть несколько строчек в мой Memo програмно затем скопировать их в Richedit не трогая Savetosteam

---

Katya21   (2005-07-29 02:01:00) [1]

Ну спасибо!

---

Eraser   (2005-07-29 01:34:00) [2]

Memo.Lines.Insert(iInserAfterID, 'Модель:Р-666' + #13 +
'Жесткость:1000кг/м<sub>3</sub>' + #13 +
'Длинна:1000 m' + #13 +
'Диаметр:120 cm' + #13);

А вообще купи хорошую книжку по делфи... и прочитай её.

---

Katya21   (2005-07-29 01:19:00) [3]

Да это воткнётся с новой строчки а если
Здесь текст
И здесь текст         -а вставить между надо 6 строчек.

---

Eraser   (2005-07-29 01:17:00) [4]

Katya21 ©   (29.07.05 01:13) [6]

Memo.Lines.Add('Модель:Р-666' + #13 +
 'Жесткость:1000кг/м<sub>3</sub>' + #13 +
 'Длинна:1000 m' + #13 +
 'Диаметр:120 cm' + #13);

---

Katya21   (2005-07-29 01:13:00) [5]

Ну есть набор из 50 кнопочек,нажимаеш на определённую кнопочку
должны появляться определённые данные в Мемо.Пример:жмем на кнопку в тексте
Зав складом принял пружины(нажимаем здесь)
Модель:Р-666
Жесткость:1000кг/м₃
Длинна:1000 m
Диаметр:120 cm

---

Eraser   (2005-07-29 01:07:00) [6]

Katya21 ©   (29.07.05 01:03) [4]

Прчитал 3 раза, так и не понял пост.

---

Katya21   (2005-07-29 01:03:00) [7]

ну вот смотри.Есть Батон, и пусть пока мемо надо добавить в ту срочку где сейчас курсор(ну чёрточка мигающая) например такое
<........Хорошо тут>
<Плохо тут.........>
<........Хорошо тут>
<Плохо тут.........>

---

Eraser   (2005-07-29 00:55:00) [8]

Katya21 ©   (29.07.05 00:48)

А при чём тут Savetosteam? Утанови JEDI VCL там всё давно придумано.
   reChat.Lines.BeginUpdate;
   reChat.SelStart := Length(reChat.Lines.Text);
   reChat.StreamMode := [smSelection];
   reChat.Lines.LoadFromStream(ms);
   reChat.StreamMode := [];
   reChat.SelStart := Length(reChat.Lines.Text);
   reChat.Lines.EndUpdate;, где reChat это TJvRichEdit;

---

alex-drob   (2005-07-29 00:55:00) [9]

Воткнуть: memo1.lines.add('.........')

Скопировать: richedit1.text:=memo1.text;

---

P.N.P.   (2005-07-29 00:53:00) [10]

RichEdit.Lines.Add(Memo.Lines[x])?

---

Наверх