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

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.064 c