Record-Variable in Klasseninstanz setzen

[Sir Rufo]

Zum Testen:

Delphi-Quellcode:

type
  TFoo = class
  private
    FData : string;
    function GetData : string;
  public
    property Data : string read GetData; 
  end;

function TFoo.GetData : string;
begin
  if Self = nil then
    Result := 'keine Instanz vorhanden'
  else
    Result := FData;
end;

procedure Test;
var
  LFoo : TFoo;
begin
  ShowMessage( LFoo.Data );
end;