- 博客(1)
- 收藏
- 关注
RSS订阅原创 做一个返回数组的函数(例子)
type TArray = array of string;procedure TrimChar(s:string;var sRet : TArray); function CountChar(s:string; c:char):integer; var i : integer; begin result := 0; for i := 1 to Length(s) d
2003-12-26 11:41:00
831
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人