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

[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