Проблема с очисткой Memo.

[Armind]

Здравствуйте.
Мне необходимо много раз отображать в memo мой динамический список. После изменения списка, соответственно отображаться в мемо он будет по другому. Очищаю мемо так:

  memo1.Clear;

После этого, когда снова начинаю его заполнять отображается только первая строка. Проблема именно в мемо, делая трассировку, вижу, что циклом по сути печатаются все строки

PS: поиском пользовался. Подобного не нашёл

[Dush]

попробуйте

memo1.lines.clear;

[Человек_Борща]

Dush, не имеет значения, что вызывать memo.clear или memo.lines.clear т.к. первый вызывает второе внутри себяLines является обьектом контейнера Memo.

Тс покажите как выводите массив построчно

[Armind]

var
  i:integer;
  elem:tukaz;
begin
  elem:=first;
  i:=-1;//так как нумерация в мемо идёт с нуля то присваиваю -1
  while elem<>nil do
    begin
      inc(i);
      memo1.Lines[i]:=inttostr(elem^.nombilet)+' '+elem^.FIO+' '+elem^.adress;
      elem:=elem^.next;
    end;
end;

[Человек_Борща]

хаххаха
Lines - это обьект TStrings(строковой массив). У него, как минимум, есть метод Add или Insert, но первый лучше.

пример:

for i:=0 to 100 do
begin
memo1.lines.add(IntToStr(i));
end;

Счётчик там ненужен вообще.
Им по умолчанию должен быть обьект условия.
У вас это:

elem:=elem^.next;

По этому ваш код должен быть таким:

var
  i:integer;
  elem:tukaz;
begin
  elem:=first;
  while elem<>nil do
    begin
      memo1.Lines.add(inttostr(elem^.nombilet)+' '+elem^.FIO+' '+elem^.adress);
      elem:=elem^.next;
    end;
end;

[Armind]

Спасибо большое.