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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2007, 14:15   #1
Need_Help
 
Регистрация: 15.05.2007
Сообщений: 3
Радость Чтение из файла

Задача: нужно отобразить на экране простейший массив, находящийся в My.txt . Выдаёт ошибку 64 cannot read or write...

Program OpenMass;
const N=3;
var
f:text;
s : array [ 1 ..N] of integer;
begin
assign(f,'h:\bp\bin\Moi pro\my.txt'); { Путь к файлу правильный }
reset(f);
read(f,s);
writeln(s);
close(f);
end.
P. S. Мой файл с массивом my.txt содержит всего 3 числа, разделенные пробелом: 4 3 10

Need_Help
Need_Help вне форума Ответить с цитированием
Старый 15.05.2007, 15:15   #2
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
По умолчанию

f: TextFile
и все.
Не надо ничего усложнять. Все достаточно тривиально.
Shuraken вне форума Ответить с цитированием
Старый 15.05.2007, 16:29   #3
НЕ_АЙС
Форумчанин
 
Регистрация: 18.04.2007
Сообщений: 135
По умолчанию

Shuraken обрати внимание на тему....это не дельфи....какой TextFile

Program OpenMass;
const N=3;
var
f:text;
s:array [1 ..N] of integer;
i:integer;
begin
Assign(f,'h:\bp\bin\Moi pro\my.txt'); { Путь к файлу правильный }
Reset(f);
for i:=1 to N do
begin
Read(f,s[i]);
WriteLn(s[i]);
end;
Close(f);
ReadLn;
end.
НЕ_АЙС вне форума Ответить с цитированием
Старый 16.05.2007, 18:06   #4
Мефистофель
Любитель =)
Пользователь
 
Аватар для Мефистофель
 
Регистрация: 01.04.2007
Сообщений: 23
По умолчанию

Попробуй в var прописать что f:file of text
Ламер иногда лучше юзера
Мефистофель вне форума Ответить с цитированием
Старый 17.05.2007, 17:13   #5
Need_Help
 
Регистрация: 15.05.2007
Сообщений: 3
По умолчанию

Спасибо Не_Айс. Программа теперь работает правильно.
Need_Help вне форума Ответить с цитированием
Старый 19.05.2007, 05:37   #6
Кролик
Пользователь
 
Аватар для Кролик
 
Регистрация: 05.05.2007
Сообщений: 16
По умолчанию

Еще бы стоило сделать проверку числа:
var
St: string;
ErrorCod: integer;
..
Val(St,S[I],ErrorCod);
If ErrorCod <> 0 then {Здесь выдаётся сообщение об ошибке}
Границ нет, есть преграды.
Кролик вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чтение файла [Smarik] Помощь студентам 8 28.04.2008 22:15
Чтение из файла... Bill Gates Общие вопросы Delphi 3 22.03.2008 22:13
Чтение файла Stanislav Общие вопросы Delphi 18 24.11.2007 20:45
чтение файла Arteom Общие вопросы Delphi 6 27.08.2007 18:15
чтение файла vicvtor Общие вопросы Delphi 4 27.11.2006 12:26