会用Delphi做反顺序工具的进 AA BB CC反为CC BB AA 50分求

来源:百度知道 编辑:UC知道 时间:2024/07/04 09:10:27
例外我要把一段16进制的AA BB CC DD EE FF转换为FF EE DD CC BB AA 会做这样工具的请说下~~ 50分求 因为不知道有没人会回答 所以先不给分 ==再追加
是把最后免的2个字符反过来

用此函数,一句即可做到,反转字符串:
【函数】:
function ReverseString(const AText: string): String; $StrUtils.pas
功能 返回字符串AText的反序
说明 ReverseString('ABC') = 'CBA'
参考 function System.SetLength
例子 Edit3.Text := ReverseString(Edit1.Text);
【注意】:需要在单元的uses 中添加"StrUtils";(引用这个单元)
【根据你的意思】:
ReverseString('AA BB CC DD EE FF') = 'FF EE DD CC BB AA '
(打开Delphi试下就知道了)

嘿嘿
你这是16进制的字符串形式 还是 字节形式
如果是字符串:
//把字符串反转函数,返回的是输入参数的反转形式
Function Str_lefttoright(str: String): String;
Var
i, count1: integer;
tempstr, tempstr1: String;
Begin
If str = ' ' Then
Begin
result := str;
exit;
End;
If trim(str) = '' Then
Begin
result := '';
exit;
End;
count1 := length(str);
For i := 1 To count1 Do
Begin
t