Eigenschaften einer Objektinstanz protokollieren, D7

[edvoigt]

Hallo,

ich habe relativ komplexe eigene Objekte. Beim Debuggen kann man sich sehr schön anzeigen lassen, welche Werte in den einzelnen Eigenschaften einer Instanz aktuell vorliegen. Das würde ich gern protokollieren können.

Ein Beispiel:

Delphi-Quellcode:

  TLitem = class(TObject)
    Id: integer;       
    MasterId: integer; 
    Default: integer;  
    Key: string;       
    Name: string;
    enabled,
    checked: boolean;
    function HasSelList(LB: str2): boolean;
  end;

  TlpList = class(TObjectList)
  private
    function GetLitem(aindex: integer): TLitem;
    procedure SetLitem(aindex: integer; const Value: TLitem);
  public
    ItemIndex: integer;
    ItemId: integer;
    SortedById,
    SortedByName: boolean;
    ready: boolean;
    property items[aindex: integer]: TLitem read getLitem write setLitem; default;
    function Add(aLitem: TLitem): integer;
    function AddDetails(aId: integer; aName: string; aIsEnabled: boolean; aEntry: TObject): integer;
...
var
  L1: TlpList;
begin
  L1 := TlpList.Create;
...

Nun möchte ich in verschiedenen Programmsituationen eine Hilfsroutine aufrufen, die mit L1 als Parameter aufgerufen wird und mir eine StringList mit allen aktuellen Werten in L1 liefert. Damit könnte ich mir dann eine Textdatei ausgeben.

Danke, Werner