Memo Richedit и Steam

← →
Katya21 © (2005-07-29 00:48) [0]

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

← →
P.N.P. © (2005-07-29 00:53) [1]

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

← →
Eraser © (2005-07-29 00:55) [2]

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) [3]

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

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

← →
Katya21 © (2005-07-29 01:03) [4]

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

← →
Eraser © (2005-07-29 01:07) [5]

Katya21 © (29.07.05 01:03) [4]

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

← →
Katya21 © (2005-07-29 01:13) [6]

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

← →
Eraser © (2005-07-29 01:17) [7]

Katya21 © (29.07.05 01:13) [6]

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

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

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

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

Ну спасибо!

Memo Richedit и Steam Найти похожие ветки