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 winsocks检测某个tcp端口师傅正在被使用

Delphi xe5发送短信以及读取短信代码

Delphi 判断网络是否连通

Delphi xe6 读取android设备联系人

Delphi 获取文件crc和md5

Delphi 检查自己的进程的父进程

Delphi函数定时

Delphi memo加个prompttext

Delphi 创建console-控制台应用

Delphi最简化异步选择tcp服务器

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

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