Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#9

Re: Was fehlt hier?

  Alt 10. Okt 2007, 13:27
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! <<
  Mit Zitat antworten Zitat