var PymstEnd:string;
i,str_len,selInt:Integer;
begin
selInt:=E_PYM.SelStart;
E_PYM.text:=UpperCase(E_PYM.text);
E_PYM.SelStart:=selInt ;
str_len:=Length(E_PYM.text);
PymstEnd:=UpperCase(E_PYM.text);
转载于:https://blog.51cto.com/kaixinbuliao/963949