方法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;