Скачать: CL | DM;

От!чень глупый вопрос   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.023 c