Помогите организовать добавление в memo или listbox...

[Arkuz]

Здравствуйте.
Передо мной стоит задача вывести элементы в мемо или листбокс.
Принцип следующий:
Если в массиве список имеет 1 элемент, то его нужно вывести в i-тую
строку. И так со всеми.
----------
Но если список из нескольких элементов, то в i-тую строку нужно
выводить все элементы списка 1 за другим.

В общем вот пример.

Массив типа список.
1 элемент массива список из 3х элементов - 1, 2 и 3;
2 элемент массива список из 1 элемента - число 5;
3 элемент массива список из 2 элементов - 7 и 3;
Вот как это должно выглядеть в мемо или листбоксе:

1 -> 2 -> 3
5
7 -> 3

Заранее спасибо за помощь...

[alexBlack]

Список как организован ?
В любом случае

a : array [1..N] of ...
for i:=low(A) to high(A) do begin
    S := '';

    // Для каждого элемента списка 
    //      S := S + элемент [j] + '->'

    listBox.Items.Add(S);
end;

[mihali4]

Метод INSERT. Перед этим выбираем нужную строку, перед которой и будет сделана вставка. То есть, если вам нужно вставить "2" после "1", нужно выбрать строку после строки с "1".
ADD и APPEND добавляют строки только в самый конец списка, но никак не где-то в середине...

[Arkuz]

Спасибо за помощь...

Может ещё кто напишет что-нибудь?

[Arkuz]

Мне нужно чтобы выполнялась проверка, если в списке 1 элемент, значит вывести его в сроке, если более 1 элемента, то все последующие p^.next выводить на оной строке, пока p^.next не станет равным nil, после этого перевести каретку на вывод следующего списка.

Фишка в том, что вызвать состояния списка можно в любой момент.
Добавил элемент, он должен корректно отобразиться в мемо и листбоксе, удалил - новое отображение, главное корректное...

[alexBlack]

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

Мне нужно чтобы выполнялась проверка, если в списке 1 элемент, значит вывести его в сроке, если более 1 элемента, то все последующие p^.next выводить на оной строке, пока p^.next не станет равным nil, после этого перевести каретку на вывод следующего списка.

Теперь понятна структура списка. Уточняю:

listBox.Items.Clear
for i:=low(A) to high(A) do begin
 S := '';
 p := первый элемент
 While p <> nil do begin
    S := S + P^.Данные + ' - ';
    p = p^.next
 end; 
 //Здесь строка для списка сформирована и ее можно занести в ListBox
 listBox.Items.Add(S);   
end;

Фишка в том, что вызвать состояния списка можно в любой момент.
Добавил элемент, он должен корректно отобразиться в мемо и листбоксе, удалил - новое отображение, главное корректное...

Проще всего при изменении очистить ListBox и вывести список заново.
Т.е. оформить приведенный выше код как процедуру и вызывать его при изменениях.

[uranpro]

если тебе надо написать иммено в i-ую строку, а не в последнюю, то тебе может помочь.. listbox.items.string(i):= .... смысл такой) мб там не string, а strings =)