var
  i: integer;
  sTmp: string;
begin
  s := 'abcd你ee好kk嗎?';
  i := 1;
  while i <= Length(s) do
    if IsDBCSLeadByte(Byte(s[i])) then
    begin
      Memo1.Lines.Add(s[i] + s[i+1]);
      Inc(i, 2);
    end
    else
    begin
      Memo1.Lines.Add(s[i]);
      Inc(i);
    end;
end;

引言: 2.每個字元如a/b/好..等等， 有何function找出其相應的序號呢如A=65,B=66，好=""呢? 3.找出後又有何function回復原來的字串呢? 如fucntion(65) = A, function("") = 好..等等 請各delphi好友伸出緩手，小弟為初學者，故有此問 平常心活著

用 Chr 與 Ord 兩個函式 例: Ord(A) => 65, Chr(65) => A; -- He just never quits.