paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: added unit FileUtil to new units

Browse Source 
git-svn-id: trunk@16273 -
This commit is contained in:
mattias 2008-08-27 11:28:48 +00:00
parent 9032caa4fd
commit ca1ba91b58
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/mainintf.pas
View File

@ -398,7 +398,7 @@ end;
function TFileDescPascalUnitWithForm.GetInterfaceUsesSection: string;
begin
Result:='Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs';
Result:='Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs';
end;
function TFileDescPascalUnitWithForm.GetLocalizedName: string;
@ -423,7 +423,7 @@ end;
function TFileDescPascalUnitWithDataModule.GetInterfaceUsesSection: string;
begin
Result:='Classes, SysUtils, LResources, Forms, Controls, Dialogs';
Result:='Classes, SysUtils, FileUtil, LResources, Forms, Controls, Dialogs';
end;
function TFileDescPascalUnitWithDataModule.GetLocalizedName: string;
@ -506,7 +506,7 @@ end;
function TFileDescPascalUnitWithFrame.GetInterfaceUsesSection: string;
begin
Result:='Classes, SysUtils, LResources, Forms';
Result:='Classes, SysUtils, FileUtil, LResources, Forms';
end;
function TFileDescPascalUnitWithFrame.GetLocalizedName: string;

2
ideintf/projectintf.pas
View File

@ -973,7 +973,7 @@ end;
function TFileDescPascalUnitWithResource.GetInterfaceUsesSection: string;
begin
Result:=inherited GetInterfaceUsesSection;
Result:=Result+', LResources';
Result:=Result+', FileUtil, LResources';
end;
function TFileDescPascalUnitWithResource.GetInterfaceSource(const Filename,