Условие

[[Smarik]]

Нужно такое условие:
Если файл создался тогда вывод сообщения 1 иначе сообщение 2

filename:=Surname; 
Assign(document,'DOSSIER\'+filename+'.txt'); 
ReWrite(document); 
Writeln(document,'Досье'); 
WriteLn(document,'Имя:',Name); 
WriteLn(document,'Фамилия:',Surname); 
WriteLn(document,'Дата рождения:',Date); 
WriteLn(document,'Страна:',Country); 
WriteLn(document,'Город:',City); 
WriteLn(document,'Улица:',Street); 
WriteLn(document,'Телефон:',Phone); 
WriteLn(document,'Работа:',Work); 
WriteLn(document,'Хобби:',Hobbies); 
Close(document); 
{$I-} 
Reset(document); 
{$I+} 
if IOresult=0 then writeln('Информация сохранена') else writeln('Информация 
не сохоанена');

Почему не работает?
Компилятор ошибок не выдает и программа работает, но условие не выполняется и сообщения на екран не выводятся

[Карась]

Хм.... Только что написал примерчик. Всё работает.
Попробуй брекпоинты поставить. На экран должно выводиться в любом случае...

Мой примерчик:

Var NameFile : TextFile;

Begin
AssignFile(NameFile, 'Test.txt');
ReWrite(NameFile);
Randomize;
Write (NameFile, 'Проверка  ');
Write (NameFile, IntTostr(Random(10)));
CloseFile(NameFile);
Readln;
{$i-}
Reset(NameFile);
{$i+}
If IOresult = 0 then
    Writeln ('File creat? Yes')
  else
    Writeln ('File creat? No');
Readln;
End.

[[Smarik]]

Понял в чем проблема, после заполнения файла поставил простой вывод сообщения тоже не увидел, программа не находит файл и закрывает программу принудительно чтобы выдать ошибку, у меня файл сохраняется в другую папку не в корне программы, где то нужно указывать адрес? Или что нибудь другое подскажите?

[Карась]

Путь к файлу указывается в строке:

Assign(document,'DOSSIER\'+filename+'.txt');

Если файла нет, то он создаётся. Если есть, то он перезаписывается..
При указании несуществующего каталога или пути программа должна вывалится с ошибкой... покрайней мере это должно произойти при компиляции..

Для начала надо определить путь откуда запустилась прога.
За это отвечает функция ParamSTR(0). Параметр в скобочках указывает что функция должна вернуть полный путь.
Этот путь тебе надо укоротить под свои нужды.
За это отвечает ещё пару функций который можно глянуть тут:
http://programmersforum.ru/showthrea...F2%E0%EB%EE%E3

В итоге:

AssignFile(NameFile, ExtractFileDir (ParamSTR(0)) + '\Test.txt')

D:\Borland\Delphi7\Projects\Работа с файлами\Test.txt

Теперь программа сама определяет где сидит прога и создаёт фаил в своём корешке.

Впринципе можно написать просто
AssignFile(NameFile,'1\Test.txt');

Тогда фаил будет создан в корне, в папке 1. Но всёже правильнее принудительно узнавать полный путь. Незнаю почему, но говорят что надо.