1、function Comparastr (const s1,s2: string):Integer;

比较两字符串，区别大小写；

注:由于此函数操作是基于每个条件的8位序数值，所以返回的结果，如果 s1

众所周知，DELPHI语言不区分大小写，但是有的时候，在设计密码登录时为加强安全性而需要区分；

funcgtion checkpassword(s1:string):boolean;

begin

Result := CompareStr(s1,'Joe')=0 ;

end;

有一个类似的函数

function SameText (const s1,s2:string):boolean;

比较两串字符串（不区分大小写），相同就返回 true 反之返回 false;

==============================================================

2、function Concat (s1[,s2,...,sn]:string):string;

将所有参数组成字符串；

通过我们使用 + 来边连接字串符，但是有的时候，Concat 可以更加的直观，特别是字符串段落数相对较多时；

var

s1,s2 : string;

ss : string;

begin

ss := '铅笔';

s1 := '你确定要出售 '+ss+'吗？’;

s2 := Concat('你确定要出售 ',ss,'吗？’);

end;

==============================================================

3、function PosEx (const SubStr,S: string;Offset:Cardinal =1): integer;

是 Pos 函数的扩展，与Pos不同的是： Offset 表示从哪一个位置开始检索 SubStr ;

所属单元：StrUtils

Showmessge(inttostr(PosEx('我','我是人我是中国人',3))) ; {结果为：7}

比如，还可以用在对 电邮地址的判断等；

==============================================================

4、function QuotedStr (const S:string):string;

用 引号 括上一段字符串；

在数据库操作的写 SQL 语句查询时，使用此函数将会少很多麻烦；

==============================================================

5、function ExtractStrings (Separators,WhiteSpace:TSysCharSet; Content:PChar; string:TStrings):Integer;

Separators : 用于指定分隔字符串的分隔符；

WhiteSpace : 分解字符串时的起始位置的字符串，可忽略；

Content : 要分解的字符串;

Strings : 存放分解后的字符列表；

示例:

procedure TForm1.btn1Click(Sender: TObject); var L : TStringList; s : string; n : Integer;begin s :='asdf,dfg,123,234'; L := TStringList.Create; try n := ExtractStrings([','],[],PChar(s),L); ShowMessageFmt('%d'+#13#10+'%s',[n,l.Text]); finally L.Free; end;end;

结果：

4
asdf

dfg

123

234

==============================================================

6、function StrLComp (const str1,str2:PChar; MaxLen:Cardinal):Integer;

str1 , str2 两个字符串指针；

MaxLen 比较的长度 ；

==============================================================

7、CompareValue

function CompareValue (const A, B: Extended; Epsilon: Extended = 0): TValueRelationship; overload;
function CompareValue (const A, B: Double; Epsilon: Double = 0): TValueRelationship; overload;
function CompareValue (const A, B: Single; Epsilon: Single = 0): TValueRelationship; overload;
function CompareValue (const A, B: Integer): TValueRelationship; overload;
function CompareValue (const A, B: Int64): TValueRelationship; overload;

uses Math

比较两个值之间的关系

如 A 小于 B 则返回 -1 ，如果相等则为 0 ，如果 A>B 则返回为 1；

==============================================================

8、procedure DivMod (Dividend: Cardinal; Divisor: Word; var Result, Remainder: Word);

Uses Math

Dividend 整型表达式，表示被除数；

Divisor 整型表达式，表示除数

Result 用于保存商；

Remainder 用于保存余数；

==============================================================

9、function Frac (const X: Extended): Extended;

返回一个实数的小数部分

==============================================================

10、function ForceDirectories (Dir: string): Boolean;

在指定的目录中，创建一个目录

var

s: string;

begin

s :='C:\a';

if ForceDirectories(s) then showmessage('成功');

end;

==============================================================

11、function CreateMessageDialog (const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; DefaultButton: TMsgDlgBtn): TForm;

在开发程序时，有的消息对话框是经常使用的，为了提供效率，使用此函数来创建一个对话框，然后用 showmodal（只能使用此方法 ） 方法来显示；

var Form1: TForm1; frmmsg :TForm; implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin frmmsg := CreateMessageDialog('hint',mtInformation ,[mbYes,mbNo ]) ;end; procedure TForm1.btn1Click(Sender: TObject);begin if frmmsg.ShowModal =IDYES then ShowMessage('yes');end;

==============================================================

12、function CreateClassID : string;
uses ComObj
生成一个 CLSID了字符串,产品一个GUID

function GetGUID: ShortString;
var
t:TGUID ;
begin
OLECheck(CreateGUID(t));
Result := CreateClassID ;
end;

==============================================================