汇编实现 一个处理字符串的功能

一共两个功能。用现在的代码速度太慢了，请大侠帮忙用汇编实现一下，不甚感激。

=======================================================
第一个：
var
  ss : String;
  tLen : integer;
begin
  ss := 'ab123cd';
  tLen := length(ss);
  if (tLen > 1) then begin
  ss := copy(ss,tLen,1) + copy(ss,1,(tLen - 1));
  end;
end;

运行结果是: dab123c
=======================================================

第二个：
var
  ss : String;
  tLen : integer;
begin
  ss := 'ab123cd';
  tLen := length(ss);
  if (tLen > 1) then begin
  ss := copy(ss,2,tLen) + copy(ss,1,1);
  end;
end;

运行结果是: b123cda
========================================================

哦，移位啊
可能不必使用汇编，只使用move就可以了

关注一下
帮你顶顶先