2018-11-28 反转字符串

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;