TTreeView nach TVirtualStringTree umsetzen - Hilfe !!!

[DelphiDeveloper]

Die Funktion bzw. Prozedur Klassifizieren sind falsch

function TFormChildArchiv.AddVSTObject...
procedure TVirtualStringTree1.BuildTree;

muss wohl in deiner Klasse TKalk definiert werden.

stichwort: Methoden werden in einer Klassendeklaration als Funktions- oder Prozedurköpfe ohne Rumpf angegeben. Die definierenden Deklarationen folgen dann an einer anderen Stelle im Programm.

also

TKalk = class(TForm)
...
function AddVSTObject(avst: TCustomVirtualStringTree; aNode: PVirtualNode; aObject: TObject): PVirtualNode;
procedure BuildTree;

...
end;

und im implemtationsteil:

function TKalk.AddVSTObject(avst: TCustomVirtualStringTree; aNode: PVirtualNode; aObject: TObject): PVirtualNode;
...

procedure TKalk.BuildTree; ...

mfg
DD