Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.426 Beiträge
 
Delphi 2007 Professional
 
#1

Falscher Typecast wie finden

  Alt 8. Jan 2006, 11:00
Hallo, habe da ne Frage

Ich habe vor kurzem mal einige Zeit nen Fehler gesucht und den dann in folgendem Code gefunden

Delphi-Quellcode:
type
  TDataObject = class
  end;

  TDataObject1 = class(TDataObject)
  private
    fDatum : integer;
    fBetrag : Extended;
  end;

....

function TDataList.Sort;
var
  Item : TDataObject;
begin
  if Item is TDataObject1 then begin
    TDataObject1(Item).fBetrag := 12;
  end
  TDataObject1(Item).fDatum := now; // <<< Fehler
end;
Da ich den Type des Objektes nicht überprüft habe, habe ich auch bei einem TDataObject auf ein Feld zugegriffen, das nicht existiert, und dadurch dann an einer anderen Stelle eine AV (oder manchmal auch einen anderen Fehler) verursacht.

Meine Frage ist nun, gibt es ein Toll oder Einstellung, mit dem solche Fehler gefunden werden. Da die Fehler immer an einer anderen Stelle auftreten ist der Fehler extrem schwer zu finden. Und den ganzen Sourcecode zu durchforsten, ob sich noch wo solch ein Fehler versteckt .....
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat