Zitat:
Also überdenk noch mal, was du eigentlich machen willst.
Das weiss ich schon, deshalb fragte ich ja hier
Wie gesagt, meine Anwendung läuft, ich möchte sie aber in der Codegröße in Bezug auf die Records schrumpfen (u.a. auch wegen der Pflege).
Zitat:
adata ist vom Typ TData. TData ist ein Record mit den Feldern FGBez und FMonat. Die methode
GetNodeData liefert einen Pointer zurück. Das mal dazu wie es aussieht.
Erstmal hast du vergessen ein Feld anzugeben in dem die Daten abgelegt werden sollen:
Code:
adata[b].FGBez[/b] := ...;
Nicht notwendig, da der Kompiliervorgang schon vorher abbricht. Die Zeile hätte ich noch hinschreiben können, ist aber unnötig.
Zitat:
Das hingegen würde gehen:
Delphi-Quellcode:
type
TData = record
...;
end;
PData = ^TDate;
var
adata: PData;
...
adata := PData(MyPointer);
Wenn ich das recht überblicke, dann würde ich damit wieder genau am Anfang meines Problems stehen denn:
Delphi-Quellcode:
type
TData = record
...;
end;
PData = ^TDate;
var
Istdaten: PData;
Plandaten: PData;
Prognosedaten: PData;
Müsste in allen drei Fällen auf die gleichen Inhalte zeigen, wenn ich das richtig sehe. Und bei
Delphi-Quellcode:
type
TData = record
...;
end;
PData1 = ^TDate;
PData2 = ^TDate;
PData3 = ^TDate;
var
Istdaten: PData1;
Plandaten: PData2;
Prognosedaten: PData3;
bin ich wieder bei meiner Ausgangsfrage, denn ich müsste in meinen Routinen entweder PData1 oder PData2 oder PData3 benutzen und hätte dann wieder drei Varianten, um den Pointer auf den richtigen Record zu setzen:
Delphi-Quellcode:
var
myData: IstDaten;
begin
myData:=atree.GetNodeData(myNode); oder
var
myData: Plandaten;
begin
myData:=atree.GetNodeData(myNode); oder
var
myData: Prognosedaten;
begin
myData:=atree.GetNodeData(myNode); oder
Ich möchte garantiert nicht unhöflich erscheinen, aber ist das eigentliche Problem eigentlich erkannt worden? Jeder VTV hat seinen eigenen Record, da er eigene Daten enthält. Ein VTV zeigt die IstDaten, der zweite die Plandaten, der dritte die Prognosedaten an. Die Records sind in der Struktur alle gleich - das haben wir ja auch hinbekommen. Der Zugriff auf die Daten (neu, lesen, schreiben) steuert der VTV, indem beim schreiben oder lesen an den VTV die Aufforderung gesendet wird "Gib mir bitte einen Zeiger auf den Recordeintrag entweder auf die Ist-, Plan- oder Prognosedaten. Erst wenn ich diesen Zeiger habe, komme ich an die Daten des Recordsatzes. Dies erledigt die VTV-Methode "GetNodeData". Dies hängt damit zusammen, dass der VTV über die Daten, die er verwaltet nichts weiss, sondern nur pro Node eine Verknüpfung (sprich also nur die Nummer auf einen Record-Satz, nicht aber die Art des Record-Typs) auf einen Recordeintrag in Form einer verketteten Liste hat.
Um nicht, wie es im Moment existiert, für jeden VTV eigene Routinen schreiben zu müssen, die sich nur darin unterscheiden, auf
welche Daten er zugreift, habe ich nach einer Vereinfachung gesucht. Und zwar in der Form, dass ich für alle drei VTV pro Aufgabe nur eine Routine schreibe, der ich mitteile a) welcher VTV überhaupt angesprochen wird und b) auf welche Recorddaten sich die Manipulation bezieht.
Für das Beispiel einer Summenbildung wäre das z.B.:
Delphi-Quellcode:
procedure BildeSumme(TreeViewIstDaten, IstDatenrecord)
procedure BildeSumme(TreeViewPlanDaten, PlanDatenrecord)
procedure BildeSumme(TreeViewPrognoseDaten, PrognoseDatenrecord)
Ich
muss aber (wie schon mehrfach gesagt), sobald ich die Daten bearbeiten möchte, angeben,
welche Daten bearbeitet werden sollen. Und diese Daten kann ich mir nur mit der Methode "GetNodeData" holen - das Ergebnis ist ein Zeiger auf den entsprechenden Record-Eintrag, abhängig vom dem "Node", der ausgewählt wurde. Die Variable muss aber vom richtigen Record-Typ (ist, Plan, Prognose) sein.
Um mal bei meiner Ursprungsdeklaration zu bleiben, folgendes (unsinniges) Beispiel ist möglich:
Delphi-Quellcode:
var
myIst: pIstdaten;
myPlan: pPlandaten;
begin
myIst:=TreeviewIst.GetNodeData(Node);
myPlan:=TreeviewIst.GetnodeData(Node);
In diesem Fall hätte ich mit der selben Methode des VTVs für IstDaten einen Zeiger bekommen auf meine Plan-
und meine IstDaten (sagen wir mal einen Zeiger auf jeweils den zweiten Record ). Dies kommt daher, da der VTV nichts über die Art der Daten, die er verwaltet weiss.
Und genau das, also welche Art des Records bearbeitet werden soll, möchte ich als Parameter übergeben. Dieser Übergabeparamteter muss aber ein Pointer auf den richtigen Record (Ist-, Plan- oder Prognosedaten-Record) sein:
Delphi-Quellcode:
BildeSumme(TIST, pIstDaten)
BildeSumme(TPLAN, pPlanDaten)
BildeSumme(TPROGNOSE, pPrognoseDaten)
und dann sollte so etwas in der Art in der Procedure stehen:
procedure BildeSumme(atree: TVirtualStringTree; adata: ???)
begin
adata:=atree.GetNodeData(Node);
adata.FBez:='Test';
etc.
end;
Gruß Igotcha