Не получается считать строку из файла!

@helen85 · Регистрация: 27.03.2009

Author24 — интернет-сервис помощи студентам

Мне нужно реализовать следующую задачку:
Дан файл, содержащий некоторый текст. Написать программу, выполняющую выравнивание этого текста за счет увеличения числа пробелов между словами в строке.

Хочу реализовать следующем образом:
(будем считать, что нужное кол-во пробелов уже посчитанно.)
читать строку из файла добавлять одинаковое кол-во пробелов между словами
и записывать полученную строку в файл вместо старой, но столкнулась с тем, что не могу считать строку из файла, пишет ошибку 100 disk read error. Пишу вот так:

const FileName = 'ex.txt';
type Strok = record
vcp:string;
end;
var File_Text:file of Strok;
Stroka :Strok;

begin
assign(File_Text,FileName);
{$I-}
reset(File_Text);
{$I+}
if IOResult<>0 then
begin
writeln('Ошибка!!! Файл не существует!');
exit;
end;
Seek(File_Text,0);
read(File_Text,Stroka);
close(File_Text);
end.

Что делаю не так? и возможно ли считать строку из файла???

@Vladiator · 02.04.2009, 07:33

В какой строке?

@helen85 · 02.04.2009, 07:47 **[ТС]**

ошибка?
вот в этой read(File_Text,Stroka);

@Vladiator · 02.04.2009, 07:50

read(File_Text,Stroka.vcp);
А ещё лучше убрать это:

Pascal

1
2
3

type Strok = record
vcp:string;
end;

Зачем?
Просто:

Delphi

1 2	var File_Text:file of String[255]; Stroka :String;

Тогда read(File_Text,Stroka); останется!

@helen85 · 02.04.2009, 08:12 **[ТС]**

так как вы говорите я уже делала,
в момент выполнения при попытке чтения из файла пишет ошибку
disk read error

@NasmAPIk · 02.04.2009, 08:37

Немного изменил твой код:

Pascal

Program z1;
uses crt;
const FileName = 'ex.txt';
type Strok = record
vcp:string;
end;
var File_Text:file of Strok;
Stroka :Strok;
 
begin
clrscr;
assign(File_Text,FileName);
{$I-}
reset(File_Text);
{$I+}
if IOResult=0 then begin
 Seek(File_Text,0);
 read(File_Text,Stroka);
 close(File_Text);
 writeln(stroka.vcp);
end else
writeln('Osibka pri rabote s failom');
readkey;
end.

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

@Puporev · 02.04.2009, 08:39

А у Вас точно уже создан типизированный файл ex.txt, где использован точно такой же тип данных?

@helen85 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 6
		1
	Не получается считать строку из файла! 02.04.2009, 07:08. Показов 1749. Ответов 6 Метки нет (Все метки) Мне нужно реализовать следующую задачку: Дан файл, содержащий некоторый текст. Написать программу, выполняющую выравнивание этого текста за счет увеличения числа пробелов между словами в строке. Хочу реализовать следующем образом: (будем считать, что нужное кол-во пробелов уже посчитанно.) читать строку из файла добавлять одинаковое кол-во пробелов между словами и записывать полученную строку в файл вместо старой, но столкнулась с тем, что не могу считать строку из файла, пишет ошибку 100 disk read error. Пишу вот так: const FileName = 'ex.txt'; type Strok = record vcp:string; end; var File_Text:file of Strok; Stroka :Strok; begin assign(File_Text,FileName); {$I-} reset(File_Text); {$I+} if IOResult<>0 then begin writeln('Ошибка!!! Файл не существует!'); exit; end; Seek(File_Text,0); read(File_Text,Stroka); close(File_Text); end. Что делаю не так? и возможно ли считать строку из файла??? 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	02.04.2009, 07:33	2
	В какой строке? 0

@helen85 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 6
	02.04.2009, 07:47 [ТС]	3
	ошибка? вот в этой read(File_Text,Stroka); 0

@helen85 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 6
	02.04.2009, 08:12 [ТС]	5
	так как вы говорите я уже делала, в момент выполнения при попытке чтения из файла пишет ошибку disk read error 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.04.2009, 08:39	7
	А у Вас точно уже создан типизированный файл ex.txt, где использован точно такой же тип данных? 0