求最简单的FUNCTION,将ABCDEF,倒过来变成FEDCBA的写法!

Question

如问题

Answer 1

function daoxu(s:String):String;
var
  i :integer;
begin
  Setlength(Result,Length(s));
  for i:=Length(s)-1 downto 0 do
  Result[Length(s)-i] := s[i];
end;

Answer 2

Kevin_Lmx(繁华阅尽) 的程序有问题。function daoxu(s:String):String;
var
  i :integer;
begin
  Setlength(Result,Length(s));
  for i:=Length(s) downto 1 do
  Result[Length(s)+1-i] := s[i];
end;

Answer 3

uses StrUtils;function ReverseString(const AText: string): string;

Answer 4

首部 function ReverseString(const AText: string): string; $[StrUtils.pas
功能 返回字符串AText的反序
说明 ReverseString('1234') = '4321'
参考 function System.SetLength
例子 Edit3.Text := ReverseString(Edit1.Text);

Answer 5

正解 zdq801104(【☆我很笨，但是我不傻！☆】)