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

LCL: clean up

Browse Source 
git-svn-id: trunk@30950 -
This commit is contained in:
mattias 2011-05-28 09:05:55 +00:00
parent acefb49e2f
commit 1e54c3b399
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lazhelpintf.pas
View File

@ -818,11 +818,8 @@ function THelpDBISourceDirectories.FileMatches(const AFilename: string
): boolean;
var
SearchPath: String;
var
EndPos: Integer;
var
StartPos: Integer;
var
Dir: String;
begin
Result:=false;
@ -858,13 +855,9 @@ end;
function THelpDBISourceDirectories.GetFullFilename: string;
var
ExpFilename: String;
var
EndPos: Integer;
var
StartPos: Integer;
var
Dir: String;
var
BaseDir: String;
begin
ExpFilename:=FFilename;