function ReverseString(s: string): string;var i: integer; s1:string;begin s1 := ‘‘; for i := 1 to Length(s) do s1 := s[i] + s1; Result:=s1;end;
procedure TForm1.Button1Click(Sender: TObject);begin Memo1.Text := ReverseString(Memo1.Text);end;
反转字符串,布布扣,bubuko.com
反转字符串
原文：http://www.cnblogs.com/xe2011/p/3875986.html
