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

InstantFPC: Use constant "LineEnding" instead of #13 for Format() call. Issue #37134.

Browse Source 
git-svn-id: trunk@63233 -
This commit is contained in:
juha 2020-05-26 23:52:24 +00:00
parent 257f842d30
commit 5312403ae8
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/instantfpc/instantfpcregisterlaz.pas
View File

@ -35,8 +35,7 @@ resourcestring
rsInstantFPCPr = 'InstantFPC program';
rsSingleFileFr = '%s%sSingle file Free Pascal program executed by InstantFPC';
rsInstantFPCSc = 'InstantFPC script';
rsSingleFilePr = '%s%sSingle file program using InstantFPC to compile and '
+'execute';
rsSingleFilePr = '%s%sSingle file program using InstantFPC to compile and execute';
const
FileDescNameInstantFPC : string = rsInstantFPCPr;
@ -69,11 +68,10 @@ end;
function TProjectInstantFPCDescriptor.GetLocalizedDescription: string;
begin
Result:=Format(rsSingleFileFr, [GetLocalizedName, #13]);
Result:=Format(rsSingleFileFr, [GetLocalizedName, LineEnding]);
end;
function TProjectInstantFPCDescriptor.InitProject(AProject: TLazProject
): TModalResult;
function TProjectInstantFPCDescriptor.InitProject(AProject: TLazProject): TModalResult;
var
MainFile: TLazProjectFile;
NewSource: TStringList;
@ -138,7 +136,7 @@ end;
function TFileDescInstantFPCScript.GetLocalizedDescription: string;
begin
Result:=Format(rsSingleFilePr, [GetLocalizedName, #13]);
Result:=Format(rsSingleFilePr, [GetLocalizedName, LineEnding]);
end;
function TFileDescInstantFPCScript.CreateSource(const Filename, SourceName,