delphi能实现吗？求全码/半码转换程序

Question

半码的时候，我用copy做字符串截取，因汉字占2字节，标点、数字占一字节，这样很容易把汉字取成乱码。所以我想把字符串转换成全码，再截取，这样标点和数字也都占2字节，就不会取错了。
delphi有这样的程序吗？
如果没有，哪位大哥能告诉我有什么好点儿的解决方案？procedure TForm1.Button3Click(Sender: TObject);
var
  s,s1,s2 : widestring;
begin
  s := '按,１时豆腐干环境看来';
  s1 := copy(s,1,6);
  s2 := copy(s,7,50);
  showmessage(s1);
  showmessage(s2);
end;

Answer 1

怎么判断一个字节是汉字、数字，还是字母？
比如：s := '按,１;（1占2位）
我想取s1为'按,１'s2为'时豆腐干环境看来'，怎样才知道该取5位还是6位？

Answer 2

//获取一个串的Len个字
Function GetWord(Var Str:String;Len:Integer):String;
Var
  WordCount,Index,StrLen:Integer;
Begin
  StrLen:=Length(Str);
  WordCount:=0;
  Index:=1;
  While Index<=StrLen Do
  Begin
    //判断字数是否大于Len个字
    If WordCount>=Len Then
    Begin
      Result:=Copy(Str,1,Index-1);
      //获取字符串前Len个字
      Str:=Copy(Str,Index,StrLen-Index+1);
      //退出函数
      Exit;
    End;
    //判断该字符是否是汉字还是普通字符
    If Str[Index]>#127 Then
      Index:=Index+2
    Else
      Index:=Index+1;
    //字数递增1  
    Inc(WordCount);
  End;
  //判断字数是否小于等于Len个字同时索引小于字符串长度
  If (WordCount<=Len) And (Index>=StrLen) Then
  Begin
    //返回原串
    Result:=Str;
    Str:='';
  End;
End;

Answer 3

谢谢，试试先。不过这也太复杂点儿了，有没有简单点的方法？有人说用widestring，那样全部都认为占一个字节吗？那对于原来定义的一些函数里的string参数，有影响吗？
盼详解

Answer 4

用widestring可以的，不过不是汉字占一个字节，而是不管是汉字还在英文字符都是占两个字节，所以用 Length 来计算长度时，就会string 不一样，不过其它的操作基本都是一样的

Answer 5

改成widestring，我用Length来计算长度，怎么70个汉字就是70？而string要占140个字节呢。

Answer 6

function MakeAllToWord(ws:WideString):WideString;//把WideString对齐。
var
     isword:Boolean;
     i:Integer;
begin
     isword:=True;
     Result:='';
     for i:=1 to length(ws) do
     begin
          if ord(ws[i])>160 then
          begin
               if not isword then
               begin
                    Result:=Result+' ';
                    isword:=True;
               end;
               Result:=Result+ws[i];
          end
          else
          begin
               isword:=not isword;
               Result:=Result+ws[i];
          end;
     end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
     ShowMessage(MakeAllToWord('我爱Delphi5.0工具!'));
end;