Как перевернуть строку в delphi?

1
2
3
4
5
6
7
8

uses StrUtils;
...
var MyString: string;
begin
	MyString:= 'Привет';
	MyString:= ReverseString(MyString);
	ShowMessage(MyString);
end;

1
2
3
4
5
6
7

var
  str: string;
begin
  str := 'Привет, мир!';
  str := ReverseString(str);
  ShowMessage(str); // !рим ,тевирП
end;

1
2
3
4
5
6
7
8
9

var
  str, newStr: string;
  i: Integer;
begin
  str := 'Привет, мир!';
  for i := Length(str) downto 1 do
    newStr := newStr + str[i];
  ShowMessage(newStr); // !рим ,тевирП
end;

1
2
3
4
5
6
7
8
9

var
  str, newStr: string;
  i: Integer;
begin
  str := 'Привет, мир!';
  for i := Length(str) downto 1 do
    newStr := newStr + Copy(str, i, 1);
  ShowMessage(newStr); // !рим ,тевирП
end;