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

Converter: Change sLineBreak to LineEnding for consistency.

Browse Source 
git-svn-id: trunk@29387 -
This commit is contained in:
juha 2011-02-05 10:00:46 +00:00
parent 2a4bd6006c
commit 57a280722d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convcodetool.pas
View File

@ -454,7 +454,7 @@ begin
[NewFunc, FuncInfo.InclSemiColon, FuncInfo.FuncName, Comment]);
// Old function call with params for IDE message output.
s:=copy(fCTLink.CodeTool.Src, FuncInfo.StartPos, FuncInfo.EndPos-FuncInfo.StartPos);
s:=StringReplace(s, sLineBreak, '', [rfReplaceAll]);
s:=StringReplace(s, LineEnding, '', [rfReplaceAll]);
// Now replace it.
fCTLink.ResetMainScanner;
if not fCTLink.SrcCache.Replace(gtNone, gtNone,
@ -574,7 +574,7 @@ var
for i:=0 to ReplaceFuncs.Funcs.Count-1 do begin
FuncName:=ReplaceFuncs.Funcs[i];
if (IdentEndPos-xStart=length(FuncName))
and (CompareIdentifiers(PChar(Pointer(FuncName)),@Src[xStart])=0)
and (CompareIdentifiers(PChar(FuncName),@Src[xStart])=0)
and not fDefinedProcNames.Find(FuncName, x)
then begin
FuncDefInfo:=ReplaceFuncs.FuncAtInd(i);

4
converter/convertdelphi.pas
View File

@ -320,8 +320,8 @@ begin
LCLPath:=LCLPath+'$(TargetCPU)-$(TargetOS)';
Result:=QuestionDlg(lisLCLUnitPathMissing,
Format(lisTheCurrentUnitPathForTheFileIsThePathToTheLCLUnits,
[sLineBreak,'"',Filename,'"',sLineBreak,'"',UnitPath,'"',sLineBreak,
sLineBreak,'"',LCLPath,'"',sLineBreak,sLineBreak,sLineBreak]),
[LineEnding,'"',Filename,'"',LineEnding,'"',UnitPath,'"',LineEnding,
LineEnding,'"',LCLPath,'"',LineEnding,LineEnding,LineEnding]),
mtError, [mrOK, lisContinue, mrAbort, lisInfoBuildMakeAbort], 0);
exit;
end;