Datensatz im TreeView finden

[IngoH]

Hallo,

habe meine DB in den TreeView eingelesen. Mit folgender Procedure finde ich auch den Datensatz. Allerdings klappt das nur wenn es keine doppelten Childs gibt. Denn dann findet er den ersten Datensatz mit dem Namen im TreeView.

Delphi-Quellcode:

 sNodeText := DBTreeView1.Selected.Text;
 if DBTreeView1.Selected <> nil then
   begin
     //showmessage(sNodeText);
     tblFolder.Locate('FolderName', sNodeText, []);
     sParentID := MainForm.frmMain.tblFolder.FieldValues['ID'];
     //showmessage(sParentID);
   end;

'FolderName' ist die Bezeichnung des Node. (nicht eindeutig)
'ID' ist eine eindeutige ID, aber danach kann ich im Tree nicht suchen, da ID ja nicht angezeigt wird.

Edit: Ich möchte die ID wissen des aktuell markierten Nodes (selected).
Danke.

Gruß
Ingo

[marabu]

Hallo Ingo,

wenn du den Datensatz suchst, der zum selektierten Knoten im Baum gehört, und wenn du ID in der Data property des Knoten mitführst, dann kannst du so suchen:

Delphi-Quellcode:

var
  id: integer;
begin
  if Assigned(DBTreeView1.Selected) then
  begin
    id := Integer(DBTreeView1.Selected.Data);
    tblFolder.Locate('ID', id, []);
    // ...
  end;

Die Idee sollte rüberkommen, auch wenn ich das jetzt nur so in den Beitragseditor getippt habe.

Grüße vom marabu

[IngoH]

Jau,

Manchmal sieht man den Baum vor lauter Wälder nicht.

Danke

Das funzt:

Delphi-Quellcode:

  if DBTreeView1.Selected <> nil then
   begin
     sParentID := tblFolder.FieldValues['ID'];
     id := Integer(DBTreeView1.Selected.Data);
     tblFolder.Locate('ID', id, []);
   end;