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

[mmxxt]

如题，谢谢

[pwzhu666]

楼上的对哦

[wujunwei]

一是自己写个function
第二中方法是用函数:
reverseString

function reverseString(const ATExt:string; Acount :integer):string;

[「已注销」]

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

[mmxxt]

up

[zhboy]

for downto do

[qwer1234333]

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

[whqcfp]

我只能 UP 了！

[txmjs]

建议自己写一个函数

[hch_45]

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;

[sunnyoo]

用数组存储这个字符串，再用循环从后向前存储在另一个数组中，再显示。

[太空11]

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

[tjff2000]

实现方法多多。

[vavyboyleon]

字符入栈吗

[syl5005]

这个实现方法很多，您可以参考以上的方法，我的方法和上面的类似就不拿出来现丑了

[popmailzjw]

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;

[gyf]

创建一个字符串,每次输入一个字符放在开头

[wanwangzhiwang]

楼上各位的方法好像只能反转英文字符，如果是中文的就不行了！

[liyangyao970]

大家都讲了，我就没得说了，哈哈

[wanwangzhiwang]

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

呵呵

[tjff2000]

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;