заменить RichEdit на Listbox

[fize]

помогите заменить RichEdit на Listbox.
спасибо.

[uberchel]

Что, смеёшься, давая не полный проект, где *.pas

[fize]

извеняюсь. вот полный

[Roof]

Разбираться в твоем проекте вряд ли кто-то будет.
Есть книжка - А. Я. Архангельский - 100 компонентов общего назначения библиотеки Делфи. Там и про RichEdit и про ListBox
http://programmersclub.ru/book100comp

Вот тебе пример работы с компонентами:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
for i := 0 to RichEdit1.Lines.Count - 1  do
 ListBox1.Items.Add(RichEdit1.Lines[i]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to 10  do
   RichEdit1.Lines.Add('1111111');
end;

[mihali4]

То fize
Что вы выкладываете "простыни"?
Если нужно привести строку с ошибкой - приводите ее, а не весь листинг...

[fize]

Сообщение от mihali4

То fize
Что вы выкладываете "простыни"?
Если нужно привести строку с ошибкой - приводите ее, а не весь листинг...

так нет ошибки. нужно просто сделать что бы выводились сообщения в листбокс

[fize]

var
HEX0_LOG: TRichEdit;
Procedure ADDLOG(Typ: byte;txt: string);
begin
if (HEX0_Chk_LOG_CUT<>Nil) and (length(txt)>100) and (Typ<>9) then
txt := copy(txt,0,30)+' ... '+copy(txt,length(txt)-29,30);
with HEX0_LOG do
begin
case typ of
0:
if (Debug<>Nil) and (Debug.checked)
then SelAttributes.Color := Cl0_Debug
else txt := '';
else
end;
if (txt <>'')
then
begin
lines.Add (txt);
application.ProcessMessages;
end;
end;
end;

как понимаю именно эта процедура выводит данные в ричедит. как сделать вывод в листбокс?

[Utkin]

lines.Add (txt);

Попробуй заменить на

listBox1.Lines.Add(txt);

[fize]

тут дело в том что программа состоит из 3х модулей. это в main я замену такую сделал и теперь часть данных выводится в листбокс а остальная часть (что не с мейна) выводится в ричедит

[Utkin]

Так тебе че надо? Что это за задача, которая меняется в ходе ее решения? Задачка стиля: Висит на стене зеленая и пахнет рыбой?