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

JEDI Code Format: convert between Widestrings and Ansistrings. Issue #23442

Browse Source 
git-svn-id: trunk@39470 -
This commit is contained in:
juha 2012-12-06 23:38:02 +00:00
parent bca930e0c9
commit 5f3229f26e
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/jcf2/ReadWrite/EditorConverter.pas
View File

@ -37,7 +37,7 @@ uses
Classes,
{$ifdef fpc}
{ lazarus design time }
SrcEditorIntf,
SrcEditorIntf, LazUTF8,
{$else}
{ delphi design time }
ToolsAPI,
@ -142,16 +142,14 @@ begin
end;
fsCurrentUnitName := pciUnit.FileName;
fcConverter.InputCode := ReadFromIDE(pciUnit);
fcConverter.InputCode := UTF8ToUTF16(ReadFromIDE(pciUnit));
// now convert
fcConverter.Convert;
fsCurrentUnitName := '';
if not ConvertError then
begin
WriteToIDE(pciUnit, fcConverter.OutputCode);
WriteToIDE(pciUnit, UTF16ToUTF8(fcConverter.OutputCode));
SendStatusMessage(pciUnit.FileName, 'Formatted unit', mtProgress, -1, -1);
Inc(fiConvertCount);
end;
@ -174,7 +172,7 @@ begin
exit;
lcSourceLines := TStringList.Create;
lcSourceLines.Text := fcConverter.InputCode;
lcSourceLines.Text := UTF16ToUTF8(fcConverter.InputCode);
lcDestLines := TStringList.Create;
lcDestLines.Text := psText;
lcSameStart := TStringList.Create;