mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-15 23:29:50 +02:00
82 lines
2.1 KiB
ObjectPascal
82 lines
2.1 KiB
ObjectPascal
{
|
|
/***************************************************************************
|
|
filectrl.pp
|
|
-------------------
|
|
Component Library File Controls
|
|
Initial Revision : Sun Apr 23 18:30:00 PDT 2000
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
}
|
|
|
|
{
|
|
@author(DirectoryExists - Curtis White <cwhite@aracnet.com>)
|
|
@created(23-Apr-2000)
|
|
@lastmod(23-Apr-2000)
|
|
|
|
This unit contains file and directory controls and supporting handling functions.
|
|
}
|
|
|
|
unit filectrl;
|
|
|
|
//{$mode delphi}
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
{$ifdef Trace}
|
|
{$ASSERTIONS ON}
|
|
{$endif}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
|
|
{
|
|
@abstract (Function to determine if a directory exists or not.)
|
|
Introduced by Curtis White
|
|
Currently maintained by Curtis White
|
|
}
|
|
function DirectoryExists(const Name: String): Boolean;
|
|
|
|
|
|
implementation
|
|
|
|
{$I filectrl.inc}
|
|
|
|
|
|
initialization
|
|
|
|
finalization
|
|
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.2 2001/06/15 10:31:05 lazarus
|
|
MG: set longstrings as default
|
|
|
|
Revision 1.1 2000/07/13 10:28:23 michael
|
|
+ Initial import
|
|
|
|
Revision 1.2 2000/05/09 00:00:33 lazarus
|
|
Updated my email address in the documentation to the current one. Also
|
|
removed email references in comments that were not @author comments to
|
|
fix problems with the documentation produced by pasdoc. CAW
|
|
|
|
Revision 1.1 2000/04/24 05:03:25 lazarus
|
|
Added filectrl unit for DirectoryExists function. CAW
|
|
|
|
|
|
}
|
|
|