DELPHI字符串操作问题！

Question

取子串用 Copy 函数，我也觉得这个名字有点不可思议，不过可以肯定的一点是，你没有好好看帮助:)例子：
var
  s : string;
  s1 : string;
begin
  s := "This is a test";
  s1 := Copy(s, 5, 2);   {现在s1等于'is'}
  s1 := Copy(s, 0, 4);   {现在s1等于'This'，等价与Left}
  s1 := Copy(s, Length(s)-4, 4); {现在s1等于'test'，等价与Right}
end;

Answer 1

Delete函数亦可!Delete(s,beginPos,EndPos).

Answer 2

sorry!
应该称Delete过程;
procedure Delete(var S: string; Index, Count:Integer);