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

Codetoola: Simplify TCodeToolManager.FindLFMFileName.

Browse Source
This commit is contained in:
Juha 2025-03-11 16:13:57 +02:00
parent 6c2a52efe0
commit 017be98e2f
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/codetoolmanager.pas
View File

@ -5835,9 +5835,9 @@ begin
end;
function TCodeToolManager.FindLFMFileName(Code: TCodeBuffer): string;
var LinkIndex: integer;
var
LinkIndex: integer;
CurCode: TCodeBuffer;
Ext: string;
begin
Result:='';
{$IFDEF CTDEBUG}
@ -5848,12 +5848,8 @@ begin
LinkIndex:=-1;
CurCode:=FCurCodeTool.FindNextIncludeInInitialization(LinkIndex);
while (CurCode<>nil) do begin
if UpperCaseStr(ExtractFileExt(CurCode.Filename))='.LRS' then begin
Result:=CurCode.Filename;
Ext:=ExtractFileExt(Result);
Result:=copy(Result,1,length(Result)-length(Ext))+'.lfm';
exit;
end;
if UpperCaseStr(ExtractFileExt(CurCode.Filename))='.LRS' then
exit(ChangeFileExt(CurCode.Filename,'.lfm'));
CurCode:=FCurCodeTool.FindNextIncludeInInitialization(LinkIndex);
end;
except