VirtualStringView und selbst-referenzierende Ordner Query...

[Meta777]

Hallo,

Kennt sich jemand mit den VST aus?
Ich will eine Ordnerstrucktur in einen VST darstellen. Dazu hab ich folgende Tabelle:

Id: Integer;
ParentId: Integer;
FolderName: varChar;

Wie kann man das in der VST realisieren??

z.B.:

Code:

id   ParentId  FolderName
---------------------------
1    0         Test1
2    0         Test2
3    1         Test1A

Das sollte dann in den VST so aussehen:

Code:

id    ParentId    FolderNAme
1     0           Test1
|-3   1           Test1A
2     0           Test2

Kann mir jemand helfen :help: :stupid:

[spacewolf]

... ich könnt das auch gebrauchen... unbedingt... hab mich mit dran versucht... aber bekomme es och ne hin... wer weiß was ?

"Virtual String Tree" - das ist schon ne feine Sache... wenn man(n) damit klar kommen würde...

[djmasi]

Ist in der Advanced Demo nicht ein Beispiel mit Ordnern drinnen?

Habs gerade gefunden: und zwar "A paint tree as directory tree" (6. Button von links)

[CenBells]

hi,

ich arbeite seit einiger zeit mit dem virtualstringtree.
Also als erstes würde ich mir ein objekt oder Record definieren, welches die benötigten informationen enthält.
Dann fügst du die Daten an den Node an und im onGetText liest du den text aus.
Arbeitest du auf einer DB, oder was genau ist deine grundlage?

Gruß
Ken

[Meta777]

Hi,

danke erstma an djmasi für den Tipp. Hab mir die Demo angeguckt und bin auf das OnInitChildren Ereignis aufmerksam geworden...

Also als Grundlage liegt ne Firebird-db mit einer Tabelle vor wie oben beschrieben.
Werd mal weiterprobieren.
Für Ratschläge bin ich immer dankbar..

Gottes Segen...

[CenBells]

hi,

erstelle mal ein objekt der folgenden struktur

Delphi-Quellcode:

  TDeinRecord = class
  private
    ...
  public
    property ID: Integer...;
    property ParentID: Integer ...;
    property FolderName: String;
  end;

Dann machst du ein query, mit der folgenden abfrage

Code:

SELECT *
  FROM DeineTabelle
 WHERE PArentID = 0
 ORDER BY ID

damit fängst du auf jeden fall mit den knoten an, die keinen vater haben
Das Ganze verbastelst du in einer prozedur...

Delphi-Quellcode:

procedure genBaum(AParentID: Integer = 0; AParentNode: PVirtualNode = nil); // brauchst beim ersten aufruf keine parenid übergeben
var
  LNode: PVirtualNode;
  LRec: TDeinRecord;
  LData: Pointer; 
  ...
begin
  ...
  // hole query s.o.
  while not DeinQuery.Eof do begin
    LRec := TDeinRecord.create;
    LRec.Id         := DeinQuery.FieldByName('Id').AsInteger;
    LRec.ParentID   := DeinQuery.FieldByName('ParentId').AsInteger;
    LRec.FolderName := DeinQuery.FieldByName('Foldername').AsString;
    LNode := DeinBaum.AddChild(AParentNode);
    LData := DeinBaum.getNodeData(LNode);
    TObject(LData^) := LRec;
    // und jetzt noch rekursiv aufrufen
    genBaum(DeinQuery.FieldByName('Id').AsInteger, LNOde);
    DeinQuery.Next;
  end;
end;

ein beispielaufruf ist dann

Delphi-Quellcode:

genBaum();

Gruß
Ken

[Gruber_Hans_12345]

Hi

zu CenBells Lösung noch zwei Sachen

irgendwo mußt du noch die NodeSize definieren (z.B.: FormCreate)

Delphi-Quellcode:

    DeinBaum.NodeDataSize       := sizeof(TDeinRecord );

und folgendes

Delphi-Quellcode:

LNode := DeinBaum.AddChild(AParentNode);
    LData := DeinBaum.getNodeData(LNode);
    TObject(LData^) := LRec;

müßte auch mit foglendem funktionieren

Delphi-Quellcode:

LNode := DeinBaum.AddChild(AParentNode, LRec);

ach ja, freigeben mußt du die Klassen auch wieder mal z.B.: im OnFreeNode

Delphi-Quellcode:

TDeineRecord(Sender.GetNodeData(Node)^).Free;

Gruss
Hans

[CenBells]

Hi

Zitat:

Zitat von Gruber_Hans_12345

...irgendwo mußt du noch die NodeSize definieren (z.B.: FormCreate)

Delphi-Quellcode:

    DeinBaum.NodeDataSize       := sizeof(TDeinRecord );

stimmt, musst du aber nicht per code machen, kannst du auch im oi machen. Dort setzt du die eigenschaft NodeDataSize auf 4.

Zitat:

Zitat von Gruber_Hans_12345

und folgendes

Delphi-Quellcode:

LNode := DeinBaum.AddChild(AParentNode);
    LData := DeinBaum.getNodeData(LNode);
    TObject(LData^) := LRec;

müßte auch mit foglendem funktionieren

Delphi-Quellcode:

LNode := DeinBaum.AddChild(AParentNode, LRec);

Ich habe mich noch zur Zeit der Version 3 in den VST eingearbeitet, und da ging das leider nicht. Gab beim auslesen immer einen fehler. Aber sicherlich ist es einen neuen versuch wert.

Zitat:

Zitat von Gruber_Hans_12345

ach ja, freigeben mußt du die Klassen auch wieder mal z.B.: im OnFreeNode

Delphi-Quellcode:

TDeineRecord(Sender.GetNodeData(Node)^).Free;

Stimmt ;) Das hab ich vergessen.

Gruß
Ken

[Gruber_Hans_12345]

wieviele verschiedene ParentID hast du denn ca ?

wenn es viele sind : wäre noch zu überlegen, ob folgende vorgehensweise nicht besser wäre

- reinladen ALLER Datensätze auf einmal
- sortieren der Datensätze (mit ParentID, ID) (ist etwas komplizierter ...)
- befüllen des Tree

da man sonst eine Menge Zugriffe auf die DB hat -> kann sehr Langsam werden !

ODER

Befüllen des Tree's mit den ParentID = 0 Daten alle anderen nicht reinladen
wenn dann im Root auf das + eines Nodes geklickt wird, dann erst die nächsten Daten reinladen

Gruss
Hans

[Meta777]

Zitat:

Zitat von Gruber_Hans_12345

...
Befüllen des Tree's mit den ParentID = 0 Daten alle anderen nicht reinladen
wenn dann im Root auf das + eines Nodes geklickt wird, dann erst die nächsten Daten reinladen

Gruss
Hans

So hab ich es auch gemacht. Ist glaub ich am besten so...
Danke an Alle für die Hilfe.
Falls ich nochmal Probleme hab, weiß ich ja das ich hier guten Rat bekom. :thumb: :slime:

Gottes Segen