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

Параноики

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

FindFirstFile

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;

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

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

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

--
Regards, LVT.

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