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安卓定位权限申请

Delphi中实现hextostr函数和strtohex函数

Delphi fmx输出彩色文本

Delphi xe中 exit 的新用法

推荐一套免费跨平台的Delphi 哈希及加密算法库

最简单的Delphi驱动结束进程

Delphi 获取 cpu 使用率的单元

Delphi 增加/获得windows用户帐号

Delphi监测按键输入

Delphi tms web core 通过url 传递参数

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

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