ListView - Text auslesen

[Glados]

Du meinst aber nicht irgendwas innerhalb einer DB oder?

Wenn du die gelb markierten Dinger meinst, das nennt man Nodes oder Knoten.
Ich weiß jetzt nicht wie das Property bei der Komponente heißt. Aber "Text3" <= bei dem Ding spricht man in der Regel von Caption oder Text.

Ich habe das jetzt so verstanden, dass du den Text des Knotens haben willst?

[Gerri]

Hört sich so an als würdest du das richtige verstanden haben.

Die DB hat damit nichts mehr zu tun, brauche dann von dem Node nur den Text.


Ich verbessere mich falls wir doch an einander vorbei reden


Gerri

[Glados]

Guck dir das hier mal an >> http://www.delphipraxis.net/113201-l...-subitems.html

Eines verstehe ich nur nicht. Ich habe noch nie eine ListView mit Nodes gesehen?!
Sicher, dass deine Komponente einen TListView ist?

[Bbommel]

Kann es sein, dass das ListView in Wahrheit ein TreeView ist?

[Glados]

Wenn es um TreeViews jeglicher Art geht, dann ist der Profi hier im Forum Aviator. Sicherlich auch noch andere aber mir ist nur er bekannt.

[Bbommel]

Wobei ich bei noch genauerem Hingucken glaube, dass das dort oben im Bild die "Struktur"-Anzeige aus der Delphi-IDE ist...

Also vielleicht doch TListView. In dem Fall wäre "SubItems" das hoffentlich richtige Stichwort für den TE.

[Jumpy]

Was man da sieht ist glaub ich nicht seine ListView oder eine TreeView sondern das Ding aus der IDE, weiß gerade nicht wie es heißt. Projekt-Explorer?
Davon ggf. nicht verwirren lasen.

[Gerri]

Hi Leute,

ist tatsächlich die Ansicht aus der IDE -> sollte aber ein listview sein !

Ich lese mich mal in das Subitem Thema ein und melde mich dann noch einmal


Gruß
Gerri

edit :jip ist von FMX @ Glados & Uwe

[Aviator]

Zitat von Glados:

Wenn es um TreeViews jeglicher Art geht, dann ist der Profi hier im Forum Aviator. Sicherlich auch noch andere aber mir ist nur er bekannt.

Danke für das Lob.

Allerdings beschränkt sich mein (doch ganz gutes) Wissen über TreeViews hauptsächlich auf den VirtualTreeView. Mit dem Standard TreeView arbeite ich eigentlich kaum bis gar nicht. Aber klar. Der normale TreeView arbeitet auch nur mit ParentNodes und ChildNodes. Als ebenso guten TreeView Kenner würde ich aber gerne noch jeanicke in den Raum werfen wenn wir schon dabei sind.

Es wäre nur doch interessant zu wissen, ob es sich hier um ein TTreeView oder TListView handelt. Weil das sind zwei total unterschiedliche Komponenten. Es sei denn ich habe es überlesen.

[haentschman]

Moin...

Zitat:

Ich denke für einen Anfänger ist das Auslesen aus dem Control erst einmal alles was er braucht.

Das denke ich nicht. Ich hätte manche Fehler damals nicht gemacht, wenn ich die DP schon gehabt hätte und mir jemand gezeigt hätte wie man es "richtig" (Da gibt es 1000 Varianten ) macht. Klar muß man sich auf den Kenntnisstand einstellen, aber die visuellen Komponenten als Datenablage zu mißbrauchen rächt sich später. Was kostet es mehr es gleich richtig zu machen... Erst recht als Einsteiger sollte man DRY und KISS schon gehört haben.

...zum Thema:
Beispiel mit Objekten:

Delphi-Quellcode:

// das Datenobjekt (ähnlich wie der Datensatz im Dataset)
  TCustomer = class
  strict private
    FName: string;
    FTown: string;
    FFirstName: string;
  public
    constructor Create;
    destructor Destroy; override;
    property Name: string read FName write FName;
    property FirstName: string read FFirstName write FFirstName;
    property Town: string read FTown write FTown;
  end;
...
// die Liste (ähnlich wie TDataSet) 
  TCustomerList = TObjectList<TCustomer>; // generische Liste 
...
//Implementierung
procedure TfoMain.ShowCustomerList(List: TCustomerList);
var
  Item: TListItem;
  Customer: TCustomer;
begin
  lvCustomers.Items.Clear;
  for Customer in List do
  begin
    Item:= lvCustomers.Items.Add;
    Item.Data:= Customer; // Das komplette Objekt (Pointer) hängt an dem Eintrag
    Item.SubItems.Add(Customer.Name);
    Item.SubItems.Add(Customer.FirstName);
    Item.SubItems.Add(Customer.Town);
    Item.ImageIndex:= 99; // der Index des Images aus der Imagelist der Listview
  end;
  lvCustomers.Items.Item[0].Selected := True; // ersten Eintrag markieren...oder so
end;

Werte auslesen:

Delphi-Quellcode:

var
  Customer: TCustomer; 
  Town: string
...
Customer := TCustomer(lvCustomer.Data); // über die Zwischenvariable ist der Quelltext dann besser lesbar :-)
Town := Customer.Town; // nicht aus dem ListView lesen sondern aus der Liste über den Pointer (automatisch)

Beispiel mit Dataset:

Delphi-Quellcode:

// das TDataSet 
* auf dem Datenmodul als Komponente   
...
//Implementierung
procedure TfoMain.ShowCustomerList(DataSet: TDataSet);
var
  I: Integer; 
  Item: TListItem;
begin
  lvCustomers.Items.Clear;
  DataSet.First;
  while not DataSet.Eof do
  begin
    Item:= lvCustomers.Items.Add;
    Item.Data:= TObjekt(Dataset.FieldByName('ID').AsInteger); // Der PK (PrimaryKey) hängt an dem Eintrag
    Item.SubItems.Add(Dataset.FieldByName('NAME').AsString);
    Item.SubItems.Add(Dataset.FieldByName('FIRSTNAME').AsString);
    Item.SubItems.Add(Dataset.FieldByName('TOWN').AsString);
    Item.ImageIndex:= 99; // der Index des Images aus der Imagelist der Listview
    DataSet.Next;
  end;
  lvCustomers.Items.Item[0].Selected := True; // ersten Eintrag markieren...oder so
end;

Werte auslesen:

Delphi-Quellcode:

var
  Town: string
...
DataSet.Locate('ID', Integer(lvCustomer.Data),[]); // positionieren des DataSets auf den Datensatz mit dem richtigem PK
Town := DataSet.FieldByName('TOWN').AsSting; // nicht aus dem ListView lesen sondern aus dem DataSet