From 888afc0c0fe525d0d09bf1933ee6a144f4f660e8 Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Sat, 16 May 2009 13:11:13 +0000 Subject: some crash prevention git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1733 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Lua/src/lua/ULuaCore.pas | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Lua') diff --git a/Lua/src/lua/ULuaCore.pas b/Lua/src/lua/ULuaCore.pas index 986974bb..6ea5ecc6 100644 --- a/Lua/src/lua/ULuaCore.pas +++ b/Lua/src/lua/ULuaCore.pas @@ -239,16 +239,16 @@ procedure TLuaCore.BrowseDir(Dir: WideString); I: Integer; begin try - Files := Platform.DirectoryFindFiles(Dir, '.usdx', true) + Files := Platform.DirectoryFindFiles(Dir, '.usdx', true); + + for I := 0 to High(Files) do + if (Files[I].IsDirectory) then + BrowseDir(Dir + Files[i].Name) //browse recursive + else if (Files[I].IsFile) then + LoadPlugin(Dir + Files[i].Name); except Log.LogError('Couldn''t deal with directory/file: ' + Dir + ' in TLuaCore.BrowseDir') end; - - for I := 0 to High(Files) do - if (Files[I].IsDirectory) then - BrowseDir(Dir + Files[i].Name) //browse recursive - else if (Files[I].IsFile) then - LoadPlugin(Dir + Files[i].Name); end; { tries to load filename w/ lua and creates the default -- cgit v1.2.3