dbedit输入英文字母排序的问题

Question

1、比如客户输入了DACB,在dbedit失去焦点的时候自动给排成ABCD。2、如何写一个正则表达式，实现DACB=ABCD

Answer 1

正则不知道行不行，我用是冒泡排序
var
   ls_Text: string;
   i, j: integer;
   lc_Char: Char;
begin
   ls_Text := 'DACB';   for i := length(ls_Text) - 1 downto 1 do
   begin
      for j := 1 to i do
      begin
         if Ord(ls_Text[j]) > Ord(ls_Text[j + 1]) then
         begin
            lc_Char := ls_Text[j];
            ls_Text[j] := ls_Text[j + 1];
            ls_Text[j + 1] := lc_Char;
         end;
      end;
   end;   ShowMessage(ls_Text);
end;