paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Made SameFileName Public

Browse Source
This commit is contained in:
michael 2004-02-08 15:05:50 +00:00
parent 9843118433
commit 345e537e53
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/sysutils/finah.inc
View File

@ -42,10 +42,14 @@ function IsPathDelimiter(Const Path: string; Index: Integer): Boolean;
Procedure DoDirSeparators (Var FileName : String);
Function SetDirSeparators (Const FileName : String) : String;
Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
Function SameFileName(const S1, S2: string): Boolean;
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2004-02-08 15:05:50 michael
+ Made SameFileName Public
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.8 2002/10/22 21:57:54 michael