function AnsiStartsStr(const ASubText, AText: string): Boolean; begin Result := AnsiSameStr(ASubText, Copy(AText, 1, Length(ASubText))); end;
ASubText 是 ‘‘ 时，也是 返回 True。因为
Copy(AText, 1, Length(ASubText)) 返回 ‘‘原文：http://www.cnblogs.com/CodeGear/p/4591073.html