Hallo,
Ich hab mir mal Grizzlys Code angesehen, und einfach mal versucht das ganze mit z.B. cWidth und cHeight auf 800 zu setzen.
Beim Start der Procedure bekomm ich eine EStackOverFlow Meldung (Der Debugger steht auf dem Begin).
An Integer kanns ja niciht liegen da lt. meiner REchnung mit 640000 der Wertebereich von Integer noch nicht überschritten ist. Habs zwar trotzdem mal mit longword versucht, ging ebenfalls in die Hose.
Kann mir mal jemand erklären wie ich dieses Stack problem behandel? Mir ist klar wie der Stack funktioniert, mir ist auch klar dass das Zeug im Stack abgelegt wird. Normalerweiße werden ja alle Variablen im Stack abgelegt ( oder gilt das nur für Lokale? )
Aber wie ich ich das anders lösen kann, weiß ich nicht.
Danke,
Daniel
Zitat von
grizzly:
Delphi-Quellcode:
procedure TForm1.TBitBtn1Click(Sender: TObject);
const
[b] cWidth = 400;
cHeight= 400;[/b]
MaxLoop= 500;
var
i : integer;
Grid : ARRAY[1..cWidth, 1..cHeight] OF integer;
Step : ARRAY[1..cWidth] OF integer;
x, y : integer;
a, b : double;
Ma : integer;
UpDown: Boolean;
begin