如何将输入的文本反向显示出来，如输入hello显示成olleh?

Question

如题，谢谢

Answer 1

procedure reverse
begin
  read(ch);
  if( ch <> '') then
    begin
      reverse;
      write(ch);
    end;
end;典型的递归问题

Answer 2

一是自己写个function
第二中方法是用函数:
reverseStringfunction reverseString(const ATExt:string; Acount :integer):string;

Answer 3

一次读一个字符，然后在后面加以前读的字符不就可以了。另外Delphi有现成的函数

Answer 4

procedure reverse
begin
  read(ch);
  if( ch <> '') then
    begin
      reverse;
      write(ch);
    end;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  iLen, i: integer;
  s:string;
  c:char;
begin
  s := 'hello';
  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;
  ShowMessage(s);
end;

Answer 6

procedure reverse
begin
  read(ch);
  if( ch <> '') then
    begin
      reverse;
      write(ch);
    end;
end;

Answer 7

function ReverseString(s: string): string;
var
  i: integer;
  s2: string;
begin
  s2 := '';
  for i := 1 to Length(s) do
  begin
    s2 := s[i] + s2;
  end;  Result := s2;
end;

Answer 8

反转中文字符串的方法是：把string全改成widestring呵呵

Answer 9

procedure TForm1.Button1Click(Sender: TObject);
var p,q:PChar;
begin
    GetMem(p,20);
    p:='hello';
    q:=StrEnd(p);
    While q>=p do
    begin
      Dec(q);
      Label1.Caption:=Label1.Caption+q^;
    end;
    FreeMem(p);
end;