Stacküberlauf

[turboPASCAL]

Hi,

du rufst zB. in der Procedure Button3Click die Procedure blackliste4_pruefen auf.
In dieser rufst du dann Button3.Click auf was wiederum Button3Click ausführt.

Das ist eine prima Schleife aus dem das Programm nicht mehr raus kommt wenn dann nicht
irgend wann der Stacküberlauf auftreten würde.

Diesen Fehler machst du fast bei jeder Procedure mit dem Namen blacklisteX_pruefen.

Diese Aktionen:

Delphi-Quellcode:

i := 1;
  ar_akt_tabelle[i] := inttostr(a[1]) + inttostr(a[2]);
          //ListBox2.Items.Add(ar_akt_tabelle[i]);
  inc(i);
  ar_akt_tabelle[i] := inttostr(a[2]) + inttostr(a[1]);
          //ListBox2.Items.Add(ar_akt_tabelle[i]);
  inc(i);
  ar_akt_tabelle[i] := inttostr(a[2]) + inttostr(a[3]);
          //ListBox2.Items.Add(ar_akt_tabelle[i]);
  inc(i);
  ar_akt_tabelle[i] := inttostr(a[3]) + inttostr(a[2]);
          //ListBox2.Items.Add(ar_akt_tabelle[i]);

kann man auch in einer For-Schleife vereinfachen was dann zu einer wirklich besseren
Übersicht des Programmes führt.



//Roter Kasten: Man(n) Sharky, tipp langsamer...