Properties haben nach Zuweisung falsche Werte

[himitsu]

Zitat von BlueStarHH:

Zitat von himitsu:

Nja, dein Code war zumindestens falsch, denn Result wurde nicht initialisiert.

Was genau meinst Du damit? Mit Result := Adresse; wird es initialisiert/zugewiesen. Oder sehe ich das falsch?

Nicht bei Markus in Post #2

[Uwe Raabe]

Ich kann das hier (XE7) reproduzieren. Es handelt sich offenbar um einen Compiler-Fehler.

Delphi-Quellcode:

var
  sn: string;
  sv: string;
begin
  sv := GetReAdr.Vorname;
  sn := GetReAdr.Name;
  result := sv + ' ' + sn;
  Result := GetReAdr.Vorname + ' ' + GetReAdr.Name;
end;

Das erste result bringt noch das richtige Ergebnis, aber beim zweiten klappts nicht.

[Dejan Vu]

Ich kann es mit D6 auch bestätigen.

[Jumpy]

Ist .Name vllt. ein reserviertes Wort in dem Zusammenhang? Zumindest wird es ja hier im Codeformatierer der DP fett blau gezeigt?

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

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

[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