Properties haben nach Zuweisung falsche Werte

[himitsu]

Kurzfassung: Delphi verwendet hier nur eine Variable, obwohl es zwei verwenden müsste, da erst nach dem zweiten Funktionsaufruf die Strings zusammengemanscht werden.

Eventuell könnten ein paar Klammern hier helfen.

Delphi-Quellcode:

function TForm1.GetDebitorName: string;
begin
  Result := Copy(GetReAdr.Vorname + ' ') + GetReAdr.Name;
end;

[Der schöne Günther]

Hat das mittlerweile jemand in den QC eingetragen? Wenn nicht, würde ich das heute machen...

[Sir Rufo]

Zitat von Der schöne Günther:

Hat das mittlerweile jemand in den QC eingetragen? Wenn nicht, würde ich das heute machen...

mach

[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.

[Der schöne Günther]

Jaja, QC war bei mir mittlerweile schon das Synonym für Quality.Embarcadero.Com

Ich habe es, etwas abgeändert, eingestellt unter
https://quality.embarcadero.com/browse/RSP-9649

Bitte kräftig voten