Delphi 字符串前后翻转


本文整理自网络,侵删。

 
演示图


function reverse(s: string): string;
var
  i, num: Integer;
  st: string;
begin
  num := Length(s);
  st := '';
  for i := num downto 1 do
  begin
    st := st + s[i];
  end;
  Result := st;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=reverse('我是中国人');
end;

相关阅读 >>

Delphi 如何使用findfirst搜索不同的文件类型?

Delphi idhttp.post超时导致整个线程停止问题解决

Delphi实现自我删除

Delphi formatdatetime 显示日期时间

Delphi shgetfileinfo函数

Delphi 与 c/c++ 数据类型对照表

Delphi-获取毫秒-计算代码运行的时间

Delphi 创建大窗口

Delphi rest客户端程序

Delphi报警声音 beep、messagebeep 和 windows.beep

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...