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

M

mmxxt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-09

• #1

如题，谢谢

 

桦

桦树皮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-09

• #2

写个函数把它倒过来不就完了吗？

 

C

caidao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-09

• #3

var
s1, s2: string;
n: integer;
begin
s1 := 'hello'; s2 := '';
for n := length(s1) downto 1 do s2 := s2 + s1[n];
end;

 

W

w128

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-09

• #4

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(ReverseString(edit1.Text));
end;

 

C

chen56

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-13

• #5

上次我们考vb就去这破题！