Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2008, 12:39   #1
Deathwatcher
Пользователь
 
Регистрация: 12.11.2008
Сообщений: 11
Печаль один файл, две программы...

Господа... я опять с дурацким вопросом...

Я создаю файл с записями. А дальше начинаются чудеса.
Если открывать файл программой, которая его создавала, то при куску кода
Код:
i:=0;
Assignfile (Myfile, 'voprosiki.ggt');
reset(myfile);
while not Eof(myfile) do
    begin
       read(myfile,quest[i]);
       if quest[i].index<>0 then
       listbox1.Items.Add('Вопрос №'+IntToStr(quest[i].index));    //index - порядковый номер вопроса. Нулевой вопрос содержит инфу о тесте
       inc(i);
    end;
В листбоксе появляется список из 5 вопросов. Следующего вида.

Вопрос №1
Вопрос №2
Вопрос №3
Вопрос №4
Вопрос №5

Именно таким я его и создавал. Если открыть его второй программой, то при идентичном куске кода список пуст!!! т.е. если снять проверку на нулевой индекс, получится

Вопрос №0
Вопрос №0
Вопрос №0
Вопрос №0
Вопрос №0
Вопрос №0

Далее чудеса продолжаются. Если второй прогой подредактировать файл (ответить на вопросы и дозаписать в этот файл ответы), то вторая прога будет отображать список из 10 пунктов, а первая прога выдаст точно такой же список, как и до редактирования!!!

Поясните, пожалуйста... что ж такое-то (((
Deathwatcher вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сохранение нескольких излбражений в один файл.. как? IGWI Мультимедиа в Delphi 7 18.11.2008 23:16
Две программы Манжосов Денис :) Софт 2 26.04.2008 12:29
Объединить в один файл asale Microsoft Office Excel 2 12.02.2008 13:18