home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1992
/
number1
/
testfile.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-12-30
|
262b
|
15 lines
PROGRAM Test;
USES
DOS, CRT;
VAR
FileToTest : STRING;
BEGIN
FileToTest := 'TEST.PAS';
IF FSearch(FileToTest,'') = '' THEN
WRITELN('File '+FileToTest+' does not exist.')
ELSE
WRITELN('File '+FileToTest+' exists.');
END.