反转字符串
2024-07-14 17:32:06 226人阅读
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; |
来自为知笔记(Wiz)
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉：
投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。
