Data zu Treeview hinzufügen ?

[Chemiker]

Hallo Delphiturbo,

schau Dir mal dieses Tut. an. Hier werden die meisten Deiner Fragen sehr gut erklärt und mit Beispielen illustriert.

TreeView - Tut.

Vielleicht noch ein Tipp am Rande, da Data ein Pionter ist, erstelle ich mir von den Daten die ich als Data am TreeView hängen will ein Object und hänge dieses dann als Data an.

In etwa so müsste das Daten – Object aussehen:

Delphi-Quellcode:

unit uDataClassTreeView;

interface

Type
  TDatenfuerTreeViewClass= Class(TObject)
  private
    FUrl: String;
    FProviderTyp: String;
    function GetUrl: String;
    procedure SetUrl(const Value: String);
    function GetProvider: String;
    function GetProviderTyp: String;
    procedure SetProviderTyp(const Value: String);

  published
    property Url: String read GetUrl write SetUrl;
    property Provider: String read GetProvider;
    property ProviderTyp: String read GetProviderTyp write SetProviderTyp;
  public
    constructor Create(aUrl: String);
    destructor Destroy; override;
  End;

implementation

{ TDatenfuerTreeViewClass }

constructor TDatenfuerTreeViewClass.Create(aUrl: String);
begin
  inherited Create;
  Url:= aUrl;
end;

destructor TDatenfuerTreeViewClass.Destroy;
begin

  inherited Destroy;
end;

function TDatenfuerTreeViewClass.GetProvider: String;
var
  strHilf: String;
begin
  if FUrl <> '' then
  begin
    strHilf:= FUrl;
    Delete(strHilf, 1, Pos('/',strHilf)+1);
    Delete(strHilf,pos('.',strHilf),Length(strHilf));
    result:= strHilf;
  end;
end;

function TDatenfuerTreeViewClass.GetProviderTyp: String;
begin
  Result:= FProviderTyp;
end;

function TDatenfuerTreeViewClass.GetUrl: String;
begin
  result:= FUrl;
end;

procedure TDatenfuerTreeViewClass.SetProviderTyp(const Value: String);
begin
  if Value <> FProviderTyp then
  begin
    FProviderTyp:= Value;
  end;
end;

procedure TDatenfuerTreeViewClass.SetUrl(const Value: String);
begin
  if Value <> FUrl then
  begin
    FUrl:= Value;
  end;
end;

end.

Man könnte noch weitere Informationen in das Object stecken.

Dieses Object muss vor dem Einfügen in den Baum dann ganz normal mit Create erstellt werden und wird an einen Knoten angehängt.

Wenn das Form wieder zerstört wird ist es wichtig die Objecte wieder Frei zugeben,

Bis bald Chemiker