模仿VB的StrReverse字符串倒转功能

 1 function StrReverse(Str: string): string;
 2  var
 3   Count: integer;
 4  begin
 5   Result := '';
 6 
 7   for Count := 1 to length(Str) do
 8     Result := Str[Count] + Result;
 9 end;