mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 23:47:52 +02:00
* Modified the test to run properly on non-UTF8 systems.
This commit is contained in:
parent
daa05f19cb
commit
64812bdc60
@ -11,7 +11,7 @@ uses
|
||||
{ you can add units after this };
|
||||
|
||||
Var
|
||||
AString : String;
|
||||
AString : utf8string;
|
||||
begin
|
||||
AString := 'öö';
|
||||
Case AString of
|
||||
|
Loading…
Reference in New Issue
Block a user