Properties haben nach Zuweisung falsche Werte

[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

[BlueStarHH]

Zitat von 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

Das ist alles OK. Alles mit Breakpoint & co geprüft. Exakt das kleine Beispiel aus Post 1 funktioniert nicht. Kannst Du Dir in ein Form kopieren und nachvollziehen. Also liegt es nicht am SQL.