关于edit显示的有关问题
关于edit显示的问题
输入Edit控件里的数字自动改变成两个数字为一组，类似十六进制的数字，
例如：
输入123456 在控件里显示 12 34 56 ，
或者简单的说 如何让Edit控件里的数字两个为一组，中间是空格，困扰我好久了。
只有24分，全部分了。
------解决方案--------------------
输入Edit控件里的数字自动改变成两个数字为一组，类似十六进制的数字，
例如：
输入123456 在控件里显示 12 34 56 ，
或者简单的说 如何让Edit控件里的数字两个为一组，中间是空格，困扰我好久了。
只有24分，全部分了。
------解决方案--------------------
- Delphi(Pascal) code
//我来完善一下
function TForm1.SplitEditText(aText: string): string;
var
i, j: Integer;
//j变量可以保证从右数满足两位一空格
begin
j := 0;
for i := Length(aText) + 1 downto 2 do
begin
Inc(j);
if (j Mod 2 <> 0) then
Insert(' ', aText, i);
end;
Result := aText;
end;