![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 15.05.2007
Сообщений: 3
|
![]() ![]() 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 ![]() |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
![]()
f: TextFile
и все.
Не надо ничего усложнять. Все достаточно тривиально.
|
![]() |
![]() |
![]() |
#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. |
![]() |
![]() |
![]() |
#4 |
Любитель =)
Пользователь
Регистрация: 01.04.2007
Сообщений: 23
|
![]()
Попробуй в var прописать что f:file of text
Ламер иногда лучше юзера
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 15.05.2007
Сообщений: 3
|
![]()
Спасибо Не_Айс. Программа теперь работает правильно.
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 05.05.2007
Сообщений: 16
|
![]()
Еще бы стоило сделать проверку числа:
var St: string; ErrorCod: integer; .. Val(St,S[I],ErrorCod); If ErrorCod <> 0 then {Здесь выдаётся сообщение об ошибке}
Границ нет, есть преграды.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Чтение файла | [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 |