[fpc-pascal]init a class from another class

[Ivan Montes]

Hi all,

I cannot find a solution to a problem I've got programming a
library. I want to initialze a class which is passed as a
parameter to another class method. It looks like this :

tCoDec = CLASS
  constructor init; VIRTUAL;
  destructor done; VIRTUAL;
end;

tmyCoDec = CLASS (tCoDec)
  constructor init; OVERRIDE;
  destructor done; OVERRIDE;
end;

pCodecList = ^tCodecList;
tCodecList = RECORD
  codec :tCoDec;
  next :pCodecList;
end;

tMain = CLASS
  codec_list :pCodecList;
  constructor init;
  destructor done;

  registerCoDec (var cd :tCoDec);
end;

tMain.registerCoDec(var cd:tCoDec);
begin
  cd := "class of cd".init; 
  AddToCoDecsList(cd);
end;

I don't know how to do this or if it's possible. It's the first time I use classes and maybe the first I use OOP at all, so maybe this is completely impossible to do.

Any help will be appreciated, thks so much.
bye, Ivan


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20011008/3b602616/attachment.html>