方法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;
采用EnigmaVirtualBox制作单文件便携版只是兴趣爱好，在WES7环境中制作，不保证全系统下正常，随缘随心随性。 温馨提醒建议在SandBoxie中测试https://www.lanzous.com/iatkifc
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。