If a and b and c and d... Geht daas überhaupt in Delphi?

[Virchov]

Tach, Herrschaften!

Ich habe folenden Codeteil:

Delphi-Quellcode:

 if minLeft^ = 0 and  maxLeft^ = (cxImage -1) and
    (minTop^ = 0) and  maxTop^ = (cyImage -1)   then

//-----------------------------ANFANG BLOCK 2-----------------------------------

  begin

Geht aber nicht, der Compiler sagt: Operator ist auf diesen Typ nicht anwendbar.Und: inkopatible Typen. Voller Quatsch, eiglentlich. Woran könnte das liegen?

Danke

ps minleft maxleft, mintop und maxtop sint pInteger, cxImage und cyImage - Integer. :pale:

[DelphiDeveloper]

Delphi-Quellcode:

if (minLeft^ = 0) and  (maxLeft^ = (cxImage -1)) and 
   (minTop^ = 0) and  (maxTop^ = (cyImage -1))   then

and bindet staerker

[Virchov]

Zitat:

Zitat von DelphiDeveloper

Delphi-Quellcode:

if (minLeft^ = 0) and  (maxLeft^ = (cxImage -1)) and 
   (minTop^ = 0) and  (maxTop^ = (cyImage -1))   then

and bindet staerker

geht trotzdem nicht, Der Compiler sagt zu zweiter Zeile: Operator ist auf diesen Operandentyp nicht anwendbar :warn:

[Luckie]

Liegt es eventuell an diesem Konstrukt:

Delphi-Quellcode:

maxLeft^ = (cxImage -1)

Was willst du denn da vergleichen?

[DelphiDeveloper]

sind die derefenzierungen auch alle int?

[Virchov]

Zitat:

Zitat von DelphiDeveloper

sind die derefenzierungen auch alle int?

Müssen die sein, da wenn ich einen pInteger dereferenziere kriege ich immer einen integer. Oder?

[DelphiDeveloper]

Zitat:

Müssen die sein, da wenn ich einen pInteger dereferenziere kriege ich immer einen integer. Oder?

sehe ich auch so

[Virchov]

Zitat:

Zitat von Luckie

Liegt es eventuell an diesem Konstrukt:

Delphi-Quellcode:

maxLeft^ = (cxImage -1)

Was willst du denn da vergleichen?

Delphi-Quellcode:

procedure GetROI_CAL_RGB_VIS
(prgb:  pRGBTRIPLE;                           //Pointer to first pixel
 cxImage, cyImage:integer;                    //Width, Height   of total image
ShowBoundingBox,                              //if !0, Bounding Box is drawn
ShowROIHistogram: boolean;                    //if !0, ROI Histogram is drawn
roiPosArray:  pInteger;                       //Array   containg ROI positions
roiMask:  pBoolean;                           //Mask,pixel[i]   is in ROI if roiMask[i]
minLeft, maxLeft: pinteger;                   //Vertical Bounding   Box   Scanlines
minTop, maxTop: pinteger;                     //Horizontal Bounding Box Scanlines
numROIPixels: pinteger;                       //number of pixels contained in ROI
Check4Rect: boolean;                          //1 = check for ellipse and rectangle, 0 just ellipse
fROICutOffLevel: single);                     //ROI minimal Histogram presence

[DelphiDeveloper]

sieht alles richtig aus. da habe ich aus der Ferne auch keine
Idee mehr was falsch sein koennte :!:

[Virchov]

Hexerei... Nach 20 Versuch ging es plötzlich.... Hm

[himitsu]

Ich hatte es auch gerade versucht.

Und es ging gleich beim ersten Versuch.


Also war's wohl die ganze Zeit i.O..

[Virchov]

Zitat:

Zitat von himitsu

Ich hatte es auch gerade versucht.

Und es ging gleich beim ersten Versuch.


Also war's wohl die ganze Zeit i.O..

Ende jut - allet jut! Danke! :cheers:

[negaH]

Eine Optimeirung gäbe es noch :)

Delphi-Quellcode:

if (minLeft^ or minTop^ = 0) and (maxLeft^ = (cxImage -1)) and (maxTop^ = (cyImage -1)) then

Gruß Hagen