This archive contains FMANAGE.PAS, a TP6 unit containing some basic
file handling routines, that for some reason are missing in TP
itself. The routines are fairly elementary, but useful nevertheless.
Feel free to experiment, and to include them in whatever you like.
FMANAGE is not guarranteed to do anything whatsoever, nor is the unit
guarranteed safe. I will probably also not be supporting it.
function IsDirName (DirName: string): boolean;
function IsFileName (FileName: string): boolean;
function FileExist (FileName: string): Boolean;
function TextFileSize(FileName: String): LongInt;
procedure Fdel (FileName: string; Var ErrCode: byte);
procedure Frename (SourceFile,TargetFile: string; Var ErrCode: byte);
procedure Unique (Path: String; Var FileName: String);
Enjoy!
Eyal Doron
|