Ver código fonte

Use UTF8ToString instead of Utf8Decode internally, as the Delphi help file requests. Still exposed as Utf8Decode.

Martijn Laan 1 ano atrás
pai
commit
79214cc758
2 arquivos alterados com 2 adições e 2 exclusões
  1. 1 1
      Projects/Src/CmnFunc2.pas
  2. 1 1
      Projects/Src/ScriptFunc_R.pas

+ 1 - 1
Projects/Src/CmnFunc2.pas

@@ -1693,7 +1693,7 @@ procedure TCreateProcessOutputReader.Read(const LastRead: Boolean);
 
   procedure LogLine(const S: AnsiString);
   begin
-    FLogProc(Utf8Decode(S), False, FNextLineIsFirstLine, FLogProcData);
+    FLogProc(UTF8ToString(S), False, FNextLineIsFirstLine, FLogProcData);
     FNextLineIsFirstLine := False;
   end;
 

+ 1 - 1
Projects/Src/ScriptFunc_R.pas

@@ -1224,7 +1224,7 @@ begin
   end else if Proc.Name = 'UTF8ENCODE' then begin
     StackSetAnsiString(Stack, PStart, Utf8Encode(Stack.GetString(PStart-1)));
   end else if Proc.Name = 'UTF8DECODE' then begin
-    Stack.SetString(PStart, Utf8Decode(StackGetAnsiString(Stack, PStart-1)));
+    Stack.SetString(PStart, UTF8ToString(StackGetAnsiString(Stack, PStart-1)));
   end else
     Result := False;
 end;