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

[cnhxjtoa]

如问题

[dext]

uses StrUtils;

function ReverseString(const AText: string): string;

[zdq801104]

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

[YFLK]

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

[g961681]

为什么都不考虑中文的情况呢？

[jinjazz]

如果是面试的话,你用堆栈考官会很满意

[menglixueren]

用堆栈吧！

[Kevin_Lmx]

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;

[wany97]

用堆栈

[ahjoe]

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;