как в паскале открыть текстовой файл для записи и чтения одновременно, т.е. у меня цикл до конца файла где происходит сначала запись а потом чтение, но после этих действий он перемещает указатель на начало файла, а мне нодо с того места где мы читали.записывали.
ВОТ ПРОГА:
uses crt;
var f,f1:text;
s,s1,t:string;
begin
clrscr;
assign(f,'c:temp1.txt');
assign(f1,'c:temp11.txt');
reset(f);
readln(f,t);
rewrite(f1);
writeln(f1,t);
close(f1);
while not eof(f) do
begin
readln(f,s);
reset(f1);
while not eof(f1) do
begin
readln(f1,s1);
if s<>s1 then begin
append(f1);
writeln(f1,s);
reset(f1);
end
end
end;
readkey
end.
Файлы |