获取想应的文字

Question

edit1.text:='在水晶报表的底部添加一个字段的合计';要取得----(水晶报表)edit2.text:=edit1.text[2]+edit1.text[3]+edit1.text[4]+edit1.text[5];有没比这更简洁的代码  如:edit2.text:=edit1.text[2,3,4,5];

Answer 1

 function MidStr (Const Str: String; From, Size: Word): String;
begin
    MidStr := Copy(Str, From, Size)
end;
function LeftStr
      (Const Str: String; Size: Word): String;
begin
    LeftStr := Copy(Str, 1, Size)
end;procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=MidStr(memo1.Text,58,26);
end;end.
还是我自己的这个好用