Login | Register
My pages Projects Community openCollabNet

Discussions > commits > svn commit: r22 - branches/SOPTIM/src/tsvnWizard.pas

delphiaddinfortortoisesvn
Discussion topic

Hide all messages in topic

All messages in topic

svn commit: r22 - branches/SOPTIM/src/tsvnWizard.pas

Author otto_noll
Full name Otto Noll
Date 2008-12-19 07:30:39 PST
Message Author: otto_noll
Date: 2008-12-19 07:30:39-0800
New Revision: 22

Modified:
   branches/SOPTIM/src/​tsvnWizard.pas

Log:
Changed GetCurrentModuleFileList procedure to function which returns the edited input.

Modified: branches/SOPTIM/src/​tsvnWizard.pas
Url: http://delphiaddinfo​rtortoisesvn.tigris.​org/source/browse/de​lphiaddinfortortoise​svn/branches/SOPTIM/​src/tsvnWizard.pas?v​iew=diff&pathrev​=22&r1=21&r2​=22
====================​====================​====================​==================
--- branches/SOPTIM/src/​tsvnWizard.pas (original)
+++ branches/SOPTIM/src/​tsvnWizard.pas 2008-12-19 07:30:39-0800
@@ -90,7 +90,9 @@
       end;
 end;
 
-procedure GetCurrentModuleFileList( fileList: TStrings );
+//Refactor procedure to function
+//Now the function can be use as a variable in other functions
+function GetCurrentModuleFileList( fileList: TStrings ):TStrings;
 var ModServices: IOTAModuleServices;
     Module: IOTAModule;
     i: integer;
@@ -103,6 +105,7 @@
             for i:= 0 to ModServices.CurrentM​odule.GetModuleFileC​ount-1 do
                 fileList.Add( ModServices.CurrentM​odule.GetModuleFileE​ditor(i).GetFileName​ );
     end;
+ result := fileList;
 end;
 
 constructor TTortoiseSVN.Create;
Messages per page: