Properties haben nach Zuweisung falsche Werte

[Stevie]

Nicht ins QC, sondern ins JIRA bitte.

Minimalcode zum Nachstellen ist wohl sowas hier:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TPerson = class
  private
    FFirstname: string;
    FLastname: string;
  public
    property Firstname: string read FFirstname write FFirstname;
    property Lastname: string read FLastname write FLastname;
  end;

var
  person: TPerson;

function GetPerson: TPerson;
begin
  person.Firstname := 'Joe';
  person.Lastname := 'Doe';
  Result := person;
end;

var
  s: string;
begin
  person := TPerson.Create;
  try
    s := GetPerson.Firstname + ' ' + GetPerson.Lastname;
    Assert(s = 'Joe Doe');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.