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

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

ListBox [D7, Win95/98]

Pers ©   (2004-09-10 21:06:00) 

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

---

GEN++   (2004-09-11 23:36:00) [1]

Если я правильно понял, то перед строкой 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;


---

Cardinal   (2004-09-11 20:57:00) [2]

> Pers   (11.09.04 20:35) [2]

Понятно. Думаю, можно вот так:

if listbox1.Items.Count <> 0 then
 memo1.SetSelTextBuf(listbox1.Items.GetText);


---

Pers   (2004-09-11 20:35:00) [3]

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

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

---

GEN++   (2004-09-10 22:19:00) [4]

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

в ListBox текст:

12365656
65565767
768787
87878

 ну и т.д.

---

Наверх