Паскаль. Типизированные файлы.

[Stilet]

Еще можно реализовать через временный файл,

Светлая мысль. Вот и займись ею.

[rainbow]

Я не знаю как можно удалить строку.

Можно и без временного файла сделать, но только нужно знать критерий удаления.
Вот из моей лабораторной:

type
Tchsl=117..217;
Stud=Record
FIO:string[20];
INYAZ:string[10];
MATEM:Tchsl;
end;

var
st:Stud;
F:File of Stud;
i,j:integer;
...................................
delstr:string;
s:boolean;
begin
ClrScr;
{$I-}
Reset(F);
{$I+}
Writeln('Введите Фамилию студента, которого нужно удалить:');
Readln(delstr);
s:=false;
for i:=0 to Filesize(F)-1 do
begin
Read(F,st);
if st.FIO=delstr then
begin
s:=true;
break;
end;
end;
if s then
begin
for j:=i+1 to Filesize(F)-1 do
begin
seek(F,j);
read(F,st);
seek(F,j-1);
write(F,st);
end;
truncate(F);
end;

Удаление строки по фамилии студента.

[Razorishe]

Еле въехал в код, работает, спасибо большое. Только одно но. У меня не удаляет последнюю добавленную строчку, может я ошибся когда под свою программу переделывал..

[rainbow]

Razorishe, после добавления строки, файл сначало надо закрыть Close(F) чтобы изменения в файле вставленной строки сохранились, а потом открывать файл по новой и тогда удалять её.

[Razorishe]

Да что close нужно это понятно, но теи не мение у меня не удаляет последнюю строчку, у вас я так понял на место строчки, которую нужно удалить, копируется следующая строчка и после этого уже удаляется, а когда я хочу удалить последнюю строчку ему не на что её заменить, или я не так понял принцип работы?

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

[Sazary]

Кто бы мог привести пример удаление строчки с помошью временного файла

Ну вот.. Простенький.
Удаляет строку с указанным номером.

uses crt;
var
f,ftmp : text;
i,k : integer;
s : string;

begin
clrscr;
assign(f,'test.txt');
assign(ftmp,'tmpfile.txt');

write('Vvedite nomer stroki: ');
readln(k);

reset(f);
rewrite(ftmp);

i:=1;
while not eof(f) do
 begin
 readln(f,s);
 if i<>k then
  writeln(ftmp,s);
 inc(i);
 end;

close(f);
close(ftmp);

rewrite(f);
reset(ftmp);

while not eof(ftmp) do
 begin
 readln(ftmp,s);
 writeln(f,s);
 end;

close(f);
close(ftmp);
erase(ftmp);

readln;
end.

[Razorishe]

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

[Sazary]

Вот для типизированного.

uses crt;
var
f,ftmp : file of char;
i,k : integer;
s : char;

begin
clrscr;
assign(f,'test.txt');
assign(ftmp,'tmpfile.txt');

write('Vvedite nomer elementa: ');
readln(k);

reset(f);
rewrite(ftmp);

i:=1;
while not eof(f) do
 begin
 read(f,s);
 if i<>k then
  write(ftmp,s);
 inc(i);
 end;

close(f);
close(ftmp);

rewrite(f);
reset(ftmp);

while not eof(ftmp) do
 begin
 read(ftmp,s);
 write(f,s);
 end;

close(f);
close(ftmp);
erase(ftmp);

readln;
end.

[Razorishe]

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

[Sazary]

Razorishe

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

ps Приведенный выше пример будет работать с обычным текстовиком. Но более-менее корректно работать он будет только если удалять видимые символы (а не символы перевода строки). Это я так, к примеру.