mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 17:39:20 +02:00
* make ansistring unique when changing the code page without conversion
(like on other platforms) git-svn-id: trunk@22463 -
This commit is contained in:
parent
54c1e638ad
commit
91d92c4732
@ -840,6 +840,7 @@ procedure SetCodePage(var s : RawByteString; CodePage : TSystemCodePage; Convert
|
|||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
|
UniqueString(s);
|
||||||
AnsistringClass(S).fCodePage:=CodePage;
|
AnsistringClass(S).fCodePage:=CodePage;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user