Properties haben nach Zuweisung falsche Werte

[BlueStarHH]

Ich habe ein Form mit einem Button. Dieser holt sich über einen Funktion einen Vornamen und Namen. Zugeweisen wird:
Adresse.Vorname := 'a';
Adresse.Name := 'b';

Wenn Vorname und Name zusammen ausgegeben wird aber "b b" angezeigt. Richtig wäre "a b". Wie kann das sein? Mit anderen Texten in der Zuweisung klappt es manchmal und manchmal nicht. Das ist sehr merkwürdig.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

  TAdresse = class(TPersistent)
  private
    FVorname: string;
    FName: string;
  public
    procedure Assign(Source: TPersistent); override;

    property Vorname: string read FVorname write FVorname;
    property Name: string read FName write FName;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    function GetDebitorName: string;
    function GetReAdr: TAdresse;
  protected
    Adresse: TAdresse;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

  Result := Adresse;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Adresse := TAdresse.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Adresse.Free;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  caption := GetDebitorName;
end;

procedure TAdresse.Assign(Source: TPersistent);
begin
  if Source is TAdresse then
  begin
    Vorname := (Source as TAdresse).Vorname;
    Name := (Source as TAdresse).Name;
  end
  else
    inherited;
end;

end.

[mkinzler]

Es ist nie eine gute Idee in Methoden auf globale Variablen zuzugreifen.

Delphi-Quellcode:

function TForm1.GetReAdr: TAdresse;
begin
  Result.Vorname := 'a';
  Result.Name := 'b';
end;

[BlueStarHH]

Zitat von mkinzler:

Es ist nie eine gute Idee in Methoden auf globale Variablen zuzugreifen.

Delphi-Quellcode:

function TForm1.GetReAdr: TAdresse;
begin
  Result.Vorname := 'a';
  Result.Name := 'b';
end;

Warum nicht? Adresse ist nur innerhalb von TForm1 global. Das ist auch nur ein kleines komprimiertes Beispiel. In Wirklichkeit holt GetReAdr Daten per SQL ab und speichert diese dann in Adresse zwischen. Dafür darf Adresse nicht lokal in GetReAdr definiert sein. Denn das SQL soll nur ausgeführt werden, wenn Adresse leer ist. Sonst soll GetReAdr Adresse zurückgeben. Wenn ich sowas habe wie

property Vorname: string read FVorname write FVorname;

ist FVorname auch global in der Klasse gültig. Ähnlich wie Adresse hier.

[mkinzler]

Wenn Du es besser als ich weisst, warum fragst Du dann?

[BlueStarHH]

Zitat von mkinzler:

Wenn Du es besser als ich weisst, warum fragst Du dann?

Ich frage weil ich eine Lösung brauche. Deine Antwort erscheint mir aber keine Lösung zu sein. Siehe mein Edit mit dem Verweis auf die Properties. Dort arbeitet man auch mit globalen Variablen die dann entweder über Getter oder Setter zugreifbar sind. Ist hier nichts anderes. Und wie sollte man es in meinem Fall anders lösen als über eine globale Variable? Mit Deiner vorgeschlagenen Lösung geht es hier leider nicht.

[BlueStarHH]

Hier nochmal eine Ergänzung, wie GetReAdr noch SQL ausführt:

Delphi-Quellcode:

function TForm1.GetReAdr: TAdresse;
begin
  if Adresse.IsEmpty then
  begin
    Query.HoleAufwändigDatenAb;
  
    Adresse.Vorname := Query.FieldByName('Vorname').asString;
    Adresse.Name := Query.FieldByName('Name').asString;
  end;

  Result := Adresse;
end;

[hoika]

Hallo,

vielleicht liefert ja dein
Query.HoleAufwändigDatenAb;

was falsches ab?

Breakpoint + Watchpoint drauf.

du kannst auch eine Set-Methode für VorName schreiben
und dort einen bedingten Breakpoint setzen, wenn 'b' übergeben wird.

Ausserdem auch hier einen Breakpoint setzen
procedure TAdresse.Assign(Source: TPersistent);

Vielleicht überschreibst du auch irgendwo Speicher -> FastMM4 benutzen.


Heiko

[Uwe Raabe]

Zitat von mkinzler:

Es ist nie eine gute Idee in Methoden auf globale Variablen zuzugreifen.

Delphi-Quellcode:

function TForm1.GetReAdr: TAdresse;
begin
  Result.Vorname := 'a';
  Result.Name := 'b';
end;

Da TAdresse eine Klasse und kein Record ist, wird das wahrscheinlich schiefgehen.

[Uwe Raabe]

Zitat von BlueStarHH:

Delphi-Quellcode:

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

Durch den zweimaligen Aufruf von GetReAdr wird der Code innerhalb von GetReAdr auch zweimal ausgeführt. Ist das so beabsichtigt?

[himitsu]

Zitat von mkinzler:

Es ist nie eine gute Idee in Methoden auf globale Variablen zuzugreifen.

Delphi-Quellcode:

function TForm1.GetReAdr: TAdresse;
begin
  Result.Vorname := 'a';
  Result.Name := 'b';
end;

Sein Code war schon fast richtig, denn er "wollte" die Instanz zurückgeben, welche er in TForm1 deklatiert/erstellt hat.
Aber er hat nicht auf seinen Compiler gehört, welcher ihm bestimmt was vonwegen "Result ist nicht initialisiert" um die Ohren wirft!

[edit] War das Result := Adresse; vorhin auch schon in Post #1 ?
Nja, dein Code war zumindestens falsch, denn Result wurde nicht initialisiert.

Delphi-Quellcode:

function TForm1.GetReAdr: TAdresse;
begin
  Result := Adresse;
  Result.Vorname := 'a';
  Result.Name := 'b';
end;

// oder

function TForm1.GetReAdr: TAdresse;
begin
  Adresse.Vorname := 'a';
  Adresse.Name := 'b';
  Result := Adresse;
end;