Delphi AddObject - 不添加对象

Delphi AddObject -not adding object

我被这个奇怪的问题难住了。我将 Memo.Lines 作为 TString 传递给一个过程,并用 AddObject 填充它。但是该对象没有被添加(由 L := TURLLinkObject(AStrings.Objects [AStrings.Count -1]) 立即检查。(编辑:AddObject returns 0 这是根据 Delphi 的 Help 添加的项目的索引)

这是我的程序:

type
  TURLLinkObject = class(TObject)
    url,
    attr,
    name : string;
  end;

procedure getLinks(XMLNode: TNode; AStrings: TStrings; Match:string='');

var L : TURLLinkObject;
    i : integer;
    S : string;

begin;
  if XMLNode = nil then exit;

  if (XmlNode.NodeName = 'a') and (XmlNode As TElement).hasAttribute('href') then
  begin;
    L := TURLLinkObject.Create;
    L.url := (XmlNode AS TElement).getAttribute('href');
    L.attr := GetAttributesText(XmlNode);
    L.Name := 'Some Name';

    if (Match = '') or (pos(Match, L.url) <> 0) then
    begin;
       s := format('%s :: %s', [L.Name, L.url]);
       i := AStrings.AddObject(s, L);
       L := TURLLinkObject(AStrings.Objects[AStrings.Count -1]);
    end
    else
      L.Free;
  end;

  if XMLNode.hasChildNodes then
  begin
    for i:= 0 to XMLNode.childNodes.length-1  do
      getLinks(XMLNode.ChildNodes.item(i), AStrings, PartialMatchName);
  end;
end;

TMemo.Lines类型源自TStrings,不支持Objects属性; Objects 支持在 TStringList 类型中实现,因此您不能将 ObjectsTMemo.Lines 一起使用。