Текущий архив: 2004.09.26;
Скачать: CL | DM;
Вниз
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);
← →
GEN++ © (2004-09-11 23:36) [4]Если я правильно понял, то перед строкой 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;
Страницы: 1 вся ветка
Текущий архив: 2004.09.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.046 c
