var
s:string;
begin
s:=Edit1.Text;
insert( '1 ', S,Edit1.SelStart+1);
Edit1.text:=s;
end;
转载于:https://www.cnblogs.com/94YY/archive/2011/10/04/2199155.html
var
s:string;
begin
s:=Edit1.Text;
insert( '1 ', S,Edit1.SelStart+1);
Edit1.text:=s;
end;
转载于:https://www.cnblogs.com/94YY/archive/2011/10/04/2199155.html