fpc/rtl/objpas/sysutils/sysansih.inc
Jonas Maebe 349a682596 * corrected license header from GPL to LGPL + static linking exception like
the rest of the FPC RTL, after confirming with the original author that
    this is ok (mantis #22879)

git-svn-id: trunk@22413 -
2012-09-17 12:12:42 +00:00

27 lines
1.1 KiB
PHP

{
*********************************************************************
Copyright (C) 2002 by Florian Klaempfl
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
function AnsiCompareFileName(const S1, S2 : string) : SizeInt;
function AnsiLowerCaseFileName(const s : string) : string;
function AnsiUpperCaseFileName(const s : string) : string;
function AnsiPos(const substr,s : string) : SizeInt;
function AnsiStrPos(str,substr : PChar) : PChar;
function AnsiStrRScan(Str : PChar;Chr : Char) : PChar;
function AnsiStrScan(Str : PChar;Chr: Char) : PChar;
function HashName(Name: PAnsiChar): LongWord;
function BytesOf(const Val: RawByteString): TBytes;
function BytesOf(const Val: AnsiChar): TBytes;
Function CharInSet(Ch: AnsiChar;Const CSet : TSysCharSet) : Boolean;