Check if hyperlink

  • How can I determine if the current text is a hyperlink?

    I want to auto add hyperlinks for existing documents even if they do not have http:// in front of them:

    // http://
    Content.Finder.ToStart;
    while Content.Finder.Next('http://*') do begin
    Content.Finder.SelectText;
    Content.InputHyperlink(Content.Finder.FoundText);
    end;

    // Web URL
    Content.Finder.ToStart;
    while Content.Finder.Next('www.*') do begin

    *
    * Only add hyperlink if not already defined!
    *
    if Content.SelectedObject.Source <> '' then begin
    Content.Finder.SelectText;
    Content.InputHyperlink(Content.Finder.FoundText);
    end;
    end;