Можно ли в Делфи-программах открывать файлы отличные от .txt?

Тема в разделе "WASM.BEGINNERS", создана пользователем Morskoivolk, 19 фев 2007.

Статус темы:
Закрыта.
  1. Morskoivolk

    Morskoivolk New Member

    Публикаций:
    0
    Регистрация:
    30 янв 2007
    Сообщения:
    85
    Привет всем! столкнулся с такой проблемой: пишу прогу которая проверяет список определенных файлов с расширением .sgdt, и если нет какого либо файла то должна выскакивать ошибка. беда в том что прога проверяет все файлы....и даже те файлы которых у нее нету она все равно пишет что есть.
    Подскажите как обратиться к файлу, чтобы прога однозначно видела что он есть...
    Может быть существует какая-либо функция которая считывает имя файла, а не открывает его для чтения/записи/добавления и т.д.!
    Помогите плиззззззз, творческий процесс застопорился))))
     
  2. DelExe

    DelExe New Member

    Публикаций:
    0
    Регистрация:
    22 авг 2005
    Сообщения:
    165
    Morskoivolk
    Хоть Делфи, хоть ассемлбер: CreateFile или FindFirstFile/FindNextFile. Для начала думаю этого хватит.

    Это специально для экстрасенсов? Какая функция? Какой флаг?
     
  3. Morskoivolk

    Morskoivolk New Member

    Публикаций:
    0
    Регистрация:
    30 янв 2007
    Сообщения:
    85
    вот процедура обратки события на всякий случай....


    procedure TForm1.FormActivate(Sender: TObject);
    var
    fname : string[100];
    f : file of integer;
    res : integer;
    i:integer;
    path,d,k,k1:string[250];

    begin
    k:= 'F:\Installations\Durak 4.5 + соверницы\Соперницы_2\';
    for i:=1700 to 1998 do begin
    d:=intToStr(i);
    k1:='.sgdt';
    path:=k+d+k1;
    fname:= path;

    AssignFile(f,fname);
    {$I-}
    Reset(f);
    {$I+}

    res:=IOResult;
    if res <> 0
    then Label1.Caption:= IntToStr(i)+' - Такого файла еще нету';
    end;

    end;
    end.
     
  4. Morskoivolk

    Morskoivolk New Member

    Публикаций:
    0
    Регистрация:
    30 янв 2007
    Сообщения:
    85
    если не сложно можешь показать какой будет синтаксис при обращении к файлу (только на Делфи)
     
  5. DelExe

    DelExe New Member

    Публикаций:
    0
    Регистрация:
    22 авг 2005
    Сообщения:
    165
    if (GetFileAttributes(fname) <> INVALID_FILE_ATTRIBUTES) then ... значить есть.

    Забыл:
    Вместо != в Делфи <>
     
  6. Morskoivolk

    Morskoivolk New Member

    Публикаций:
    0
    Регистрация:
    30 янв 2007
    Сообщения:
    85
    DelExe
    Спасибо, щас запробую
     
  7. DelExe

    DelExe New Member

    Публикаций:
    0
    Регистрация:
    22 авг 2005
    Сообщения:
    165
    Morskoivolk
    А вообще посмотри здесь:
    hxxp://www.delphikingdom.com/asp/viewitem.asp?catalogid=1184
    FileExists - это попроще будет.
     
  8. Morskoivolk

    Morskoivolk New Member

    Публикаций:
    0
    Регистрация:
    30 янв 2007
    Сообщения:
    85
    DelExe
    во....помойму то что надо! еще раз спасибо! все...ушел в себя теперь, вернусь не скоро))))
     
  9. nitrotoluol

    nitrotoluol New Member

    Публикаций:
    0
    Регистрация:
    5 сен 2006
    Сообщения:
    848
    Morskoivolk
    ДЛЯ ЭТОГО ЕСТЬ СПЕЦИАЛЬНЫЕ ДЕЛЬФИЙСКИЕ ФОРУМЫ!!!!!! СКОРО ВАСМ В ПОМОЙКУ ПРЕВРАТИТСЯ И БУДУТ СПРАШИВАТЬ,

    Код (Text):
    1. LEA ESI, [STR1]
    2. LEA EDI, [STR2]
    3. ADD ESI,EDI
    4.  
    5. ПОЧЕМУ НЕ КЛЕЯТСЯ СТРОКИ? НА ВАСИКЕ КЛЕЯТСЯ, А АСМ - АЦЦТОЙ
    В ТОПКУ ТАКИЕ ТЕМЫ!!!!
     
  10. DelExe

    DelExe New Member

    Публикаций:
    0
    Регистрация:
    22 авг 2005
    Сообщения:
    165
    nitrotoluol
    Я согласен что этот сайт "Низкоуровневое программирование для дZeнствующих" - и Делфи не совсем уместно.
    С другой стороны - все с чего-то начинали. Лично я програмировать под Винь начинал именно с ОбджектПаскаля. И предубеждений особенных не имею, хотя... иногда передёргивает от кода на Делфи.
    Этот раздел - BEGINNERS. Особенно умных вопросов ждать не стоит.
    Просто вспомни - ты ведь не родился с книгой С++ под мышкой и дизассембером в мозгах. Всё это нужно было учить - и тебе, и мне, и другим людям.
    "Ужесточить фейс - контроль" - хорошая мысль, но гонять Дельфистов не стоит.
     
  11. IceStudent

    IceStudent Active Member

    Публикаций:
    0
    Регистрация:
    2 окт 2003
    Сообщения:
    4.300
    Адрес:
    Ukraine
    DelExe
    В целом согласен, но
    всё же стоит гонять тех, кто пишет не туда. Смысл сюда постить вопрос о делфи, если есть другие форумы? Почему на xpoint.ru не постят вопросы по асму? Почему не суются в rsdn.c++.applied с вопросами о делфи? Допустим, топикстартеров не волнует, куда они постят - это волнует модераторов. Но почему до них не доходит такая простая истина, что на соответствующем специализированном форуме они ответ получат на порядок быстрее, чем на любом другом (если на последнем вообще получат ответ).
     
  12. RamMerLabs

    RamMerLabs Well-Known Member

    Публикаций:
    0
    Регистрация:
    11 сен 2006
    Сообщения:
    1.426
    nitrotoluol
    зачёт!
    наконец-то кто-то ещё кроме меня начал гонять дельфистов! Засрали форум! А ведь скоро полезут не только в beginners, а в OS.KERNEL со своими вопросами: "Как в Delphi..." Гнать их надо, пока не расплодились!
     
  13. Nouzui

    Nouzui New Member

    Публикаций:
    0
    Регистрация:
    17 ноя 2006
    Сообщения:
    856
    Пустыня. В ней лев. Клетка. Поставлена задача посадить льва в эту клетку. Программист на C++ проектирует клетку таким образом, чтобы лев был ее составной частью. При инициализации клетки лев автоматически генерируется внутри. Программист на Аде говорит, что лев и клетка - это объекты разных типов и нечего морочить ему голову некорректными задачами. Программист на Delphi пишет во все конференции: "Народ, где взять компонент, который ищет в пустыне льва и помещает его в клетку?" :).
     
  14. MCNet

    MCNet New Member

    Публикаций:
    0
    Регистрация:
    23 ноя 2006
    Сообщения:
    74
    Nouzui
    В точку :)
     
  15. Aquila

    Aquila Самурай дзена

    Публикаций:
    0
    Регистрация:
    30 авг 2002
    Сообщения:
    1.467
    Адрес:
    Russia, Moscow
    Бред и ересь. Закрыто :).
     
Статус темы:
Закрыта.