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将n个相同字符提取到左边，m个相同字符提取到右边

Delphi 遍历目录

Delphi 10.3新特性 内联变量

Delphi fmx 同时使用longtap和tap

Delphi中设置系统时间方法

Delphi 调用win32 api操作串口

Delphi 设置系统默认打印机

Delphi 使用firedac的tfdscript组件执行文件中描述的sql语句

Delphi解析json格式化的日期

Delphi获取ie路径

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

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