mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 10:27:55 +02:00
24 lines
421 B
ObjectPascal
24 lines
421 B
ObjectPascal
program testure;
|
|
|
|
{$mode objfpc}
|
|
{$H+}
|
|
{$CODEPAGE UTF8}
|
|
|
|
uses
|
|
cwstring, Classes, SysUtils, uregexpr;
|
|
|
|
var
|
|
r: TRegExpr;
|
|
s, s2: UTF8String;
|
|
begin
|
|
r:= TRegExpr.create;
|
|
r.Expression:= '.+';
|
|
s:= 'pro про';
|
|
s2:= r.Replace(s, '\U$0', true);
|
|
Writeln(Format('Upcase of "%s" -> "%s"', [s, s2]));
|
|
|
|
s:= 'PRO ПРО';
|
|
s2:= r.Replace(s, '\L$0', true);
|
|
Writeln(Format('Lowcase of "%s" -> "%s"', [s, s2]));
|
|
end.
|