blob: bc082765ce7d3afb298edde900e3a26f20dfe729 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %FAIL }
program tw36631b;
{$APPTYPE CONSOLE}
{$mode delphi}
uses
Classes,
SysUtils;
var
LongStr: String;
SingleStr: String;
begin
LongStr := 'Some example, test text. Another one, or something like that.';
SingleStr := LongStr.Split([',', '.']).[1];
writeln(SingleStr); // ' test text'
writeln('done');
end.
|