Properties haben nach Zuweisung falsche Werte

[baumina]

Mit ShortStrings funktionierts, d.h. irgendwie verpointert der sich.

[Jumpy]

Zitat von DeddyH:

Es funktioniert auch, wenn man die Adresse in einer lokalen Variablen zwischenspeichert.

Delphi-Quellcode:

function TForm1.GetDebitorName: string;
var
  a: TAdresse;
begin
  a := GetReAdr;
  Result := a.Vorname + ' ' + a.Name;
end;

Aber wenn man's (sinnlos) mischt wieder nicht:

Delphi-Quellcode:

function TForm1.GetDebitorName: string;
var a:Tadresse;
begin
  a:=GetReAdr;
  Result := a.Vorname + ' ' + GetReAdr.Name;
end;

Edit: Andersrum gemischt geht's dann doch wieder:
Result := GetReAdr.Vorname + ' ' + a.Name;

[Uwe Raabe]

Es hat offenbar etwas mit der internen Realisierung des String-Results als var-Parameter und der nicht-vorhandenen Referenzzählung bei String-Konstanten zu tun. Aber da mögen sich die Compiler-Leute von Embarcadero dran auslassen.

Wer schreibt den QC?

[himitsu]

Das ist ein "Fehler" im CodeHiglighting, dann das kann dieses nicht richtig auflösen, nur anhand eines Codeabschnittes.

"Name" ist nur reserviert, innerhalb einer Property-Deklaration und bei Prozedurimporten (wo es wiederum der SyntaxHighlighter in der IDE nicht hinbekommt)

[BlueStarHH]

Zitat von DeddyH:

Es funktioniert auch, wenn man die Adresse in einer lokalen Variablen zwischenspeichert.

Delphi-Quellcode:

function TForm1.GetDebitorName: string;
var
  a: TAdresse;
begin
  a := GetReAdr;
  Result := a.Vorname + ' ' + a.Name;
end;

Danke für den Tipp. Die Frage ist nur, funktioniert das immer? Oder nur in 99% der Fälle? Damit werden Buchnungen verarbietet. Es darf keinen Fehler geben. Wenn ich in Vorname und Name nicht 'a' und 'b' stehen habe sonderen einen anderen Wert (den ich leider nicht notiert hatte) hat es mit dem Code aus Post #1 fast immer funktioniert. Nach dem 100. Aufruf war dann Plötzlich die PLZ oder die Straße im Feld Vorname. Sowas darf nicht passieren. Es muss doch möglich sein, über eine Funktion auf eine Instanzvariable/ein Feld zuzugreifen, ohne das es komische Seiteneffekte gibt.

[DeddyH]

Da der Fehler erst durch Deinen Thread bekannt geworden ist, lehne ich mich mal weit aus dem Fenster und behaupte, dass das so immer funktionieren sollte. Haftbar lasse ich mich für diese Aussage allerdings nicht machen

[BlueStarHH]

Selbst so geht es nicht:

Delphi-Quellcode:

property AdrProp: TAdresse read GetAdrProp write SetAdrProp;

function TForm1.GetAdrProp: TAdresse;
begin
  Adresse.Vorname := 'a';
  Adresse.Name := 'b';

  result := Adresse;
end;

Irgendwie kann ich mir nicht vorstellen, dass noch nie jemand seit Delphi 6 so eine Property mit einem Getter genutzt hat und dass das erst jetzt auffällt.

[Uwe Raabe]

Zitat von BlueStarHH:

Irgendwie kann ich mir nicht vorstellen, dass noch nie jemand seit Delphi 6 so eine Property mit einem Getter genutzt hat und dass das erst jetzt auffällt.

Das Problem ist offenbar die Kombination des zweimaligen Aufrufs von GetReAdr und der Zusammensetzung des Ergebnisses. Hier versucht der Compiler offenbar eine coole Optimierung und fällt dabei auf die Klappe. Es scheint ja gut zu funktionieren, wenn man die Strings nicht mit einem zweimaligen Aufruf der Funktion zusammensetzt. Die Felder der TAdresse-Instanz sind ja durchaus korrekt. Es ist das Concat was schief geht.

Auf den zweimaligen Aufruf hatte ich ja schon anfangs hingewiesen. Offenbar ist er nicht nur redundant sondern auch schädlich.

[Der schöne Günther]

Egal ob Optimierung an oder aus, stimmt.

Und noch interessanter: Der Fehler besteht nur beim Win32-Compiler, bei Win64 nicht. Andere Compiler kann ich nicht testen.


Könnte man folgendes als Minimalbeispiel in die QC eintragen?

Delphi-Quellcode:

program Project4;

{$APPTYPE CONSOLE}


type
   TMyClass = class
      one, two: String;
   end;

var
   globalInstance: TMyClass;

function getInstance(): TMyClass;
begin
   if not Assigned(globalInstance) then
      globalInstance := TMyClass.Create();

   globalInstance.one := 'one';
   globalInstance.two := 'two';

   Result := globalInstance;
end;

function getBoth(): String;
var
   oneCopy, twoCopy: String;
begin
   oneCopy := getInstance().one;
   twoCopy := getInstance().two;

   WriteLn( oneCopy + ' ' + twoCopy );

   Result := getInstance().one + ' ' + getInstance().two;
end;

begin
   WriteLn( getBoth() );

   // Output on DCC32:
   //one two
   //two two

   // Output on DCC64:
   //one two
   //one two
end.

Oder ginge das noch kürzer?

[Jumpy]

Wäre es denn im konkreten Fall nicht besser, das ganze Konstrukt irgendwie zu ändern?
Eine Prozedur FillAdresse, die die Felder füllt und dann die Funktion, die die gewünschten Felder "concatiert" (gibt's das?) ausgibt?