AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

EStackOverflow???

Ein Thema von Master_BB · begonnen am 26. Mai 2004 · letzter Beitrag vom 26. Mai 2004
Antwort Antwort
Master_BB

Registriert seit: 17. Mai 2003
285 Beiträge
 
Delphi 7 Professional
 
#1

Re: EStackOverflow???

  Alt 26. Mai 2004, 09:13
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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz