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]='
dir'
then CreateDir(Befehl[1]);
if Befehl[0]='
del'
then DeleteFileDir(Befehl[1]);
if Befehl[0]='
get'
then
begin
Inc(FileCount);
FTP.Size(Befehl[1]);
FTP.Get(Befehl[1],Befehl[2],true);
pbGesamt.Position:=pbGesamt.Position+1;
end;
end;