37 lines
721 B
ObjectPascal
37 lines
721 B
ObjectPascal
|
var s1,s2: string;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
s1 := 'ABCDEFGH';
|
|||
|
|
s2 := s1.Substring( {<7B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_<EFBFBD><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = } 3);
|
|||
|
|
Writeln(s2);
|
|||
|
|
|
|||
|
|
s2 := s1.Substring(3, {<7B><><EFBFBD><EFBFBD><EFBFBD>_<EFBFBD><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = } 2);
|
|||
|
|
Writeln(s2);
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
s1 := 'ABCDEFGH';
|
|||
|
|
s2 := s1.Insert(2, 'xxx');
|
|||
|
|
Writeln(s2);
|
|||
|
|
|
|||
|
|
s2 := s2.Replace('x', '!');
|
|||
|
|
Writeln(s2);
|
|||
|
|
|
|||
|
|
s2 := s2.Remove(2, 3);
|
|||
|
|
Writeln(s2);
|
|||
|
|
|
|||
|
|
s1 := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
s2 := s1.Replace('<27><><EFBFBD><EFBFBD>', '<27><><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
Writeln(s2);
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
s1 := ' xxx xxx ';
|
|||
|
|
Writeln('|', s1, '|');
|
|||
|
|
s1 := s1.Trim;
|
|||
|
|
Writeln('|', s1, '|');
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
s1 := '<27><><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
s1 := s1.ToUpper;
|
|||
|
|
Writeln(s1);
|
|||
|
|
end.
|