Falscher Typecast wie finden

**Gruber_Hans_12345**

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 .....

Falscher Typecast wie finden

Falscher Typecast wie finden

Forumregeln