<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4616.200" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV>
<DIV><FONT face=Arial size=2>Hi all,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I cannot find a solution to a problem I've got
programming a</FONT></DIV>
<DIV><FONT face=Arial size=2>library. I want to initialze a class which is
passed as a</FONT></DIV>
<DIV><FONT face=Arial size=2>parameter to another class method. It looks like
this :</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>tCoDec = CLASS</FONT></DIV>
<DIV><FONT face=Arial size=2> constructor init; VIRTUAL;</FONT></DIV>
<DIV><FONT face=Arial size=2> destructor done; VIRTUAL;</FONT></DIV>
<DIV><FONT face=Arial size=2>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>tmyCoDec = CLASS (tCoDec)</FONT></DIV>
<DIV><FONT face=Arial size=2> constructor init; OVERRIDE;</FONT></DIV>
<DIV><FONT face=Arial size=2> destructor done; OVERRIDE;</FONT></DIV>
<DIV><FONT face=Arial size=2>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>pCodecList = ^tCodecList;</FONT></DIV>
<DIV><FONT face=Arial size=2>tCodecList = RECORD</FONT></DIV>
<DIV><FONT face=Arial size=2> codec :tCoDec;</FONT></DIV>
<DIV><FONT face=Arial size=2> next :pCodecList;</FONT></DIV>
<DIV><FONT face=Arial size=2>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>tMain = CLASS</FONT></DIV>
<DIV><FONT face=Arial size=2> codec_list :pCodecList;</FONT></DIV>
<DIV><FONT face=Arial size=2> constructor init;</FONT></DIV>
<DIV><FONT face=Arial size=2> destructor done;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> registerCoDec (var cd :tCoDec);</FONT></DIV>
<DIV><FONT face=Arial size=2>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>tMain.registerCoDec(var cd:tCoDec);</FONT></DIV>
<DIV><FONT face=Arial size=2>begin</FONT></DIV>
<DIV><FONT face=Arial size=2> cd := "class of cd".init; </FONT></DIV>
<DIV><FONT face=Arial size=2> AddToCoDecsList(cd);</FONT></DIV>
<DIV><FONT face=Arial size=2>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>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.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Any help will be appreciated, thks so
much.</FONT></DIV>
<DIV><FONT face=Arial size=2>bye, Ivan</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV></DIV></BODY></HTML>