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

[walkmangood]

1、比如客户输入了DACB,在dbedit失去焦点的时候自动给排成ABCD。

2、如何写一个正则表达式，实现DACB=ABCD

[hongss]

变成ASCII码来排序？

[怪才]

正则也可以这么强大吗？

[notebook800]

正则不知道行不行，我用是冒泡排序

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;