In der Delphi-7-Hilfe findet sich dazu folgendes Beispiel:
Delphi-Quellcode:
Im folgenden Beispiel wird in eine Listenansicht ein neues Element eingefügt, und zwar direkt nach dem markierten Eintrag.
procedure TForm1.Button1Click(Sender: TObject);
var InsertItem : TListItem;
begin
with ListView1 do
InsertItem := Items.Insert(Selected.Index);
InsertItem.Caption := Edit1.Text;
end;
Würde bei Dir doch dann "nur" heißen:
Passende Stelle im ListView suchen
Delphi-Quellcode:
var InsertItem : TListItem;
iIndex : Integer;
begin
iIndex := irgendeinwertvon0bisItemsCount-1; // Der Index des auszuwählenden Eintrages.
InsertItem := ListView1.Items.Insert(iIndex);
InsertItem.Caption := 'Lieferant A:' // oder wie auch immer.
end;
Oder beim Befüllen des Listviews aus der Datenbank immer dann, wenn ein neuer Lieferant auftaucht, eine Zeile mit dem Lieferantennamen einfügen und erst dann die Artikel. Sprich: Beim ersten Artikel eines Lieferanten werden zwei Zeilen erzeugt. Dann muss man auch nicht nachher suchen, ob und ggfls. wo man noch was einfügen muss.