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

codetools: less hints

Browse Source 
git-svn-id: trunk@44084 -
This commit is contained in:
mattias 2014-02-15 23:41:42 +00:00
parent 21a6cb800e
commit d683f4106d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/basiccodetools.pas
View File

@ -257,7 +257,7 @@ function FindSourceType(const Source: string;
function RenameProgramInSource(Source:TSourceLog;
const NewProgramName:string):boolean;
function FindProgramNameInSource(const Source:string;
var ProgramNameStart,ProgramNameEnd:integer):string;
out ProgramNameStart,ProgramNameEnd:integer):string;
// unit name
function RenameUnitInSource(Source:TSourceLog;const NewUnitName:string):boolean;
@ -468,8 +468,10 @@ begin
end;
function FindProgramNameInSource(const Source:string;
var ProgramNameStart,ProgramNameEnd:integer):string;
out ProgramNameStart,ProgramNameEnd:integer):string;
begin
ProgramNameStart:=0;
ProgramNameEnd:=0;
if uppercasestr(FindSourceType(Source,ProgramNameStart,ProgramNameEnd))=
'PROGRAM'
then