Zitat von
colder:
PCodeData = ^TCodeData;
TCodeData = record
Caption: string;
Text: string[255];
ItemType: TItemType;
OpenIndex: Integer;
CloseIndex: Integer;
end;
[/delphi]
Da du hier einen AnsiString benutzt, rufst du hoffentlich im OnFreeNode auch das Finalize("Data") auf. Wenn nicht, dann sammelst dui nämlich String-Speicherlecks.