反转字符串

function inverse(m:String):String;

var

i:integer;

a:integer;

n:String;

begin

a:=length(m);

setlength(n,a);

i:=1;

while (a>0) do

begin

n[i]:=m[a];

inc(i);

dec(a);

end;

result:=n;

end;

需要在单元文件中注册。