aaaaaaaaaaaa
代码改变世界

delphi lazarus copy

2021-01-19 12:33  二进制乐谱  阅读(74)  评论(0编辑  收藏  举报
procedure TRtlForm.Button1Click(Sender: TObject);
var
  s1,s2:String;
begin

s1:='1234567';
//从第3个开始拷贝10个字符,超过字符长度全拷贝
s2:=Copy(s1,3,10);
ShowMessage(s2);
end;   

  

aaaaaaaaaaaaa