sınıf tanımlama hatası

[vedatkaba]

Kod: Tümünü seç

type
  TDataNode=class(TTreeNode)
private
  FExtraCod:integer;
Protected
  Procedure SetExtraCod(const value:integer);virtual;
  function GetExtraCod:integer;virtual;
public
  Property ExtraCod:integer Read GetExtraCod write SetExtraCod;
  end;
type
TTableNode=class(TDataNode)
  protected
function GetExtraCod:integer;
end;

Bu şekilde sınıflar türetiyorum....

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
node:TDataNode;
begin
CurrentNodeClass:=TDataNode;
TreeView1.Items.Add(nil,'VeriTabanı');
node.ExtraCod:=1;
end;

Butona tıklıyorum ekleme yapıyor ama aşağıda ki şekilde çalışmıyor

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
node:TDataNode;
begin
CurrentNodeClass:=TDataNode;
node:=TreeView1.Items.Add(nil,'VeriTabanı');
node.ExtraCod:=1;
end;

Bu satır nedeni ile çalışmıyor.

node:=TreeView1.Items.Add(nil,'VeriTabanı');

Verdiği hata da bu arkadaşlar .
[Error] Unit1.pas(71): Incompatible types: 'TDataNode' and 'TTreeNode'

Teşekkür ederim....

[aslangeri]

s.a.
tipler farklı olduğu için bu hatayı vermesi normal.
şöyle bir değişiklik sorunu halledebilir.

Kod: Tümünü seç

node:=TTreenode(TreeView1.Items.Add(nil,'VeriTabanı'));

kolay gelsin.

[vedatkaba]

Kod: Tümünü seç

node:=TDataNode(TreeView1.Items.Add(nil,'VeriTabanı'));

Bu şekilde çalıştı hocam.Hayret birşey bu kadar basitmiş ama göremedik.