Четверг, 28.03.2024, 16:58 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Листинг функции FileExists (Играем на размер)
Листинг функции FileExists
Anton93Дата: Среда, 29.08.2012, 19:47 | Сообщение # 1
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
Доброго времени суток.
Ребят, у кого-нибудь есть листинг этой функции? из модуля SysUtils. Либо ее аналог, позволяющий проверять существование файла.
Пишу без подключаемых модулей, классов и объектов.
 
C@TДата: Среда, 29.08.2012, 20:30 | Сообщение # 2
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
учись нажимать на контрол и кликать на имя нужной тебе функции

P.S или загуглить в папке с делфи SysUtils.pas, и глянуть там исходник этой функции
 
Anton93Дата: Среда, 29.08.2012, 20:45 | Сообщение # 3
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
Quote (C@T)
учись нажимать на контрол и кликать на имя нужной тебе функции

в смысле? причем тут это? мне нужен листинг функции
Quote (C@T)
P.S или загуглить в папке с делфи SysUtils.pas, и глянуть там исходник этой функции

кэп, не нашел, иначе бы не обращался. дураку понятно что если модуль sysutils то она в его исходнике
 
Волк-1024Дата: Среда, 29.08.2012, 22:28 | Сообщение # 4
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
Ну элементарно же:

Моя реализация:

Code

function FileExists(FileName: PChar): Boolean;
var
     Handle: DWORD;
     FindData: TWin32FindData;
begin
     Result:=false;
     Handle:=FindFirstFile(FileName, FindData);
     if Handle<>INVALID_HANDLE_VALUE then
     begin
        FindClose(Handle);
        Result:=true;
     end;
end;


Quote
не нашел

Там всё есть. Плохо искал значит biggrin

Quote
причем тут это?


При том, что при клике попадешь на листинг данной функции. smile

Вот как она выглядит в SysUtils:



Выбирай biggrin


Сообщение отредактировал Волк-1024 - Среда, 29.08.2012, 22:34
 
Anton93Дата: Пятница, 31.08.2012, 13:00 | Сообщение # 5
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
спасибо wink плюс поставил
 
AndroidДата: Четверг, 29.12.2016, 13:51 | Сообщение # 6
Постоянный
Зарегистрирован: 13.12.2011
Группа: Пользователи
Сообщений: 100
Статус: Offline
Вот вариант еще:

Код

function FileExists( const FileName : KOLString ) : Boolean;
var FD: TFindFileData;
    LFT: TFileTime;
    Hi, Lo: Word;
    e: DWORD;
begin
  Result := FALSE;
  e := SetErrorMode( SEM_NOOPENFILEERRORBOX or SEM_FAILCRITICALERRORS );
  if Find_First( Filename, FD ) then
  begin
      if FD.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
      begin
          FileTimeToLocalFileTime( FD.ftLastWriteTime, LFT );
          if  FileTimeToDosDateTime( LFT, Hi, Lo ) then
              Result := TRUE;
      end;
      Find_Close( FD );
  end;
  SetErrorMode( e );
end;
 
delphicode » Delphi » Вирусология Delphi » Листинг функции FileExists (Играем на размер)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz