12 lines
274 B
ObjectPascal
12 lines
274 B
ObjectPascal
|
function GetWords(sq:sequence of string):sequence of string;
|
|||
|
|
begin
|
|||
|
|
foreach var x in sq do
|
|||
|
|
begin
|
|||
|
|
var a := x.toWords; //<2F> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> yield
|
|||
|
|
yield a[0];
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
begin
|
|||
|
|
var sq := Seq('1 2 3', 'a b c d');
|
|||
|
|
GetWords(sq).Print;
|
|||
|
|
end.
|