如何左右调换字符串

Question

例不固定字符串：￥123456
输出时变为：654321￥
请问高手如何解决

Answer 1

uses StrUtils.pasReverseString
功能 返回字符串AText的反序
说明 ReverseString('1234') = '4321'
例子 Edit3.Text := ReverseString(Edit1.Text);

Answer 2

function ReverseString(const AText: string): string;

Answer 3

//照着写一个，不难。
function ReverseString(const AText: WideString): WideString;
var
  I: Integer;
  P: PWideChar;
begin
  SetLength(Result, Length(AText));
  P := PWideChar(Result);
  for I := Length(AText) downto 1 do
  begin
    P^ := AText[I];
    Inc(P);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := ReverseString('￥123456');
end;