Delphi-Quellcode:
FDocumentlist:TObjectList;
function TCldis.Count: Integer;
begin
result:=FDocumentList.Count;
end;
function TCldis.Get(Index: Integer): TDocument;
begin
result:=TDocument(FDocumentList[Index]);
end;
[/quote]
Soweit so gut...
Delphi-Quellcode:
procedure TForm1.ActionExtractInitExecute(Sender: TObject);
begin
Cldis.add(WebBrowser1); // in Liste einfügen
Cldis.Count;
Cldis.Document[1].Document;
...
end;
Nun ja, du greifst in deiner Get funktion auf FDocumentList[Index] zu, ersetz das mal durch TDocument(FDocumentList.Items[Index]);
Gruß Der Unwissende