Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
ВнизОт!чень глупый вопрос Найти похожие ветки
← →
LamerOk (2004-08-31 00:17) [0]Как проварить- существует ли файл с указанным именем ????
← →
Palladin © (2004-08-31 00:20) [1]Может где то в просторах вселенной и существует...
← →
Алхимик © (2004-08-31 00:21) [2]FileExists + F1
← →
KilkennyCat © (2004-08-31 01:30) [3]
> Palladin © (31.08.04 00:20) [1]
не уверен - там, в просторах вселенной, уже давно отказались от файлов...
← →
Iconka © (2004-08-31 09:14) [4]
> там, в просторах вселенной, уже давно отказались от файлов...
Так же вполне возможно что их еще не придумали.
← →
Александр1 (2004-08-31 12:46) [5]Этот способ основан на поиске файла по заданному пути!
var s:string;
.....
s:=FileSearch("C:\Windows\System\R.def","");
if s<>"C:\Windows\System\R.def" then begin
rez:=MessageDlg("Файл не существует!",mtError,[mbOK],0);
Form1.Close;
end;
if s="C:\Windows\System\R.def" then begin
rez:=MessageDlg("Файл существует!",mtError,[mbOK],0);
Form1.Close;
end;
← →
MU © (2004-08-31 12:56) [6]>>Александр1 (31.08.04 12:46) [5]
Ну, блин, круто!!! :)))
Хоть бы пример скопировал из HELP"a
← →
_sulent © (2004-08-31 13:28) [7]if FileExists("c:\failo.txt") then Сучествует
else Не сучествует
← →
Алхимик © (2004-08-31 14:51) [8]
> then Сучествует
Что, простите делает?
← →
AlexKocharin (2004-09-01 10:58) [9]А чем вам не нравится
var f:file;ior:integer;
s:=findfirst(
ior:=ioresult;
if ior=0 then ShowMessage("Файл существует!!!")
else ShowMessage("Глюк № "+ior);
Способ DOS"овский, без использодания Мастдайных WinAPI;
← →
AlexKocharin (2004-09-01 11:00) [10]Извините, не то добавил...
var f:file;ior:integer;
assignfile(f,filename);
{$i-}
reset(f);
{$i+}
ior:=ioresult;
if ior=0 then ShowMessage("Файл существует!!!")
else ShowMessage("Глюк № "+ior);
← →
Ega23 © (2004-09-01 11:02) [11]Способ DOS"овский, без использодания Мастдайных WinAPI;
Можно и без WinAPI, на уровне ядра написать. Хотя один хрен API-прослойку делать предётся.
← →
Vovchik_A © (2004-09-01 11:04) [12]2AlexKocharin (01.09.04 10:58) [9]
Ну не пиши тогда под Windows.
2LamerOk (31.08.04 00:17)
Читать хелп на FileExists до полного понимания.
← →
Ega23 © (2004-09-01 11:08) [13]2 AlexKocharin (01.09.04 11:00) [10]
function FileExists(const FileName: string): Boolean;
begin
Result := FileAge(FileName) <> -1;
end;
function FileAge(const FileName: string): Integer;
var
Handle: THandle;
FindData: TWin32FindData;
LocalFileTime: TFileTime;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
if FileTimeToDosDateTime(LocalFileTime, LongRec(Result).Hi,
LongRec(Result).Lo) then Exit;
end;
end;
Result := -1;
end;
Зачем велосипед изобретать?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.033 c