Delphi字符串反转函数

本文整理自网络，侵删。

 
//Delphi字符串反转函数
function strrev(lpData:string):string;
var
  size,i,t:Integer;
begin
  t:=0;
  size:=Length(lpData);
  SetLength(Result,size);
  for i:=1 to size do
  begin
    Result[size-t]:=lpData[i];
    Inc(t);
  end;
end;
//字符串反转
edt2.Text:=strrev(edt1.Text);
 

相关阅读 >>

Delphi xe10实现移动端支付宝、微信支付接口

Delphi获取当前计算机所有盘符

Delphi xe下支持unicode编码方式

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi richedit1 设置字体

Delphi 如何判断当前网卡是物理网卡

Delphi tstopwatch 计时

Delphi webbrowser 释放注意事项

Delphi 模糊查询和字段查询

Delphi system.net.httpclient 下载

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

转载请注明出处：木庄网络博客 » Delphi字符串反转函数