Hi,
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