我有一个,可以参考,不知道是不是最优: function reverse(ch:string):string; var iLen, i: integer; s:string; c:char; begin s := ch; iLen := Length(s); for i:=1 to (iLen div 2) do begin c := s[i]; s[i] := s[iLen - i + 1]; s[iLen - i + 1] := c; end; Result := s; end;
你可以看看: function reverse(ch:string):string; var iLen, i: integer; s:string; c:char; begin s := ch; iLen := Length(s); for i:=1 to (iLen div 2) do begin c := s[i]; s[i] := s[iLen - i + 1]; s[iLen - i + 1] := c; end; Result := s; end;
function reverse(ch:string):string;
var
iLen, i: integer;
s:string;
c:char;
begin
s := ch;
iLen := Length(s);
for i:=1 to (iLen div 2) do
begin
c := s[i];
s[i] := s[iLen - i + 1];
s[iLen - i + 1] := c;
end;
Result := s;
end;
function reverse(ch:string):string;
var
iLen, i: integer;
s:string;
c:char;
begin
s := ch;
iLen := Length(s);
for i:=1 to (iLen div 2) do
begin
c := s[i];
s[i] := s[iLen - i + 1];
s[iLen - i + 1] := c;
end;
Result := s;
end;