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

Converter: improve WideString conversion. Not all nums are 3 characters long. Issue #23116

Browse Source 
git-svn-id: trunk@41975 -
This commit is contained in:
juha 2013-07-02 17:44:17 +00:00
parent 5ef97c0b5c
commit 2a00da9fec
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
converter/missingpropertiesdlg.pas
View File

@ -192,16 +192,20 @@ end;
function TDFMConverter.FixWideString(aInStream, aOutStream: TMemoryStream): TModalResult;
// Convert Windows WideString syntax (#xxx) to UTF8
function UnicodeNumber(const InS: string; Ind: integer): string;
function UnicodeNumber(const InS: string; var Ind: integer): string;
// Convert the number to UTF8
var
c: Integer;
Start, c: Integer;
begin
c := StrToInt(copy(InS, Ind, 3));
if c > 255 then
Result := UnicodeToUTF8(c)
Inc(Ind); // Skip '#'
Start:=Ind;
while InS[Ind] in ['0'..'9'] do
Inc(Ind); // Collect numbers
c:=StrToInt(Copy(InS, Start, Ind-Start));
if c>255 then
Result:=UnicodeToUTF8(c)
else
Result := SysToUTF8(chr(c)); // or use a function in lconvencoding.
Result:=SysToUTF8(chr(c));
end;
function CollectString(const InS: string; var Ind: integer): string;
@ -215,17 +219,18 @@ function TDFMConverter.FixWideString(aInStream, aOutStream: TMemoryStream): TMod
repeat
ch:=InS[Ind];
if ch in [#13,#10] then Break;
if ch = '''' then
InQuote:=not InQuote
else if InQuote then
Result:=Result+ch
else if ch = '#' then begin
Result:=Result+UnicodeNumber(InS, Ind+1);
Inc(Ind, 3);
if ch = '''' then begin
InQuote:=not InQuote; // Toggle quote
Inc(Ind);
end
else if InQuote then begin
Result:=Result+ch; // Inside quotes copy characters as is.
Inc(Ind);
end
else if ch = '#' then
Result:=Result+UnicodeNumber(InS, Ind)
else
Break;
Inc(Ind);
until False;
Result:=QuotedStr(Result);
end;