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;
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
网友评论