函数与过程
<p>函数有返回值，过程无返回值</p>
<h3>函数</h3>
<h4>数学类函数</h4>
<h5>绝对值函数：</h5>
<p>Abs(x)</p>
<h5>取整数函数:</h5>
<p>格式1:Trunc(x):Int64;返回X整数部分，类型是Int64。（舍去小数）
格式2：Roun(x):Int64;返回x的小数部分四舍五入后的整数。（进位小数）
格式3：Int(x):Extended;返回X整数部分，类型是Extended。
例:
X1 :=Trunc(-2.5);-2赋给x1
X2 :=Round(-2.51);-3
X3 :=Int(-2.5);-2</p>
<h5>取小数函数</h5>
<p>Frac(X):Extended;例：x:=Frac(-2.5);x值时-0.5。</p>
<h5>平方函数</h5>
<p>Sqr(x):Extended;X是实数
例：X := Sqr(-2.5)；x值6.25。</p>
<h5>平方根函数</h5>
<p>Sqrt(x):Extended;x为非负实数
例：x:=Sqrt(4);//X值2.0。</p>
<h5>随机函数</h5>
<p>Random(x);返回大于等于0小于x的随机整数。</p>
<h4>字符类函数</h4>
<h5>大小写转换函数</h5>
<p>LowerCase(s):String;
UpperCase(s):String;</p>
<h5>比较字符串大小函数</h5>
<p><strong>CompareStr</strong>(s1,s2):Integer;
从前往后语句ASCII码比较。若前大于后返回值大于0；若前小于后，比较终止返回值小于0；全部一样返回值等于0。
<strong>CompareText</strong>(s1,s2:String):Integer;
本函数不区分大小写。</p>
<h5>求字符串长度的函数</h5>
<p>Length(s):Integer;</p>
<h5>查找位置函数</h5>
<p>Pos(s1,s2):Integer;
若S2中存在s1，返回0。
例：x:=Pos('bc','abcd');//x值为2。</p>
<h5>合合并字符串的过程</h5>
<p>AppendStr(var s1,Const s2);
相当于S1=S1+S2,但是执行效率高。</p>
<h5>截取字符串函数</h5>
<p>Copy(Str,m,n):String;
从第m开始返回长度为n的字符串，并作函数返回值。
若m大于str长度，返回一个空串；
若m个字符到str结尾不足n，则返回其间的所有字符
例：s1:=Copy('IloveFishc！',6,5);//返回Fishc
s3:=Copy('IloveFishc！',1,1)
s4:=Copy('IloveFishc！',0,1)两个返回一样。</p>
<p>删除子字符串过程
Delete(str,m,n)
插入子字符串过程
Insert(str1,str,k)
将str1插入到str中的第k个字符处。</p>
<h4>日期时间类函数</h4>
<h4>顺序类型函数</h4>
<h3>过程</h3>