Hallo,
folgende Routine macht Probleme wenn ich den Compiler Direktiven die Optimierung einschalte. Ich erhalte die Fehlermedung "Eintrag kann nicht eingefügt werden". Ist die Optimierung ausgeschaltet läuft alles gut.
Es handelt sich um ein normales TTreeview, als Start Parameter für ParentNode wird nil übergeben.
LoadFolder(nil, NameSpace.Folders);
Code:
procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);
var
i: Integer;
node: TTreeNode;
li :string;
begin
for i := 1 to Folder.Count do
begin
li := Folder.Item[i].DefaultMessageClass;
if AnsiSameText(li,'IPM.Contact') then
node := tvFolders.Items.AddChild(ParentNode{ nd }, Folder.Item[i].Name);
LoadFolder(node, Folder.Item[i].Folders);
end;
end;
Mir scheint es so zu sein, dass beim rekursiven Aufruf der Bezug zum TreeView verloren geht.
Jemand eine Idee?
Plattform: D5 unter Win7.
Gruss Thomas