ListBox

← →
Pers (2004-09-10 21:06) [0]

Как добавить в определённое место Memo(в CaretPos) все элементы ListBox, добавив к каждому ещё текст?

← →
GEN++ © (2004-09-10 22:19) [1]

Приведите хотя бы простой пример, чего Вы хотите?
Типа:
в Memo текст:
А роза упала на лапу Азора
в ListBox текст:
12365656 65565767 768787 87878
ну и т.д.

← →
Pers (2004-09-11 20:35) [2]

Ну, я делаю редактор Ordered List (<ol>) в HTML. В ListBox
Пользоваель добавляет элементы списка, а потом их нужно
добавить в Memo прибавив в начале и конце каждого добавить
тэги(<li></li>).

Итого:
Memo
<ol>
<li>Первый элемент ListBox<li>
<li>Второй элемент ListBox<li>
...
<li>Последний элемент ListBox<li>
</ol>

← →
Cardinal © (2004-09-11 20:57) [3]

>Pers (11.09.04 20:35) [2]

Понятно. Думаю, можно вот так:
if listbox1.Items.Count <> 0 then memo1.SetSelTextBuf(listbox1.Items.GetText);

Если я правильно понял, то перед строкой Memo, на которой стоит
курсор, необходимо вставить все строки из ListBox, обрамляя
каждую тегами.
const begTeg:string="<ol>"; endTeg:string="</ol>"; ter:string="<li>; procedure TForm1.MemoDblClick(Sender: TObject); begin insListBox(Memo.CaretPos.y); end; procedure TForm1.insListBox(Y:word); var i,n,m:word; begin n:=ListBox.Items.Count; if n=0 then exit; m:=Y; Memo.Lines.Insert(m,begTeg); inc(m); for i:=0 to n-1 do begin Memo.Lines.Insert(m,Teg+ListBox.items.Strings[i]+Teg); inc(m); end; Memo.Lines.Insert(m,endTeg); end;

ListBox Найти похожие ветки