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
类型中实现,因此您不能将 Objects
与 TMemo.Lines
一起使用。
我被这个奇怪的问题难住了。我将 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
类型中实现,因此您不能将 Objects
与 TMemo.Lines
一起使用。