Probleme mit Tlist bei Prozeduren

[smyle2000]

Hallo erstmal.

Ich habe eine Prozedur geschrieben das ein Bild in mehrere Bereiche aufteilen soll und anschließend die Teile an das Hauptprogramm zurückgibt. Der Funktionskopf hat folgende Form:

Code:

procedure Split_Img(bild:TImage;var liste:TObjectlist);

Aber ich erhalte immer nach der Beendigung der Prozedur einen Invalid Pointer Error. Ich weiß nicht warum das nicht funktioniert und hoffe jemand kann mir helfen.

[dataspider]

Hi,

auch, wenn das var überflüssig ist, da Objekte immer per Referenz übergeben werden, ist aus deinem Code der Fehler nicht ersichtlich.
Ich gehe mal davon aus, dass eines deiner Objekte nil ist.
Aber dafür müsstes du etwas mehr Code liefern.

Cu, Frank

[mkinzler]

Deklariere die Prozedur lieber

Delphi-Quellcode:

procedure Split_Img(const bild:TImage;var liste:TObjectlist);

das Sichergestllet ist, das die Referenz (der Zeiger) nicht verbogen wird.
Was machst du mit bild innerhalb der Prozedur?

[smyle2000]

Also dies sind die Codezeilen, an denen se liegen kann.

Code:

procedure Split_Img(bild:TImage;var liste:TObjectlist);
var seg:TSegment;
  i,j,m:integer;
begin
   ...
  
  for i:=0 to m do //m=Anzahl der Teile
  begin
    seg:=TSegment.Create;
    seg.x:=bild.Width;
    seg.y:=bild.Height;
    seg.bild:=TBitmap.Create;
    seg.bild.Height:=seg.y; //Setzen der Größe
    seg.bild.Width:=seg.x;
    liste.Add(seg);
  end;

  for i:=1 to m-1 do
  with (liste[i] as TSegment) do
  begin
    bild.Canvas.CopyRect(r1,bild.Canvas,r2);
    sizex:=sizex-x;
    sizey:=sizey-y;
  end;


end;

[mkinzler]

Delphi-Quellcode:

for i:=0 to m-1 do //m=Anzahl der Teile

Ich würde nicht auf dem Original-Canvas von bild arbeiten.

[dataspider]

Hi,

interessant wäre noch die Klasse TSegment.
Ich würde z.B. die Bitmap im Constructor von TSegment erzeugen und im Destructor wieder freigeben.

Delphi-Quellcode:

// warum?
seg.bild:=TBitmap.Create;

So, wie du es jetzt machst, solltest du in TSegment im Destructor Bild auf nil prüfen und die Bitmap freigeben.
Aber wie gesagt, eigentlich erzeugt man zur Klasse gehörige Objekte nicht ohne driftigen Grund von aussen.

An welcher Stelle (Debugger benutzen) kommt denn der Fehler?

Frank

[smyle2000]

Die Anregung von mkinzler hat mich auf einen Fehler aufmerksam gemacht. Jetzt ist das Problem behoben. :-D
Der Fehler lag in einer Prozedur die in dieser aufgerufen wird. Dort lese ich über die Grenzen des Feldes hinaus. Komischerweise erhalte ich die Fehlermeldung aber erst, sobald die äußere Prozedur abgearbeitet wurde.

Auf jeden Fall danke für Eure Bemühungen
:thumb:

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Hier gings um Delphi...

[Muetze1]

Schalte in deinen Projektoptionen -> Compiler die Bereichsprüfung mit ein und erstell das Projekt neu. Damit wird das Projekt zwar ein wenig langsamer (für eine endültige Version wieder deaktivieren), aber du wirst halt sofort bei einem falschen Zugriff über solche Grenzen hinweg benachrichtigt.