"Vorgang kann nicht erzeugt werden"

[Neutral General]

Ich versuche Farben in ein Zweidimensionales Array zu speichern aber dann kommt immer diese Fehlermeldung, wenn ich das Projekt complimieren will...

Pixel : Array[0..23100,0..23100] of TColor;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j : Integer;
begin
  for j:= 0 to Image1.Height-1 do begin
   for i:= 1 to Image1.Width-1 do  begin
    Form1.Canvas.Pixels[i,j] := Image1.Canvas.Pixels[i,j];
    Pixel[i,j] := Image1.Canvas.Pixels[i,j];  // wenn ich das weglasse läuft das Programm...
   end;
  end;
end;

Weis jemand was diese Meldung zu bedeuten hat und/oder was ich falsch mache ?

[Dax]

Vielleicht ist dein Array einfach zu groß.

[Neutral General]

ja aber wenn ich

Pixel : Array[0..800000,0..800000] of TColor; schreibe dann kommt : "Datentyp zu groß: 2GB überschritten" und zwar schon als Fehlermeldung wenn ich versuche zu complimieren ... "Vorgang kann nicht erzeugt werden" kommt ja erst wenn ich versuche das Programm zu starte.

Außerdem ist das ja im ButtonClick ereignis also muss der doch (noch) gar nix mit dem Array machen...

[edit]ok ich hab das Array kleiner gemacht und es funktioniert jetzt aber warum das anders nicht funktioniert versteh ich trotzdem nicht ... [/edit]

[Christian Seehase]

Moin Neutral General,

das könnte daran liegen, dass das ursprüngliche Array hart an der 2GB Grenze vorbeischrammt, so dass der Compiler nichts zu meckern hat, der vom Programm dann aber zu belegende Platz zu gross wird.

[Neutral General]

Ja das könnte sein ...
23100*23100 ist nämlich das höchste was geht bevor die 2GB Meldung kommt

[Luckie]

Pack das ganze mal in einen ry-except Block und schreib:

Delphi-Quellcode:

try
  ...;
except
  on E: Exception do ShowMessage(E.Message);
end;

Ich könnte mir vorstellen, dass da eine EOutOfResource Exception kommt oder so was.