Typecasting Stacküberlauf <code inside>

[Cyberstorm]

hallo. habe ich da etwas nicht verstanden? anscheinend...
wieso funktioniert button1 und bei button2 gibt es einen stacküberlauf?
müssten doch beides 4-byte im speicher sein?!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TRGBQuad;
  b: Cardinal;
begin
  a.rgbBlue:=0;
  a.rgbGreen:=0;
  a.rgbRed:=255;
  a.rgbReserved:=0;
  b:=Cardinal(a);
  ShowMessage(IntToStr(b));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a: TRGBQuad;
  b: array[1..640, 1..480] of Cardinal;
begin
  a.rgbBlue:=0;
  a.rgbGreen:=0;
  a.rgbRed:=255;
  a.rgbReserved:=0;
  b[1, 1]:=Cardinal(a);
  ShowMessage(IntToStr(b[1, 1]));
end;

danke + grüße

[DeddyH]

Wenn Du b einmal verkleinerst, funktioniert es dann?

[Uwe Raabe]

Dein b hat eine Größe von 640*480*4 = 1.228.800 Byte und wird als lokale Variable auf dem Stack angelegt. Der Default für die maximale Stackgröße ist bei Delphi (XE) 1.048.576 Byte!

Besser so:

Delphi-Quellcode:

  b: array of array of Cardinal;
begin
  SetLength(b, 640, 480);

Allerdings ist b dann 0-basiert, also statt b[1, 1] musst du dann b[0, 0] schreiben.

[Cyberstorm]

Zitat von Uwe Raabe:

Dein b hat eine Größe von 640*480*4 = 1.228.800 Byte und wird als lokale Variable auf dem Stack angelegt. Der Default für die maximale Stackgröße ist bei Delphi (XE) 1.048.576 Byte!

Besser so:

Delphi-Quellcode:

  b: array of array of Cardinal;
begin
  SetLength(b, 640, 480);

Allerdings ist b dann 0-basiert, also statt b[1, 1] musst du dann b[0, 0] schreiben.

danke, werde mal probieren, ob sich meine probleme damit in luft auflösen