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); 

相关阅读 >>

Delphi monthcalendar1 获取选中日期

Delphi firedac 下的 sqlite [8] - 自定义函数

Delphi以二进制方式读取图片并显示出来

Delphi rest api post sample

Delphi tms web core twebsocketclient

Delphi system.masks.matchesmask 简单的正则用法

Delphi adoconnection连接 sqlserver

Delphi net.httpclient用最精简的代码获取网页数据

Delphi线程简单创建、挂起、激活与终止

Delphi tdictionary使用范例

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

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