Array-Einträge über Indices erreichen?

[Igotcha]

Hallo zusammen,

meine ersten Schritte mit dem VirtualTreeview gehen sehr gut voran, aber heute wieder eine neue Frage:

Folgendes Record enthält die Daten eines Nodes:

Delphi-Quellcode:

type
  PTreeData = ^TTreeData;
  TTreeData = record
    FCaption: String;
    FTyp: shortint;
    FKostenart:String;
    FJAN, FFEB, FMAR, FAPR, FMAI, FJUN, FJUL, FAUG, FSEP, FOKT, FNOV, FDEZ, FLFD : double;
  end;

Editiert werden die Daten mittels:

Delphi-Quellcode:

procedure TfrmMain.MyTreeNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
var
  myData : pTreeData;
begin
   myData:=myTree.GetNodeData(Node);
    MyData.FMAR:=strtoFloat(NewText); // Das möchte ich in Abhängigkeit von "Column" haben

end;

Da man in der Anwendung nur die Monatswerte editieren kann, wäre es schön über den Column-Index auf den entsprechenden Record-Eintrag zugreifen zu können.

Also in der Art:

Delphi-Quellcode:

MyData[Column]:=strtoFloat(NewText);

Hier wird aber ein "Array type required" bemängelt.

Gruß Igotcha

[Nikolas]

Bin mir nicht ganz sicher, aber myData ist doch ein Pointer auf ein TTreedata und kein array of Ttreedata oder PTreedata.

[Igotcha]

Zitat:

Zitat von Toxman

Bin mir nicht ganz sicher, aber myData ist doch ein Pointer auf ein TTreedata und kein array of Ttreedata oder PTreedata.

Ja, aber wie erreiche ich das Gewünschte? Das ist hier die Frage ;-)

Also mit z.B. myData.FJAN:=1000 kann ich den Wert direkt hinterlegen, da eine Feldänderung noch andere Berechnungsänderungen nach sich zieht - z.B. den entsprechenden Root-Knoten, in dem die entsprechende Summe aktualisiert werden muß - wäre es sehr schön, wenn es mit einem Index auch irgendwie geht, da ich ansonsten mit case arbeiten müßte.

[Igotcha]

Stop, alles zurück :-)

Dein Kommentar hat mich auf die Idee gebracht, die Monatswerte gleich in einem Array im Record zu definieren - das könnte zusätzliche, positive Nebeneffekte haben :mrgreen:

Danke und Gruß
Igotcha