Re: Create an hyperlink by insert

Return to index

Author

Message

Yernar Shambayev

Posted: 06/15/2005 6:12:10

function MakeTag(TagStr: string): Integer;

var

  r: PChar;

begin

  if (TagStr <> '0') and (TagStr <> '') then

  begin

    r := StrNew(PChar(TagStr));

    Result := Integer(r);

  end

  else

    Result := StrToIntDef(TagStr, 0);

end;

rvBody.InsertStringTag('Text on screen',

MakeTag('http://link.to.follow'));

On 14 Jun 2005 21:17:58 +0400, "Phil"

<philippe.NOtessierSP@AMeurop-assistance.be> wrote:

>

>Hi,

>I'm currently to generate a document by using procedure like :

>rvBody.InsertText('Type of sort of text');

>

>I would insert an hyperlink text by the same way like :

>rvBody.InsertTextHTML('Text on screen','http://link.to.follow');

>

>Do you know to do this ?

>Thanks.