tobjectlinker.setlinkedvar

public procedure tobjectlinker.setlinkedvar(

  const linkintf: iobjectlink;

  const source: iobjectlink;

  var dest: iobjectlink;

  const ainterfacetype: pointer = Nil

); overload;

procedure tobjectlinker.setlinkedvar(

  const linkintf: iobjectlink;

  const source: tlinkedobject;

  var dest: tlinkedobject;

  const ainterfacetype: pointer = Nil

); overload;

procedure tobjectlinker.setlinkedvar(

  const linkintf: iobjectlink;

  const source: tlinkedpersistent;

  var dest: tlinkedpersistent;

  const ainterfacetype: pointer = Nil

); overload;

procedure tobjectlinker.setlinkedvar(

  const linkintf: iobjectlink;

  const source: tmsecomponent;

  var dest: tmsecomponent;

  const ainterfacetype: pointer = Nil

); overload;