我是谁

--返回选中项值 function GetLstBoxValue(LstBox: TListBox): String; begin   Result:='';   Result:=LstBox.Items[LstBox.ItemIndex]; end; --返回选中项节点 function GetLstBoxIndex(LstBox: TListBox): Integer; beg

CREATE FUNCTION dbo.F_Get_STR (@STR VARCHAR(100)) RETURNS VARCHAR(100) AS BEGIN     WHILE PATINDEX('%[^a-z,0-9]%',@STR)>0           BEGIN                 set @s=stuff(@s,patindex('%[^a-z]%',@s)