Scan editor for link occurence

Stef Merlijn

Hi,

In my editor I add a mailto: link.
Is the a way to check if there is already such a link present with combination of mailto: and UNSUBSCRIBE?

Code

wpEmailEditor.Changing;
  wpEmailEditor.BeginUpdate;
  par := wpEmailEditor.ActiveText.AppendNewPar();
  startobj := par.AppendNewObject(wpobjHyperlink,true,false);  
  par.Append('Please click here to unsubscribe!');                      
  endobj   := par.AppendNewObject(wpobjHyperlink,true,true);  
  endobj.SetTag(startobj.NewTag);                             
  startobj.Source := 'mailto:' + vreplyaddress + '?Subject=UNSUBSCRIBE';
  // to display:
  wpEmailEditor.EndUpdate;
  wpEmailEditor.DelayedReformat;

Alles anzeigen

support

Yes, You can extract a list of all objects using TextObjectsGetList

You need to create a TWPTextObjList object which is passed to that function.

Stef Merlijn

Can you give me an example on how to do this?

support

It should work like this:

Code

i : Integer;
    aList : TWPTextObjList ;
begin
    aList := TWPTextObjList.Create;
    WPRichText1.TextObjectsGetList(aList, wpobjHyperlink, false);
    for i := 0 to aList.Count-1 do
    begin
       if Pos('mailto:', aList.Items[i].Source)>0 then ShowMessage('We have a mail to');
    end;
    aList.Free;

But this only works if - sorry for the bug - LoopObjectsB is used by TextObjectsGetList. Will be fixed in next release.