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