Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed worst bug ever

Browse Source
This commit is contained in:
Christian Hammacher 2006-05-13 20:49:37 +00:00
parent 1370305fb0
commit f51620c2d7
3 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
installer/installer/AMXInstaller.exe
View File

Binary file not shown.

12
installer/installer/UnitFunctions.pas
View File

@ -96,7 +96,11 @@ var eList: TStringList;
i: integer;
begin
eList := TStringList.Create;
frmMain.IdFTP.List(eList);
try
frmMain.IdFTP.List(eList);
except
// nothing, not an exception?!
end;
frmMain.IdFTP.DirectoryListing.LoadList(eList);
eList.Clear;
for i := 0 to frmMain.IdFTP.DirectoryListing.Count -1 do begin
@ -113,7 +117,11 @@ var eList: TStringList;
i, eStart: integer;
begin
eList := TStringList.Create;
frmMain.IdFTP.List(eList, '', True);
try
frmMain.IdFTP.List(eList, '', True);
except
// nothing
end;
eStart := 0;

8
installer/installer/UnitfrmMain.pas
View File

@ -210,7 +210,13 @@ begin
CurNode := CurNode.Parent;
until (not Assigned(CurNode));
IdFTP.ChangeDir(ePath);
IdFTP.List(eStr, '', False);
try
IdFTP.List(eStr, '', False);
except
// worst "exception" ever. bad indy!
end;
if eStr.IndexOf('liblist.gam') = -1 then begin
MessageBox(Handle, 'Invalid directory. Please select your mod directory and try again.', PChar(Application.Title), MB_ICONWARNING);
eStr.Free;