推荐订阅源

方法1：通过两个控件中转实现（笨）

procedure TForm3.Edit1Change(Sender: TObject);
begin
  if Length(Edit1.Text) = 2 then
  begin
    Edit2.Text := Edit1.Text + Edit2.Text;
    Edit1.Clear;
  end;
end;

　　方法2：按字符串数组拆成一段段的来实现：

procedure TForm3.HBDYXKeyPress(Sender: TObject; var Key: Char);
var
  strs: TStrings;
  i: Integer;
  T1: string;
begin
  if Key = #13 then
  begin
    strs := TStringList.Create;
    strs.CommaText := HBDYX.Text;
    for i := strs.Count - 1 downto 0 do
    begin
//ShowMessage(strs[i]);
      T1 := T1 + strs[i] + ' ';
    end;
    HBDYX.Text := T1;
  end;
end;

方法3：将当前整个字符串倒序　

procedure TForm3.HBDYXKeyPress(Sender: TObject; var Key: Char);
var
  strs: TStrings;
  i: Integer;
  T1: string;
begin
  if Key = #13 then
  begin
    strs := TStringList.Create;
    strs.CommaText := HBDYX.Text;
    for i := strs.Count - 1 downto 0 do
    begin
//ShowMessage(strs[i]);
      T1 := T1 + strs[i] + ' ';
    end;
    HBDYX.Text := T1;
  end;
end;