function CompareText(const S1, S2: string): Integer;
以前都是用=，重来不用函数，也许用函数可读性强？可代码重用性（不同语言）是否就不强了呢？我的意思是不能直接复制代码直接使用？不过现在打字的时候，又感觉要想在不同语言中重用代码好像意义不大，一般都需要重写充分利用语言特性。
此函数在字符串完全相等时，就返回0，
逐个字符比较两个字符串（不区分大小写），如果S1大于S2，则返回，大于的字符数量(正数），如果S1小于S2，则返回S2中小出的字符数量（负数）
注：连续的。