EStackOverflow???

[Master_BB]

Heya,
ich hab derzeit ein Problem. Und zwar kommt immer dieser fehler hier
bei meiner einen Procedure.
"Exception der Klasse EStackoverflow".
weiß einer was das für ein fehler ist?
er wird mir bei einer Begin zeile einer meiner Proceduren angezeigt.
da wüßt ich nicht was ich da verändern soll. begin kann ich noch schreiben.

Greetz
Master_BB

[mirage228]

Hi,

EStackOverflow ist ein Stack-Überlauf. Der tritt meistens bei Endlosschleifen auf.

Zeig mal die Prozedur, wo der Fehler auftritt.

mfG
mirage228

[SirThornberry]

Wenn du in deiner Procedur die selbe procedure aufrufst kann es zu so einem fehler kommen.
Bsp.:

Delphi-Quellcode:

procedure abc;
begin
  abc;
end;

somit ruft sich dich funktion "abc" endlos selbst auf und somit kommt es zum stackoverflow

[Master_BB]

hm solch eine rekursion hab ich aber nicht in der procedure drin.
sehet selbst...

Delphi-Quellcode:

procedure TForm3.SpeedButton3Click(Sender: TObject);
var Filme:array[1..maxM]of MovieType;
    i:integer;
    ImportMovieFile:boolean;
    filename,moviefilename:string;
begin
 ini := TInifile.create(ExtractFilePath(Application.exename)+inifilename);
 moviefilename := ini.ReadString('Optionen','StandartPath','');
 ImportMovieFile := ini.ReadBool('Optionen','ExterneFile',True);
 if ImportMovieFile = True then moviefilename := ini.readstring('Optionen','ImportPath','');
 ini.free;
 if ImportMovieFile = True then filename := moviefilename
  else filename := ExtractFilePath(Application.exename)+moviefilename;
 assignfile(moviefile,filename);
 if fileexists(filename) then reset(moviefile) else rewrite(moviefile);
 for i := 1 to n do
  begin
   filme[i].name  := FilmNameConvert(ListBox1.Items.Strings[i-1]);
   filme[i].pfad  := ListBox1.Items.Strings[i-1];
   filme[i].size  := Round(GetFileSize(ListBox1.Items.Strings[i-1])/1024/1024);
   filme[i].format:= ComboBox2.Items.Strings[ComboBox2.ItemIndex];
   filme[i].quali := ComboBox3.ItemIndex;
   filme[i].datum := now;
   seek(moviefile,filesize(moviefile));
   write(moviefile,filme[i]);
  end;
 closefile(moviefile);
 Form1.MoviesLoad;
end;

bei begin unter den localen variablen kommt der befehler bzw wird er angezeigt.

[Sharky]

Hai Master_BB,

wie sind denn maxM und MovieTyp dekariert? Eventuell liegt dort das Problem das zu viel Speicher auf dem Stack reserviert werden soll.

[Muetze1]

Moin!

Zitat von Master_BB:

hm solch eine rekursion hab ich aber nicht in der procedure drin.
sehet selbst...

Und du kannst auch ausschliessen, das der Form1.MoviesLoad; Aufruf durch weitere Aufrufe wieder hier bei dem SpeedButton3Click() landet?

MfG
Muetze1

[Master_BB]

maxM = ist ne konstante die meinen Array begrenzt (kann nicht mit dynamischen arbeiten)
limit hier liegt bei 2000.

der movie record sieht so aus

Delphi-Quellcode:

type movieType = packed record                //Moviefile Record
      name:string[100];
      pfad:string[255];
      size:integer;
      quali:byte;
      format:string[5];
      genre:string[15];
      datum:TDateTime;
end;

und ich kann ausschließen das moviesload diesen button nochmal aufruft.

-----------
hm habe gerade mal testes halber maxM auf 200 gesetzt und es lief plötzlich.
das ist scheiße. wenn nun wirklich 2000 datensätze erfasst werden würde er doch
bestimmt auch bei einem dynamischen array herrum bocken oder?
mir würde dazu jetzt nur einfallen das ich 2 oder 3 arrays nehme die jeweils 1000 datensätze
enthalten können um die maximale datensatzanzahl zu erhöhen.
fällt jemanden was besseres ein?

[Chewie]

Oder vergrößere deinen Stack etwas.
Dein Array verbraucht etwa 400 Byte pro Element, bei 2000 Einträgen ist das schon ne ganze Menge.
Unter Projekt->Optionen->Linker kannst du die Stackgröße anpassen.

Oder du erzeugst dir Speicher auf dem Heap und lässt das Array dort beginnen (also Zeiger auf Array zeigt auf ebendiesen Heap-Speicher).

[Master_BB]

chewie thx das mit stack vergrößern in delphi hat geklappt
jedoch hat das jetzt irgentwelche nachteile?

und was meinst du hiermit
"Oder du erzeugst dir Speicher auf dem Heap und lässt das Array dort beginnen (also Zeiger auf Array zeigt auf ebendiesen Heap-Speicher)."
kenn ich überhaupt nicht, sorry.

-
fals sich jemand fragt wofür das ist - ich hab ein Programm geschrieben mit dem man seine Filme verwalten kann und diese procedure ist eine die benutzt wird um filme die auf der hd sind hinzuzufügen.
das besondere, eine andere procedure durchsucht welche hd oder ordner man will
nach filmen und man kann alle samt hinzufügen und das ist 1000x mal besser
als alle einzeln hinzuzufügen.
mit filme meine ich natürlich videos wie fun videoz, trailer usw.

[shmia]

Du brauchst doch überhaupt kein Array verwenden, da du mit dem Array sowieso nichts tust.
Deshalb reicht folgender Code:

Delphi-Quellcode:

var Filme : MovieType;  // <===== kein Array nötig
...
begin 
....
for i := 1 to n do 
  begin 
   filme.name  := FilmNameConvert(ListBox1.Items.Strings[i-1]); 
   filme.pfad  := ListBox1.Items.Strings[i-1]; 
   filme.size  := Round(GetFileSize(ListBox1.Items.Strings[i-1])/1024/1024); 
   filme.format:= ComboBox2.Items.Strings[ComboBox2.ItemIndex]; 
   filme.quali := ComboBox3.ItemIndex; 
   filme.datum := now; 
   seek(moviefile,filesize(moviefile)); 
   write(moviefile,filme); 
  end; 
end;