散分，提一简单问题

Question

如何使某字符串颠倒过来，如123 变成321啊。9：15结贴

Answer 1

function ReturnStr(s : String) : String;
var
  sValue : String;
  iLoop,jLoop : Integer;
begin
  Result := '';
  if Legth(s) > 0 then
  begin
    jLoop := 0;
    for iLoop = Legth(s) - 1 to 0 do
    begin
      sValue[jLoop] := YourString[iLoop];
      jLoop := jLoop + 1;
    end;
    Result := sValue;
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  b,a : string;
  i : integer;
begin
  b := '123';
  for i := 1 to length(b) do
  begin
    a := a + b[length(b) - i +1];
  end;
  showmessage(a);
end;

Answer 3

不好意思啊！见笑了！：）现在这个测试过了！function ReturnStr(s : String) : String;
var
  sValue : Array[0..10] of Char;
  iLoop,jLoop : Integer;
begin
  Result := '';
  if Length(s) > 0 then
  begin
    jLoop := 0;
    for iLoop := Length(s) downto 0 do
    begin
      sValue[jLoop] := s[iLoop];
      jLoop := jLoop + 1;
    end;
    Result := sValue;
  end;
end;