selbstlöschenden Pointer erstellen

[R2009]

Hi himitsu,
warum so einen Aufwand. Deklariere TX doch einfach als Klasse.

als Record:

Delphi-Quellcode:

Type TX = Record 
    a: Integer; 
    r: ^TFormatSettings; 
  End;

als Klasse:

Delphi-Quellcode:

type
 TX = Class
    a: Integer;
    r: ^TFormatSettings;
    Constructor create;
    Destructor destroy;
  End;

.....

Constructor TX.create;
begin
  New(r);
end;

Destructor TX.destroy;
begin
  dispose(r);
end;

Es mag jetzt vielleicht formal nicht alles richtig sein aber prinzipiell müsste das so funktionieren.
Grüsse
Rainer