Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.16;
Скачать: CL | DM;

Вниз

FileExists   Найти похожие ветки 

 
RakoT ©   (2007-08-19 13:29) [0]

Здравствуйте! Существует ли аналог данной функции?


 
TUser ©   (2007-08-19 13:43) [1]

А чем этот аналог должен от нее отличаться?


 
DrPass ©   (2007-08-19 13:58) [2]


> Существует ли аналог данной функции?

Проходишь в школе тему "синонимы в английском языке"?


 
RakoT ©   (2007-08-19 14:05) [3]

Зачем нужен? Затем что Убрать SysUtils из uses т.к. размер файла для меня имеет значение


 
DrPass ©   (2007-08-19 14:07) [4]


> Затем что Убрать SysUtils из uses т.к. размер файла для
> меня имеет значение

Ты считаешь, что если вместо SysUtils подставить модуль с аналогом этой функции, твой файл уменьшится?


 
Германн ©   (2007-08-19 14:15) [5]


> RakoT ©   (19.08.07 14:05) [3]
>
> Зачем нужен? Затем что Убрать SysUtils из uses т.к. размер
> файла для меня имеет значение
>

Так убери, кто запрещает. А реализацию FileExists скопируй.


 
Leonid Troyanovsky ©   (2007-08-19 15:50) [6]


> RakoT ©   (19.08.07 14:05) [3]

> Зачем нужен?

Не нужен, конечно.
Убери совсем, и ничего не потребуется.

--
Regards, LVT.


 
grisme ©   (2007-08-19 17:01) [7]

FileExists успешно находится в SysUtils и успешно выдирается с последующей зачисткой директив и части кода под линух, если конечно он не входит в число ос для твоей программы


 
antonn ©   (2007-08-19 20:53) [8]

const EmptyString: string = "";

procedure EAX2PChar;
asm
       TEST     EAX, EAX
       JNZ      @@exit
       MOV      EAX, offset[EmptyString]
@@exit:
end;

function FileExists(const FileName: string): Boolean;
const size_TWin32FindData = sizeof(TWin32FindData);
asm
       CALL     EAX2PChar
       PUSH     EAX
       CALL     GetFileAttributes
       INC      EAX
       JZ       @@exit
       DEC      EAX
       {$IFDEF PARANOIA}
       DB $24, FILE_ATTRIBUTE_DIRECTORY
       {$ELSE}
       AND      AL, FILE_ATTRIBUTE_DIRECTORY
       {$ENDIF}
       SETZ     AL
@@exit:
end;

function DirectoryExists(const Name: string): Boolean;
asm
       PUSH     EAX
       CALL     GetFileAttributes
       INC      EAX
       JZ       @@exit
       DEC      EAX
       {$IFDEF PARANOIA}
       DB $24, FILE_ATTRIBUTE_DIRECTORY
       {$ELSE}
       AND      AL, FILE_ATTRIBUTE_DIRECTORY
       {$ENDIF}
       SETNZ    AL
@@exit:
end;

требует модуль Виндовзь


 
MetalFan ©   (2007-08-19 22:36) [9]

а зачем убираешь SysUtils? от него "груза" мало, а вот обработка исключений отвалится...


 
Проснулся   (2007-08-19 23:33) [10]

Издевательство! см. GetFileAttributes


 
Игорь Шевченко ©   (2007-08-20 11:02) [11]

Параноики


 
clickmaker ©   (2007-08-20 11:53) [12]


> Существует ли аналог данной функции?

FindFirstFile


 
DVM ©   (2007-08-20 11:56) [13]

function FileExists(const FileName: string) : boolean;
var
 Attr: Integer;
begin
 Attr := GetFileAttributes(PChar(FileName));
 Result := (Attr <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Attr = 0);
end;


 
Leonid Troyanovsky ©   (2007-08-20 14:55) [14]


> clickmaker ©   (20.08.07 11:53) [12]


> DVM ©   (20.08.07 11:56) [13]

Не нужен ни аналог, ни прототип.
See also [11] ;)

--
Regards, LVT.



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

Текущий архив: 2007.09.16;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.029 c
15-1185530750
Vlad Oshin
2007-07-27 14:05
2007.09.16
шахматы. Как сходить?


15-1187538724
Piter
2007-08-19 19:52
2007.09.16
Очень классная иллюзия


15-1187358690
Kerk
2007-08-17 17:51
2007.09.16
Спекулянты и ОМОН


2-1188077785
Popay
2007-08-26 01:36
2007.09.16
зависон SendMessage


15-1186923739
textExpanser
2007-08-12 17:02
2007.09.16
Сверхбыстрое хэширование (hashing)