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;

//字符串反转 www.delphitop.com

edt2.Text:=strrev(edt1.Text); 

相关阅读 >>

dll 使用 pchar 参数的小例子

Delphi输入字符与tlistbox项目匹配

Delphi xe listbox 行高根据内容高度进行调速

Delphi获取网卡mac地址

oleinitialize和coinitialize的区别

Delphi 验证tstrings是否存在

Delphi用内存流方式获取页面验证码图片

Delphi 检测进程是否存在

Delphi流的操作

Delphi检查网络连接状态3种方式

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

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