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 createdir 建立文件夹路径

Delphi treeview中显示mainmenu菜单

Delphi中禁止webbrowser右键的方法

Delphi 在listview控件中绘底图

Delphi case of

Delphi读取utf8格式ini及取得动态�热�

Delphi hash类

Delphi 拷贝dbgrid当前行

Delphi通过窗口标题结束指定进程函数

Delphi 设计一个有渐变色的标签

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

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