Hi Leute,
ich habe ein Problem mit assign und Twebbrowser. Ich habe eine Klasse Class. Diese stellt eine Objektliste zur Verfügung. Dieser Objektliste möchte ich mehrere Instanzen von TWebbrowser verwalten. Mache ich es wie unten (1.Fall), wird nur der Zeiger weitergeben. Sobald ich die Instanz weiterverwende, sind die Daten futsch. Versuche ich es mit einem assign (2.Fall), gibt es einen Fehler "TDocument kann TDocument nicht zugwiesen werden".
Weiß jemand Rat?
Danke
Delphi-Quellcode:
type TClass = class (Tcomponent)
private
FDocumentlist:TObjectList;
.....
1.Fall
function TClass.Add(Item: TWebbrowser): Integer;
var doc:TDocument;
begin
doc:=TDocument.create(self);
doc.Document:=item;
result:=FDocumentList.add(doc);
end;
2.Fall
function TClass.Add(Item: TWebbrowser): Integer;
var doc,temp:TDocument;
begin
doc:=TDocument.create(self);
temp:=TDocument.create(self);
doc.Document:=item;
temp.Assign(doc);
result:=FDocumentList.add(temp);
end;