Загрузка данных из типизированного файла

[Serge_Bliznykov]

оп-с...
сорри...

[diliana]

Anatole
puporev

Спасибо большое ребята!

[Doholyan]

Вопрос по теме!!
Как прочитать часть из типизированного файла...
Что бы не грузить весь файл в О\П....а, только одну строку к примеру?

[puporev]

Прочитать строку №5.

reset(f);
seek(f,4);//номера с ноля
read(f,a);
write(a);

[Doholyan]

[QUOTE=puporev;317154]Прочитать строку №5.

reset(f);
seek(f,4);//номера с ноля
read(f,a);
write(a);

[/QUOTE


Перемменная (а) к кокому типу должна относиться......не могу подобрать..."26 неверный тип переменной"?

[puporev]

Как прочитать часть из типизированного файла...

А какого типа файл, такого типа и переменная. Если это числовой , строковый или символьный файл, то вывод будет как написано, а если это например файл записей, или массивов, то вывод нужно писать конкретно для этого типа.

[Doholyan]

Сообщение от puporev

А какого типа файл, такого типа и переменная. Если это числовой , строковый или символьный файл, то вывод будет как написано, а если это например файл записей, или массивов, то вывод нужно писать конкретно для этого типа.

вот код:
program VVod;
type
MenR=record
Name:string;
Numer:byte;
tel:byte;
Pol:Char;
end;
Men=file of MenR;
var
stroka:menR;
in_f:file of MenR;
a:byte;
begin
assign(in_f,'F:\re');
rewrite(in_f);
write('€¬п '); {имя}
readLn(stroka.name);
write('Ќ®¬Ґа '); {номер}
readLn(stroka.Numer);
write('⥫Ґд®* '); {телефон}
readln(stroka.tel);
write('Џ®« '); {пол}
readLn(stroka.Pol);
write(in_f,stroka);
close(in_f);
reset(in_f);
seek(In_f,3);
read(in_f,a);
writeln(a:25);
readLn;
end.

[puporev]

f:file of MenR; значит все что записывем в файл и читаем из него должно быть этого типа.

var a:MenR;
................
reset(in_f);
seek(In_f,3);
read(in_f,a);
writeln(a.Name,' ',a.Numer,' ',a.tel,' ',a.Pol);

[Doholyan]

program VVod;
type
MenR=record
Name:string;
Numer:byte;
tel:byte;
Pol:Char;
end;
Men=file of MenR;


var
stroka:menR;
in_f:file of MenR;
a:menR;


begin
assign(in_f,'F:\re');
rewrite(in_f);
write('name ');
readLn(stroka.name);
write('Numer ');
readLn(stroka.Numer);
write('telefon ');
readln(stroka.tel);
write('pol ');
readLn(stroka.Pol);
write(in_f,stroka);
close(in_f);

reset(in_f);
seek(In_f,1);
read(in_f,a); <-- здесь Ошибка диск читает ошибку100
writeln(a.name,a.numer,a.tel,a.pol) ;

readLn;
end.

[Daramant]

Ошибка здесь:
seek(In_f,1);
Записи нумеруются с 0.
И у тебя всего 1 запись.
Надо:

reset(in_f);
seek(In_f,0); { индекс 0}
read(in_f,a);
writeln(a.name,a.numer,a.tel,a.pol) ;