delphi 反轉文字框的漢字

今天在群裡有朋友問怎麼反轉一個字串 。

如將字串123456798  變為987654321。

其實在delphi中已經提供了反轉函數 ReverseString，在使用這個函數之前必須要uses StrUtils。

 

但是漢字卻不能使用這個函數，下邊是反轉漢字的代碼。

 

 uses StrUtils;<br />procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> if Length(edit1.Text) div 2 = Length(WideString(edit1.Text)) then //判斷是否是漢字字串<br /> begin<br /> reversHZ(edit1.Text);<br /> end<br />else<br /> edit1.text := ReverseString(edit1.Text)<br />end;</p><p>procedure TForm1.reversHZ(s: string);<br />var ss: array of string;<br /> i, j: integer;<br />begin<br /> j := 1;<br /> SetLength(ss, length(edit1.Text) div 2);<br /> for i := 0 to High(ss) do<br /> begin<br /> ss[i] := copy(edit1.Text, j, 2);<br /> j := j + 2;<br /> end;<br /> edit1.Text := '';<br /> for i := high(ss) downto low(ss) do<br /> begin<br /> edit1.Text := edit1.Text + ss[i];<br /> end;<br />end;<br />