я пытался это сделать со ссылкой на класс. И работало только один раз, следующий экземпляр класса перетирал ссылку. А как мне посоветовали и как я сам нашёл, нужно заполнять Запись и под неё уже выделять память и уже ссылку на память брать. Ну а почему не получалось с экземплярами класса, как тогда работают дженерики?
Покажите код
type TUsageItem = record LineNum, Position: Integer; ScriptName: String; ScriptType: TScriptType; end; TPUsageItem = ^TUsageItem; .... Node:=UsageTree.Items.AddChild(HostNode, capt); New(ui); ConvertUsageClass(Items, ui, i.LineNum); Node.Data:=ui; Как то так.
Обсуждают сегодня