| Код |
// Нужно ТОЛЬКО для демонстрации работы //////////////////////////
var
i: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:= 0;
end;
/////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
begin
with ListView1.Items.Insert(0) do begin
Inc(i); // Только для демонстрации
Caption:= IntToStr(i);
end;
if ListView1.Items.Count > 10 then
ListView1.Items.Delete(10);
end;
|
Добавлено @ 20:30
Добавление всегда происходит в 1-ую строку и если кол-во строк становится равным 11-и, то последняя строка удаляется. |