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

Converter: formatting

Browse Source 
git-svn-id: trunk@39054 -
This commit is contained in:
juha 2012-10-12 08:11:53 +00:00
parent d879b778b0
commit d768cb42a7
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
converter/convcodetool.pas
View File

@ -310,7 +310,7 @@ begin
'{$ELSE}'+LineEnding+
' {$R *.lfm}'+LineEnding+
'{$ENDIF}';
Result:=fCTLink.SrcCache.Replace(gtNone,gtNone,ACleanPos,ParamPos+6,s);
if not fCTLink.SrcCache.Replace(gtNone,gtNone,ACleanPos,ParamPos+6,s) then exit;
end;
end
else // Change .dfm to .lfm.
@ -321,8 +321,7 @@ begin
NewKey:=LowKey;
// Change a single resource name.
if NewKey<>'' then begin
if not fCTLink.SrcCache.Replace(gtNone,gtNone,ParamPos+2,ParamPos+5,NewKey) then
exit;
if not fCTLink.SrcCache.Replace(gtNone,gtNone,ParamPos+2,ParamPos+5,NewKey) then exit;
end;
end;
ACleanPos:=FindCommentEnd(Src, ACleanPos, Scanner.NestedComments);