procedure TForm1.GetIDs;
var
All,
Doc,
E : OleVariant;
i : Integer;
S : String;
begin
Doc := WebBrowser1.Document;
All := Doc.all;
for i := 0 to All.Length - 1 do begin
E := All.Item(i);
S :=IntToStr(i) + ' ' + E.id;
Memo2.Lines.Add(S);
end;
end;
|