* Modified the test to run properly on non-UTF8 systems.

This commit is contained in:
Yuriy Sydorov 2021-09-11 20:11:40 +03:00
parent daa05f19cb
commit 64812bdc60

View File

@ -11,7 +11,7 @@ uses
{ you can add units after this };
Var
AString : String;
AString : utf8string;
begin
AString := 'öö';
Case AString of