Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с файлами в Паскале, Чтение из файла, запись в файл 
:(
    Опции темы
zetxi815eb
Дата 24.1.2007, 06:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 17.1.2007

Репутация: нет
Всего: нет



Задача такая. Прочитать из файла input.txt числовую последовательность. Преобразовать и вывести её в файл output.txt . Вот кусок этого кода: 
Код

assign (tin,'input.txt');
reset (tin);
assign (tout,'output.txt');
rewrite (tout);



Проблема вот в чём. Он ищет файлы input.txt  и  output.txt не в папке, где лежит файл с программой с расширением *.pas и куда компилируется файл, а в папке tp7\bin. Если их там нет, компилятор выдаёт ошибку File not found.

Как настроить компилятор, чтоб он искал эти файлы там, куда он компилирует программу??? Заранее спасибо!
PM MAIL   Вверх
LesnoyChelovek
Дата 24.1.2007, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


странник Интернета
**


Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: нет
Всего: 10



Полный путь укажи к файлам.


--------------------
Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo
PM MAIL   Вверх
zetxi815eb
Дата 24.1.2007, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 17.1.2007

Репутация: нет
Всего: нет



LesnoyChelovek, можно, но не хотелось бы. В универе компилятор работает правильно, значит мой просто настроить надо.
PM MAIL   Вверх
Zero
Дата 24.1.2007, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



Разные настройки путей: Options->Directories но вполне возможно в разных версиях паскаля это место настроек в другом месте.
PM MAIL ICQ   Вверх
volvo877
Дата 25.1.2007, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Цитата(Zero @  24.1.2007,  20:40 Найти цитируемый пост)
Разные настройки путей: Options->Directories

Это здесь совершенно не при чем... Эти настройки указывают компилятору (а не программе, понимаешь?) гда искать файлы необходимые для того, чтобы собрать EXE-файл... Все, что происходит во время выполнения - другая история... Если текущая директория (то, что показывается в строке Directory Name при вызове File -> Change Dir...) не содержит нужных файлов, то в любом случае будет ошибка...

То есть надо либо вручную (или в PIF-файле) прописать рабочую директорию после старта IDE, либо делать это программно:
Код
uses dos;
function get_path: string;
var
  P: PathStr; D: DirStr; N: NameStr; E: ExtStr;
begin
  fsplit(paramstr(0), D, N, E);
  get_path := D;
end;
...
assign(f, get_path + 'input.txt'); reset(f);
...

PM MAIL   Вверх
Shadowlord
Дата 25.1.2007, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 275
Регистрация: 28.11.2006

Репутация: нет
Всего: 5



chdir('<путь к директории>'); // инициализация рабочей директории 


PM MAIL   Вверх
volvo877
Дата 25.1.2007, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Shadowlord, только вот зачем менять через ChDir - ты не подумал? Потом же еще восстанавливать назад придется...
PM MAIL   Вверх
Shadowlord
Дата 25.1.2007, 18:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 275
Регистрация: 28.11.2006

Репутация: нет
Всего: 5



volvo877 зачем искать лишние сложности там где их нет

PM MAIL   Вверх
Zero
Дата 25.1.2007, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24



Цитата(volvo877 @  25.1.2007,  12:59 Найти цитируемый пост)
assign(f, get_path + 'input.txt');

volvo877, а где сказано в задании, что нужно путь программно определять к файлу...
Воопрос вообщето связан с настройкой... smile 
Тут пробелема в том, как я понял, после компиляции, программа (*.exe) не находит в том месте где она есть файла... У меня лично такого неразу небыло, но копать в любом случае нужно либо в настроках, либо переустановить паскаль (занемает он не так уж и много, поэтому такое можно позволить)...
Обходы для определения пути некчему. smile 
PM MAIL ICQ   Вверх
zetxi815eb
Дата 25.1.2007, 23:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 17.1.2007

Репутация: нет
Всего: нет



Вот...я тож думаю, дело в настройках компилятора...тк у других такой же Паскаль и всё работает.
PM MAIL   Вверх
remax
Дата 9.2.2007, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доцент
**


Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

Репутация: нет
Всего: 5



А ParamSt(0) использовать не получается?


--------------------
Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку
PM MAIL ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0575 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.