Einzelnen Beitrag anzeigen

Getox

Registriert seit: 28. Dez 2012
155 Beiträge
 
Delphi XE3 Professional
 
#7

AW: Mysteröse Zugriffsverletzung

  Alt 6. Feb 2019, 09:21
Hallo,
du gehst also 2mal mit der Maus drüber, während das Programm angehalten ist?

DSet ist eine normale Variable oder ein Property.
Arbeitest Du mit Threads?

Beachte:
Das Anzeigen eines Watch-Point kann auch Code ausführen.
ja, ich bin 2 Mal mit der Maus über die Variable gefahren, während das Programm am Breakpoint stand.

Value ist tatsächlich eine Property, die das selbe macht wie asVariant:
Code:
property Value: Variant read GetAsVariant write SetAsVariant;
property AsVariant: Variant read GetAsVariant write SetAsVariant;
Und nein, es werden keine Threads verwendet (es sei denn diese werden im Hintergrund von Delphi oder irgendwelchen Komponenten erzeugt).

Ich habe nun an der Stelle nicht mehr den variantValue abgefragt und auf Null geprüft, sondern ich frage das Feld asInteger ab und schaue ob das Ergebnis 0 ist. Das klappt reibungslos. Seltsam ist es dennoch.

FieldBaName(Field) liefert ein TField und nicht nil?
FieldByName liefert niemals nil! Allenfalls wirft es eine Exception.
Das Feld selbst kann ich ja auch problemlos abfragen und in eine Variable legen. Erst wenn ich mit einer der beiden oben genannten Properties auf den variantValue zugreifen will passiert das. Und auch nur an dieser einen Stelle im Code. Das ist ja eine Funktion die schon seit Ewigkeiten an sehr vielen Stellen verwendet wird - immer wenn man wissen will ob ein Feld NULL ist. Und es gab nie Probleme, bis auf jetzt.

Code:
function TKlassenname.IsNull(Field: String): Boolean;
begin
  Result := (getVariantValue(Field) = NULL);
end;

function TKlassenname.getVariantValue(Field: string): Variant;
begin
  Result := DSet.FieldByName(Field).Value;
end;
Ist ein Nilpferd ein Pferd, das nicht vorhanden ist?
  Mit Zitat antworten Zitat