Ich hab mir zum Hinzufügen eines Eintrages in eine ListView mal eine eine Procedure geschrieben:
Delphi-Quellcode:
procedure ListView_neuer_Eintrag(ListView: TListView; const ersteSpalte,
Rest_CommaText: String; Checked: Boolean = true);
var
ListItem: TListItem;
begin
with ListView do
begin
ListItem := Items.Add;
ListItem.Caption := ersteSpalte;
ListItem.SubItems.CommaText := Rest_CommaText;
If Checkboxes then
Items.Item[Items.Count - 1].Checked := Checked;
end;
end;
Die Variable "Rest_CommaText" ist die für die Spalten >= 2.
Aufruf:
ListView_neuer_Eintrag(Result, ini.ReadString(inttostr(ii)), 'name,db Error');
[edit]
Diese Procedure fügt einen Eintrag immer am Schluss an.
Solltest du Checkboxen verwenden, so kannst du mit "Checked" angeben, ob diese true oder false sein soll, Default-Einstellung: true
[/edit]
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<