fpc/tests/webtbs/tw29353.pp

24 lines
340 B
ObjectPascal
Executable File

program project1;
{$mode objfpc}{$H+}
{$codepage UTF8}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
Var
AString : utf8string;
begin
AString := 'öö';
Case AString of
'öö' : WriteLn('match');
else
halt(1);
end;
end.