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 取pe文件的引入表和导出表

Delphi 如何读取内存中的数据?

Delphi tclientdataset用法详解

在Delphi中进行指纹仪的二次开发

Delphi 导出excel报错：ole error 800a03ec

Delphi clientdataset复制记录

Delphi执行cmd命令和bat文件

Delphi winapi: getclassname - 获取指定窗口的类名

Delphi firedac连接mysql的时候报错

Delphi 对提交参数编码

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

转载请注明出处：木庄网络博客 » Delphi 字符串前后翻转