procedure Übergabefehler

[brandtson]

Hi Luckie,

ich hoffe dies hilft Licht ins Dunkle zu bringen.

Delphi-Quellcode:

procedure TestSingleBox ({ In: }
                         BoxIntensity: TRoiIntensity;
                         x1,y1,x2,y2: integer; Imageintensity: TImageintensity;
                         Bewegungsradius, Genauigkeit, Akt_Schicht, SliceChange: integer;
                         isrotation: boolean; alpha, alphamax: integer;
                         {In - Out}
                         var Drawstate: integer;
                         var BestSlice, BestX, BestY: TBestSLice;
                         var SliceRotationHits, SliceRotationHitsX, 
                         SliceRotationHitsY: TImageintensity);

TRoiIntensity und TImageintensity sind beides zweidimensionale dynamische arrays. Übergeben wird der procedure folgendes:

Delphi-Quellcode:

          TestsingleBox(SingleBoxInt,
                        Drawbox.x1, Drawbox.y1, Drawbox.x2, Drawbox.y2, Nextimageintensities,
                        motionradius, accuracy, Slicechanger, strtoint(Schichtsprungedit.text),
                        checkboxalpha.checked, strtoint(editalpha.Text), 
                        strtoint(editalphamax.Text),
                        Drawbox.drawstate,
                        BestSlice, BestX, BestY,
                        SliceRotationHits, SliceRotationHitsX, SliceRotationHitsY);

Die Variablen stimmen im typus vollkommen überein, es gibt keine exceptions und er meckert auch nicht beim compilieren! Wenn noch mehr code gebraucht wird einfach sagen, ich wusste jetzt nicht so, was da helfen könnte.

Hier noch mal die gesammte procedure und ich weiss, dass labels schlechter Stil sind.

Delphi-Quellcode:

var i,j,x,y: integer;
    TestRoiArray: TRoiIntensity;
    matches, Pixel: integer;
    BoxMatches: TMatching;
    x_res_vek, y_res_vek: integer;
    alphacounter : integer;
    RotateIntensity: Timageintensity;
    rotationcounter: integer;


label rotation;

begin

  Boxkoordinaten.x1 := x1;
  Boxkoordinaten.y1 := y1;
  Boxkoordinaten.x2 := x2;
  Boxkoordinaten.y2 := y2;


  matches := 0;
  Pixel := 0;
  x_res_vek := 0;
  y_res_vek := 0;
  rotationcounter := 0;
  alphacounter := alpha;

  setlength (TestRoiArray, length(Boxintensity));
  setlength (BoxMatches, (Bewegungsradius *2), (Bewegungsradius *2));
  setlength (rotateintensity, length(imageintensity), length(imageintensity));


  for x := 0 to measureForm.ezDICOMX.DCMimageWid -1 do begin
    for y := 0 to measureform.ezDICOMX.DCMimageHt -1 do begin
      rotateintensity[x,y] := imageintensity[x,y];
    end;
  end;


  rotation:

  for x := (-Bewegungsradius) to Bewegungsradius-1 do begin
    for y := (-Bewegungsradius) to Bewegungsradius-1 do begin

      for i := 0 to MeasureForm.ezDICOMX.DCMimageWid-1 do begin
        for j := 0 to Measureform.ezDICOMX.DCMimageHt-1 do begin

          if  ((((i > (x1 + x)) and (i < (x2 + x))) and ((j > (y1 + y)) and (j < (y2 + y))))) then begin
            TestRoiArray[Pixel] := rotateintensity[i,j];
            inc(Pixel);
          end;
        end;
      end;

      IsEqualBoxValue(BoxIntensity, TestRoiArray,Genauigkeit, Pixel, Matches);
      Boxmatches[(x + Bewegungsradius), (y + Bewegungsradius)] := Matches;
      Pixel := 0;
      Matches := 0;

    end;
  end;

  BoxCoordinatesCheck(Boxmatches, Bewegungsradius, Akt_Schicht,SliceChange, x_res_vek, y_res_vek,
                      BestSlice, BestX, BestY);


  if isrotation then begin
    SlicerotationHits[akt_schicht + 1, rotationcounter] := Boxmatches[x_res_vek, y_res_vek];
    SlicerotationHitsX[akt_schicht + 1, rotationcounter] := (x_res_vek - Bewegungsradius);
    SlicerotationHitsY[akt_schicht + 1, rotationcounter] := (y_res_vek - Bewegungsradius);
  end;

  if isrotation then begin
    if alphacounter <= alphamax then begin
      rotatematrix(rotateintensity, imageintensity, alphacounter);
      alphacounter := alphacounter + alpha;
      rotationcounter := rotationcounter +1;
      goto rotation;
    end;
  end;

  Drawstate := 0;

end;

Danke fürs drüberschauen, ich hoffe ich mache nur einen ganz simplen Fehler, damit es wieder funktioniert.