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

Fix comments, formatting

Browse Source 
git-svn-id: trunk@43726 -
This commit is contained in:
juha 2014-01-15 00:08:42 +00:00
parent 63668e5e4c
commit 0e189386d9
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
converter/convertdelphi.pas
View File

@ -607,9 +607,10 @@ begin
finally
DFMConverter.Free;
end;
// Change encoding to UTF-8
// Read pascal unit code in.
Result:=LoadCodeBuffer(TempLFMBuffer,LfmFilename,
[lbfCheckIfText,lbfUpdateFromDisk],true);
// Change encoding to UTF-8
if TempLFMBuffer.DiskEncoding<>EncodingUTF8 then begin
fOwnerConverter.fSettings.AddLogLine(Format(lisConvDelphiChangedEncodingToUTF8,
[TempLFMBuffer.DiskEncoding]));