Check that file exists: Difference between revisions
Content added Content deleted
(→{{header|Ruby}}: Clarify meaning of File.exists?. The previous edit had stopped using File.exists? and started using File.file? and File.directory?.) |
(Added Delphi example) |
||
Line 338: | Line 338: | ||
verify(sep ~ "docs"); |
verify(sep ~ "docs"); |
||
}</lang> |
}</lang> |
||
=={{header|Delphi}}== |
|||
<lang Delphi>program EnsureFileExists; |
|||
{$APPTYPE CONSOLE} |
|||
uses |
|||
SysUtils; |
|||
begin |
|||
if FileExists('input.txt') then |
|||
Writeln('File "input.txt" exists.') |
|||
else |
|||
Writeln('File "input.txt" does not exist.'); |
|||
if FileExists('\input.txt') then |
|||
Writeln('File "\input.txt" exists.') |
|||
else |
|||
Writeln('File "\input.txt" does not exist.'); |
|||
if DirectoryExists('docs') then |
|||
Writeln('Directory "docs" exists.') |
|||
else |
|||
Writeln('Directory "docs" does not exists.'); |
|||
if DirectoryExists('\docs') then |
|||
Writeln('Directory "\docs" exists.') |
|||
else |
|||
Writeln('Directory "\docs" does not exists.'); |
|||
end.</lang> |
|||
=={{header|E}}== |
=={{header|E}}== |