2
*********************************************************************
3
$Id: sysansi.inc,v 1.2 2003/11/26 22:17:42 michael Exp $
4
Copyright (C) 2002 by Florian Klaempfl
6
This program is free software; you can redistribute it and/or modify
7
it under the terms of the GNU General Public License as published by
8
the Free Software Foundation; either version 2 of the License, or
9
(at your option) any later version.
11
This program is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
GNU General Public License for more details.
16
You should have received a copy of the GNU General Public License
17
along with this program; if not, write to the Free Software
18
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19
*********************************************************************
22
Function AnsiCompareFileName(const S1, S2: string): Integer;
25
If FileNameCaseSensitive then
26
Result:=AnsiCompareStr(S1,S2) // Compare case sensitive
28
Result:=AnsiCompareText(S1,S2); // Compare case insensitive. No MBCS yet.
31
Function SameFileName(const S1, S2: string): Boolean;
34
Result:=AnsiCompareFileName(S1,S2)=0;
37
Function AnsiLowerCaseFileName(const S: string): string;
40
Result:=AnsiLowerCase(S); // No locale support or MBCS yet.
43
Function AnsiUpperCaseFileName(const S: string): string;
46
Result:=AnsiUpperCase(S); // No locale support or MBCS yet.
49
Function AnsiPos(const Substr, S: string): Integer;
52
Result:=Pos(Substr,S); // No MBCS yet.
55
Function AnsiStrPos(Str, SubStr: PChar): PChar;
58
Result:=StrPos(Str,Substr);
61
Function AnsiStrRScan(Str: PChar; Chr: Char): PChar;
64
Result:=StrRScan(Str,Chr);
67
Function AnsiStrScan(Str: PChar; Chr: Char): PChar;
70
Result:=StrScan(Str,Chr);
75
Revision 1.2 2003/11/26 22:17:42 michael
76
+ Merged fixbranch fixes, missing in main branch
78
Revision 1.1 2003/10/06 21:01:06 peter
79
* moved classes unit to rtl
81
Revision 1.1 2002/10/07 19:43:24 florian
82
+ empty prototypes for the AnsiStr* multi byte functions added