Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Поиск файла   Найти похожие ветки 

 
Socol   (2002-01-18 07:14) [0]

Здраствуйте!
Каким образом можно проверить есть ил файл на диске?
Если есть то переменная а =1
Если нет то 0
Спасибо всем кто ответил!


 
mart   (2002-01-18 08:05) [1]

Sysutils

Category

file management routines

function FileExists(const FileName: string): Boolean;

Description

FileExists returns True if the file specified by FileName exists. If the file does not exist, FileExists returns False.


 
Dmitry-corp   (2002-01-18 11:06) [2]

var a: integer;
begin
if FileExists("C;\123.txt")= True then
a:=1;
else
a:=0;
end;


 
Polevi   (2002-01-18 11:25) [3]

a:=Integer(FileExists("C;\123.txt"));


 
Ынс   (2002-01-18 12:00) [4]

LPSTR FindFileInTree(LPSTR szFile, LPSTR szDir, LPSTR szBuf, int cbBuf);

FindFileInTree searches for the specified file in a directory and its subdirectories.

Arguments

szFile

Specifies the name of the file you are trying to locate.

szDir

Specifies the top-level directory of the tree structure you want to search.

szBuf

Points to the destination buffer that will receive the path string.

cbBuf

Length, in bytes, of the destination buffer.

Return Value

The return value is the full path of the first instance of the file. If the file isn"t found, the return value is an empty string.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
1-8812
myportal
2002-01-19 10:00
2002.02.04
Как извлеч ресурс из программы в отдельный файл?


1-8807
AlexHH
2002-01-15 17:31
2002.02.04
Существует ли аналог функции MEMCPY в Delphi?


1-8866
tovSuhov
2002-01-15 10:58
2002.02.04
TIniFile в Windows2000...


1-8906
tovSuhov
2002-01-17 10:44
2002.02.04
Вот такая проблема...


1-8881
VladimirL
2002-01-15 18:47
2002.02.04
Во время работы не меняются данные на форме





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский