Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#5

AW: Finde Fehler in Programm nicht

  Alt 23. Dez 2013, 21:37
Im FormCreate fehlt das Befehl := TStringList.Create; und natürlich auch das Befehl.Free .
Daher scheitert dieser Teil:
Delphi-Quellcode:
 for i := 1 to Update.Count - 1 do
 begin
   Befehl.Clear; <--- hier müsste die Schutzverletzung auftreten!!!
   ExtractStrings([';'],[],PChar(Update[i]),Befehl);

   //Befehl auswerten
   if Befehl[0]='dirthen CreateDir(Befehl[1]);
   if Befehl[0]='delthen DeleteFileDir(Befehl[1]);
   if Befehl[0]='getthen
   begin
    Inc(FileCount);
    FTP.Size(Befehl[1]);
    FTP.Get(Befehl[1],Befehl[2],true);
    pbGesamt.Position:=pbGesamt.Position+1;
   end;
 end;
  Mit Zitat antworten Zitat