BUG? - Boolean Variable wird willkürlich auf true gesetzt

[thkerkmann]

Hi,

mit diesem Code kann nix passieren....

Ich behaupte mal folgendes:

Die Variablendeklartion

Delphi-Quellcode:

      
      FRelationList: TStringList;
      HasReadRelationListFromDB: Boolean;

ist nicht original - ich vermute mal VOR HasReadRelationListFromDB wird noch ein statisches array sein, in dessen Speicher du irgendwo mit einem Index größer als die eigentliche Größe hineinschreibst.
Da das ganze nicht den Variablenbereich deines Objektes sprengt, wird kein Fehler angezeigt - es sei denn du schaltest mal RangeChecking ein.

Habe selber nach so einem Fehler schon Tage gesucht. Das macht richtig Spass. :wall:

[Assertor]

Hi,

Zitat:

Zitat von HeinzJ

Delphi-Quellcode:

unit Abgespeckt;

interface

...

implementation

...

function AClass.GetRelationList: TStringList;
begin
   if not HasReadRelationListFromDB then
   begin
      ShowMessage('xyz'); // hier Breakpoint setzen!
      HasReadRelationListFromDB := true;
      ...
   end;
   ...
end;

end.

Ich würde mal die Projektoptionen prüfen und alle Optimierungen abschalten bzw. die Debug Optionen einschalten. Setz den Breakpoint wie oben gezeigt und pack ein ShowMessage o.ä. rein.

Es ist stark davon auszugehen, daß ein "if not x then x := true" ziemlich schnell (weg)optimiert wird. Ganz sicher kannst Du gehen, in dem Du Dir die besagte Codestelle im Debugger während der Ausführung als asm anzeigen lässt.

Gruß Assertor

[Muetze1]

Zitat:

Zitat von HeinzJ

Der Constructor wird erreicht
X ist eine Array of const, momemtan nur ein Integer [1]
Die Klasse wird per Obj:= AClass.Create([oid]); kreiert.
Am Ende des Create hat HasReadRelationListFromDB den Wert FALSE.

Das AClass sieht mir ganz danach aus, als wenn hier eine Class Of XXX verwendet wird. Dabei ist zu beachten, dass dann der Constructor von XXX als virtuell deklariert werden muss und alle nachfolgenden Ableitungen diesen überschreiben müssen, wenn sie einen Constructor haben, da diese sonst nicht aufgerufen wird.

Und warum eine boolsche Variable, wo doch assigned(FRelationList) genau dieses boolsche Ergebnis liefert ohne zusätzliche Variable?

[Phoenix]

Ich würde mir die Adresse des boolschen Wertes raussuchen und einen Datenhaltepunkt setzen. Dort siehst Du dann, wann der Wert an dieser Speicheradresse geändert wird. Das ist aller Wahrscheinlichkeit nach der effizienteste Weg den Fehler einzukreisen.

[himitsu]

Zitat:

Zitat von Muetze1

Das AClass sieht mir ganz danach aus, als wenn hier eine Class Of XXX verwendet wird. ...

sieht nur so aus ... siehe Post #4 ... er hat seine Klasse einfach nur AClass getauft :stupid:

@HeinzJ: sicher daß du nicht irgendwo 'nen Pufferüberlauf oder irgendwas Dergleichen hast?
(welcher praktisch an "falschen" Stellen im RAM rumschreibt)

[stoxx]

Hallo HeinzJ,

der Fehler bei solchen "völlig" unerklärbaren Fehlern, sitzt meistens VOR dem Computer :-)

Jetz änder Deine Klasse mal, und prüfe ob vielleicht eine Nachfolgende Klasse oder irgendjemand anderes die Variable ändert :-)
Denn ich vermute, genau deswegen hast Du die Variablen im protected Teil..

Delphi-Quellcode:

AClass = class(TObject) 
strict private  // oder nur private

  FHasReadRelationListFromDB : boolean;
  function GetiNumMembers: smallint; 

protected 
      FRelationList: TStringList; 
public 
      constructor Create(X: array of const); 
      property HasReadRelationListFromDB: Boolean read FHasReadRelationListFromDB; 
      property RelationList: TStringList read GetRelationList; 
      property NumberOfMembers: smallint read GetiNumMembers; 
end; 


implementation

function AClass.GetRelationList: TStringList; 
begin 
   if not FHasReadRelationListFromDB then  // jetzt wird es gehen :-)
   begin 
      FHasReadRelationListFromDB := true; // << Diese Zeile wird nie erreicht   (jetzt schon)
      FRelationList := TStringList.Create; 
      // read someting from a db. 
   end; 
   Result := FRelationList; 
end;

im übrigen, wenn Du die Variable nur als "Information" brauchst, ob die List schon da ist, kannst Du auch mit

Delphi-Quellcode:

if not assigned(FRelationList) then begin
    FRelationList := TStringList.Create; 
end;
Result := FRelationList;

die Variable sparen

[HeinzJ]

Danke für alle Antworten
Abhilfe hat bei mir nur die Löschung aller DCUs sowie das Laden des Projektes über die DPR geschafft.
Keine Ahnung wieso.

HeinzJ

[Bbommel]

Zitat:

Zitat von hoika

2. geht nur zur Laufzeit.
Setze einen Breakpoint auf deinen Konstruktor.
Wird er angesprungen, Popup-Menü "Bei Änderung anhalten" für die Variable setzen.
Das muss übrigens bei jedem Programm-Start neugemacht werden,
weil die Adresse der Variable überwacht wird und die sich bei jedem Start ändert.

Das eigentliche Problem scheint ja gelöst zu sein, aber zu diesem Daten-Haltepunkt habe ich mal eine Nachfrage: Kann es sein, dass es diese Funktion im Popup-Menü bei D2009 nicht mehr gibt? Wenn ich bei einem Programm von mir das oben beschriebene durchführen will, dann finde ich in einem Popup-Menü zwar eine unglaubliche Menge an Einträgen, aber nicht diesen.

Ich kann dann manuell in den Haltepunkten einen Daten-Haltepunkt setzen und statt einer Adresse dann den Variablennamen eingeben, dann klappt es. Geht natürlich, aber ist schon ein bisschen umständlicher (zumal mir bisher nie klar war, dass man das nur zur Laufzeit kann, hätte ja sein können, dass Delphi die Adresse bei jedem Start selbst neu ermittelt, falls möglich...), und daher die Frage, ob ich zu blöd bin, den Eintrag im Popup-Menü zu finden oder ob man wirklich diesen kleinen Umweg gehen muss?

Bis denn
Bommel