paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

save as of project files now starts in project dierctory

Browse Source 
git-svn-id: trunk@3860 -
This commit is contained in:
mattias 2003-02-20 11:03:20 +00:00
parent e99c69d1ab
commit 44c90180a3
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/filectrl.pp
View File

@ -56,6 +56,7 @@ function FileIsSymlink(const AFilename: string): boolean;
function GetFileDescription(const AFilename: string): string; function GetFileDescription(const AFilename: string): string;
function ReadAllLinks(const Filename: string; function ReadAllLinks(const Filename: string;
ExceptionOnError: boolean): string; ExceptionOnError: boolean): string;
function CopyFile(const SrcFilename, DestFilename: string): boolean;
// directories // directories
function DirectoryExists(const FileName: String): Boolean; function DirectoryExists(const FileName: String): Boolean;
@ -72,7 +73,7 @@ function ChompPathDelim(const Path: string): string;
function TrimFilename(const AFilename: string): string; function TrimFilename(const AFilename: string): string;
function CleanAndExpandFilename(const Filename: string): string; function CleanAndExpandFilename(const Filename: string): string;
function CleanAndExpandDirectory(const Filename: string): string; function CleanAndExpandDirectory(const Filename: string): string;
function CopyFile(const SrcFilename, DestFilename: string): boolean; function FileIsInPath(const Filename, Path: string): boolean;
// file search // file search
function SearchFileInPath(const Filename, BasePath, SearchPath, function SearchFileInPath(const Filename, BasePath, SearchPath,
@ -112,6 +113,9 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2003/02/20 11:03:20 mattias
save as of project files now starts in project dierctory
Revision 1.11 2003/02/07 17:49:21 mattias Revision 1.11 2003/02/07 17:49:21 mattias
added ReadAllLinks added ReadAllLinks

19
lcl/include/filectrl.inc
View File

@ -660,6 +660,22 @@ begin
Result:=AppendPathDelim(CleanAndExpandFilename(Filename)); Result:=AppendPathDelim(CleanAndExpandFilename(Filename));
end; end;
{------------------------------------------------------------------------------
function FileIsInPath(const Filename, Path: string): boolean;
------------------------------------------------------------------------------}
function FileIsInPath(const Filename, Path: string): boolean;
var
ExpFile: String;
ExpPath: String;
l: integer;
begin
ExpFile:=CleanAndExpandFilename(Filename);
ExpPath:=CleanAndExpandDirectory(Path);
l:=length(ExpPath);
Result:=(length(ExpFile)>l) and (ExpFile[l+1]=PathDelim)
and (CompareFilenames(ExpPath,LeftStr(ExpFile,l))=0);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
function CopyFile(const SrcFilename, DestFilename: string): boolean; function CopyFile(const SrcFilename, DestFilename: string): boolean;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
@ -777,6 +793,9 @@ end;
{ {
$Log$ $Log$
Revision 1.14 2003/02/20 11:03:20 mattias
save as of project files now starts in project dierctory
Revision 1.13 2003/02/19 13:10:01 mattias Revision 1.13 2003/02/19 13:10:01 mattias
fixed parsing invalid date fixed parsing invalid date