Codeoptimierung verursacht probleme

[hoika]

Hallo,
MadExcept zeigt dir die Stelle an.
Das muss aber auch mit der IDE gehen,
wenn der RangeError kommt, F7 drücken.

[EWeiss]

Zitat von hoika:

Hallo,
MadExcept zeigt dir die Stelle an.
Das muss aber auch mit der IDE gehen,
wenn der RangeError kommt, F7 drücken.

Danke.
Wenn der Dialog erscheint zeigt er mir nichts wenn ich F7 drücke mit D2010

gruss

[EWeiss]

Beispiel..

SetRect(pr^[pData^.rdh.nCount], M, J, I, J + 1);
nCount ist DWORD die Übergabe muss aber Integer sein.

Es kracht wenn die Werte minus enthalten

Das
SetRect(pr^[Integer(pData^.rdh.nCount)]
bringt nichts.
Das ist der Grund warum ich keine Bereichs Prüfung einschalte.

gruss

[TiGü]

Zitat von EWeiss:

Beispiel..

SetRect(pr^[pData^.rdh.nCount], M, J, I, J + 1);
nCount ist DWORD die Übergabe muss aber Integer sein.

Es kracht wenn die Werte minus enthalten

Das
SetRect(pr^[Integer(pData^.rdh.nCount)]
bringt nichts.
Das ist der Grund warum ich keine Bereichs Prüfung einschalte.

gruss

Wenn du das ein bisschen entzerren würdest, wäre dir auch klarer woher der Fehler kommt.

Delphi-Quellcode:

var 
  KlugbenanntesRect: TRect;
  RectCount: DWORD;
...
begin 
  
  SetRect(KlugbenanntesRect, M, J, I, J + 1);
  RectCount := pData^.rdh.nCount; 
  if (RectCount > 0) and (RectCount < Length(pr^)) then
  begin
    pr^[RectCount] := KlugbenanntesRect;
  end;
end;

[EWeiss]

Zitat von TiGü:

Zitat von EWeiss:

Beispiel..

SetRect(pr^[pData^.rdh.nCount], M, J, I, J + 1);
nCount ist DWORD die Übergabe muss aber Integer sein.

Es kracht wenn die Werte minus enthalten

Das
SetRect(pr^[Integer(pData^.rdh.nCount)]
bringt nichts.
Das ist der Grund warum ich keine Bereichs Prüfung einschalte.

gruss

Wenn du das ein bisschen entzerren würdest, wäre dir auch klarer woher der Fehler kommt.

Delphi-Quellcode:

var 
  KlugbenanntesRect: TRect;
  RectCount: DWORD;
...
begin 
  
  SetRect(KlugbenanntesRect, M, J, I, J + 1);
  RectCount := pData^.rdh.nCount; 
  if (RectCount > 0) and (RectCount < Length(pr^)) then
  begin
    pr^[RectCount] := KlugbenanntesRect;
  end;
end;

Mag ja sein das ich damit den Fehler behandeln könnte aber es gibt noch genug andere die nicht zu beheben sind.
Der Datentypen mismatch halt.
Siehe die anderen Beispiele weiter oben.

gruss

[hoika]

Hallo,
wenn du weisst, dass da ein RangeError kommen kann,
warum machst du nicht ein

Delphi-Quellcode:

try 
  der Code
except
  ; // leer
end;

drumrum?