paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:56:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: removed not used TProject.SearchFile

Browse Source 
git-svn-id: trunk@35529 -
This commit is contained in:
mattias 2012-02-21 11:03:05 +00:00
parent 40d3ff8228
commit 340a4ed173
1 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ide/project.pp
View File

@ -971,7 +971,6 @@ type
function RemoveProjectPathFromFilename(const AFilename: string): string;
function FileIsInProjectDir(const AFilename: string): boolean;
procedure GetVirtualDefines(DefTree: TDefineTree; DirDef: TDirectoryDefines);
function SearchFile(const Filename,SearchPaths,InitialDir:string):string;
function GetShortFilename(const Filename: string; UseUp: boolean): string; override;
procedure ConvertToLPIFilename(var AFilename: string); override;
procedure ConvertFromLPIFilename(var AFilename: string); override;
@ -4090,34 +4089,6 @@ begin
TProjectIcon(ProjResources[TProjectIcon]).LoadDefaultIcon;
end;
function TProject.SearchFile(const Filename,SearchPaths,InitialDir:string):string;
var StartPos,EndPos:integer;
CurPath: string;
OldDir: string;
begin
OldDir:=GetCurrentDirUTF8;
SetCurrentDirUTF8(ExtractFilePath(InitialDir));
try
StartPos:=1;
while StartPos<=length(SearchPaths) do begin
EndPos:=Startpos;
while (EndPos<=length(SearchPaths)) and (SearchPaths[EndPos]<>';') do
inc(EndPos);
CurPath:=copy(SearchPaths,Startpos,EndPos-StartPos);
if CurPath<>'' then begin
if CurPath[length(CurPath)]<>PathDelim then
CurPath:=CurPath+PathDelim;
Result:=CurPath+Filename;
if FileExistsUTF8(Result) then exit;
end;
StartPos:=EndPos+1;
end;
finally
SetCurrentDirUTF8(OldDir);
end;
Result:='';
end;
function TProject.GetShortFilename(const Filename: string; UseUp: boolean
): string;
var