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 使用钩子函数 - 钩子链和 callnexthookex 的返回值

Delphi线程的创建、挂起、激活与终止

winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母

Delphi程序运行在64位机器连接odbc的问题

Delphi 关于内存数据与 json

Delphi xe5获取android imei id

Delphi unknown picture file extension (.jpg) 错误提示

Delphi 静态/动态调用dl

Delphi 利用hook技术实现键盘监控

Delphi 用wininet 单元实现 post提交数据

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

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