送分了，忘了用什么函数

Question

delete(str,1,7);
从第一个开始删除7个字符

Answer 1

procedure Delete(var S: string; Index, Count:Integer);Delete('i love you',1,7);注意  这是一个过程

Answer 2

首部 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 
功能 返回字符串AText左边的ACount个字符 
说明 LeftStr('123456', 3) = '123' 
参考 function System.Copy 
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); 
&_ 
首部 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 
功能 返回字符串AText右边的ACount个字符 
说明 RightStr('123456', 3) = '456' 
参考 function System.Copy 
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); 
&_ 
首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas 
功能 返回字符串AText从AStart开始的ACount个字符 
说明 其实就是Copy 
参考 function System.Copy 
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 

Answer 3

用COpy（source, Index, count）函数不就行了
str := copy(str, 8, 3);

Answer 4

Copy,delete都可以，
感觉delete好一点！

Answer 5

function copy(const s : string;position,count : integer): string;Note:
   s 为操作的字符串（如你的'i love you'），position 为你对该字符串操作的位置，count是从position开始截取的字符个数。For example:
  str :=  'I love you';
  则copy(str,1,1)='I';
    copy(str,2,1)=' ';
    copy(str,3,3)='lov';

Answer 6

删除delete(str,1,7);
截取copy(str,开始位置,所截长度)