美文网首页
2018-11-28 反转字符串

2018-11-28 反转字符串

作者: netppp | 来源:发表于2018-11-28 16:59 被阅读0次

procedure TForm1.Button1Click(Sender: TObject);

var  s,m:string;

      i:Integer;

begin

        s:='abcdefg';

          m:='';

        for i:=1 to Length(s)  do

          m:=s[i]+m;

        ShowMessage(m);

end;

相关文章

网友评论

      本文标题:2018-11-28 反转字符串

      本文链接:https://www.haomeiwen.com/subject/sjdzqqtx.html