VirtualStringTree: Dynamisches Array in Klasse verwenden?

[100nF]

Hallo zusammen,

Ich beschäftige mich wiedermal mit der VirtualStringTree. Dabei arbeite ich mit einer Klasse dieser Form (Hab Sie der Übersichtlichkeit halber auf nur 2 Eigenschaften gekürzt):

Delphi-Quellcode:

type
  TTeil = class (TComponent)
      private
          fID:                   Integer;
          fName:                 String;
        published
          property ID: integer read fID write fID;
          property Name: string read fName write fName;
      end;
      pTeil = ^TTeil;

Das Hinzufügen von Datensätzen zur VST geschieht genau so wie es im damaligen Stammtisch-Video gezeigt wurde:

Delphi-Quellcode:

Teil := TTeil.create(nil);
Teil.ID := TeileID;
Teil.Name := 'BlaBla' ;
VST_Teile.AddChild(nil,Teil);

Und so werden die Nodes gespeichert und geladen:

Delphi-Quellcode:

procedure TF_Main.VST_TeileSaveNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Teil: TTeil;
begin
  Teil:=TTeil(Sender.GetNodeData(node)^);
  Stream.WriteComponent(Teil);
end;

procedure TF_Main.VST_TeileLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Teil: TTeil;
  p: pTeil;
begin
  Teil:=Stream.ReadComponent(nil) as TTeil;
  p:=sender.GetNodeData(node);
  p^:=Teil;
end;

Das funktioniert soweit auch alles.
Wie sich vielleicht schon vermuten lässt, handelt es sich bei den Datensätzen um Teile. Es soll also eine kleine Bauteilverwaltung werden Nun kann man das selbe Teil ja auch von verschiedenen Anbietern kaufen, was dann bedeutet, dass ich jedem Bauteil (Datensatz) mehrere Lieferanten, Bestellnummern und Preise zuordnen können muss. Da ich mich dabei nicht auf z.B. maximal 3 Anbietern festlegen will, muss das ganze ja dynamisch werden. Also mit Dynamischen Arrays würde ich mal schätzen.

Und genau da liegt jetzt mein Problem. Dem VST muss ja ganz am Anfang mal die Grösse zugewiesen werden:
VST_Teile.NodeDataSize := SizeOf(TTeil);
So, und wenn nun mein TTeil plötzlich dynamisch wird, wird wohl diese Initialisierung scheitern.

Übrigens wäre es schön wenn ich die, ich nenne sie mal Einkaufsinformationen, auch mit einer Klasse erstellen könnte, da ich dann diese Informationen wiederum ganz einfach in einer separaten VST darstellen kann:

Delphi-Quellcode:

type
  TEinkaufsinformation = class  (TComponent)
      private
          fLieferantenID:       Integer;
          fBestellnummer:       String;
          fPreis:               Extended;
      published
          property LieferantenID: integer read fLieferantenID write fLieferantenID;
          property Bestellnummer: String read fBestellnummer write fBestellnummer;
          property Preis: Extended read fPreis write fPreis;
      end;

Und dann mache ich einfach mal ein Array dazu:
type TEinkaufinformationen = Array of TEinkaufsinformation;
Das war jetzt einfach so ein bisschen Brainstorming, ich weiss nämlich nicht was ich nun mit diesem Array genau machen soll Irgendwie müsste das jetzt der Klasse TTeil hinzugefügt werden...nur wie?

Bitte schlagt mich nicht. Ich befürchte dass mein Ansatz schon ziemlich falsch sein könnte, mir fehlt einfach die Erfahrung. Ich habe schon nach Ansätzen im Internet gesucht, aber ich befürchte mein Vorhaben ist da schon sehr speziell, das ist schwierig da irgendwas ähnliches zu finden.

Also: Wie kann ich der Klasse TTeil beibringen, dass Sie einen dynamischen Inhalt annimmt und diesen auch korrekt speichern / laden kann?

Ich wäre extrem dankbar wenn mir da jemand auf die Sprünge helfen könnte!

mfg

[ConnorMcLeod]

Würde anstatt eines Arrays eine TList nehmen.
Edit: oder eine TObjectList.

[Furtbichler]

Ich kenn mich mit VST nicht aus, aber anstatt dem Objekt würde ich nur eine ID im Knoten speichern. Die Daten selbst sind dann in einer separaten Liste.

Ist es das, was ConnorMcLeod meint?

Man sollte grundsätzlich Datenhaltung und Visualisierung strikt trennen.

[100nF]

Zitat:

Würde anstatt eines Arrays eine TList nehmen.
Edit: oder eine TObjectList.

Also eine TList wäre halt nicht so toll weil ich da ja nur Strings speichern kann.
TObjectList kenne ich noch nicht, müsste ich mir erst mal anschauen. Aber diese wird dann doch auch dynamisch sein oder? Ich weiss dann eben nicht was ich bei der NodeDataSize angeben muss.

Mein TTeil hat nun ja eine feste, vordefinierte Grösse. Und genau diese Grösse gebe ich ja dann bei der VST_Teile.NodeDataSize an. Nur wie mache ich das wenn TTeil dynamisch ist?

Oder kriege ich es irgendwie hin, dass TTeil gar nicht erst dynamisch wird? Wohl eher nicht oder? Wäre irgendwie ja unlogisch...

Zitat:

Ich kenn mich mit VST nicht aus, aber anstatt dem Objekt würde ich nur eine ID im Knoten speichern. Die Daten selbst sind dann in einer separaten Liste.

OK auf die Idee bin ich noch gar nicht gekommen^^ Eine separate Liste mit den Einkaufsinformationen aller Bauteile, und dann jeweils nur die Einträge anzeigen, die zum markierten Artikel gehören? Wäre eine Möglichkeit, allerdings finde ich Sie etwas umständlich. Ein direktes Zuweisen der Einkaufsinformationen zum jeweiligen Artikel ist irgendwie viel schöner und übersichtlicher.

Zitat:

Man sollte grundsätzlich Datenhaltung und Visualisierung strikt trennen.

Genau das ist eben bei der VST nicht der Sinn. Da hat man alles in einem, und man "sagt" dann der Komponente, welche Datensätze sie wie anzeigen soll, wie sie sich genau verhalten soll usw.

[daywalker9]

Zitat von urbanbruhin:

Zitat:

Würde anstatt eines Arrays eine TList nehmen.
Edit: oder eine TObjectList.

Also eine TList wäre halt nicht so toll weil ich da ja nur Strings speichern kann

Nein, Du kannst da nicht nur Strings speichern. Du kannst dort ebenso Records, Klassen etc.. drin ablegen.

[100nF]

Ach so, ich hab da an TStringList gedacht, da ich auch TList noch nicht kannte
Aber das scheint ja eine Art Liste von Pointern zu sein. Nur versteh ich nicht wie ich das verwenden soll, ich will ja nicht die Pointer meiner Daten abspeichern, sondern die Daten selber....

[daywalker9]

Korrekt, es ist eine Liste von Pointern auf deine Daten. Du erzeugst wie gewohnt deine Objekte und fügst Sie per .Add hinzu und kannst später per Items[index] draufzugreifen. So kommst Du dann an deine Daten ran.

[100nF]

Naja das Problem ist dann aber dass diese Daten nicht mit den TTeil-Daten zusammen abgespeichert und geladen werden. Das müsste ich dann "von Hand" machen, was irgendwie auch nicht sehr elegant ist. Und ausserdem ist es wieder eine Fehlerquelle mehr...

Die Einkaufsinformationen sollten wenn möglich schon auch direkt mit den TTeil-Eigenschaften abgespeichert und wieder geladen werden.

Ich dachte das ist doch bestimmt keine grosse Sache, aber so langsam bin ich da nicht mehr so zuversichtlich

[ConnorMcLeod]

Daten und GUI sollte man IMMER voneinander trennen. Stell Dir nur mal vor, Du willst/sollst die Daten in sechs Monaten anders präsentieren. Dann müsstest Du entweder alles neu erfinden oder einen unsichtbaren VST im Hintergrund mitlaufen lassen...

Aus Erfahrung wird aus zusammengehörenden Daten ein Record und aus diesem Record bald eine Objektklasse, damit der Record auch etwas intelligenter wird. Die Instanzen dieser Klasse hast Du dann entweder in einem Array (=schneller sequentieller Zugriff) oder in einer Liste (= Add/Delete/Sort komfortabler). Das Data vom VST ist dann immer nur ein Pointer auf eines dieser Objekte.

Hoffe, das hilft.

[100nF]

Ja im professionellen Bereich wird das wohl ein wichtiges Kriterium sein, dass GUI und Daten strikte getrennt sind. Aber ich denke für ein kleines Privatprojekt das einfach sein Zweck erfüllen soll kann man da auch eine Ausnahme machen

Die VST-Komponente bietet da halt schon sehr viel Komfort:

• Speichern und Laden aller Datensätze mit wenigen Zeilen Code
• Einfaches Erstellen von Unterknoten, welche auch automatisch wieder richtig geladen werden
• Änderungen in der GUI wirken sich automatisch auch auf die "Datenbank" aus
• Integrierte Filter- und Suchfunktion
• Einflussnahme auf die grafische Darstellung ganz einfach und umfangreich

Also zum Darstellen der Daten will ich keine andere Komponente verwenden. Und wenn ich sie schon zum darstellen nehme, warum dann nicht auch gerade für die Datenverwaltung, wenn es doch auch viel einfacher ist als eine separate Datenbank?

Das "Richtige" für eine Bauteile-Verwaltungssoftware wäre ja wohl eine echte Datenbank. Das finde ich dann aber schon sehr mühsam, alle Datensätze immer zwischen Datenbank und VST hin- und herzuschieben. Wie gesagt, es soll ja nur ein kleines Privatprojekt werden...

Ausserdem lässt sich ja auch eine Export-Funktion relativ leicht programmieren, so könnte man die Datensätze wenigstens in einem gescheiten Format abspeichern, falls das mal notwendig sein sollte.