请问Delphi有没有使String变量逆序的函数呢？(30分)

如没有，谁能提供一个方法来实现

function reverseStr(Str:string):string;
var
i:integer;
begin
result := '';
for i := length(Str) downto 1 do
result := result + Str;
end;

agree xeen
很好写的啊！你自己可以整理一些以后会用到的function 方便自己以后工作的需要

Returns the reverse of a specified string.

Unit

StrUtils

Category

string handling routines

function ReverseString(const AText: string): string;

Description

ReverseString returns the string specified by AText with the characters in reverse order.

Note: This method does not work with multibyte character sets.

多人接受答案了。