Паскаль. Вставить в начало и середину файла элементы

[mishammm]

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

[Streletz]

Попробуйте использовать FileSize и SetFilePointer.
В помощь:
как переместить курсор в текстовом файле? / Delphi для начинающих

[Serge_Bliznykov]

mishammm, если Вы продолжаете о своём наболевшем, тогда учтите, что seek для текстовых файлов не работает!

[mishammm]

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

mishammm, если Вы продолжаете о своём наболевшем, тогда учтите, что seek для текстовых файлов не работает!

а кто сказал что я работаю с текст файлом?? я работаю с типизированным

[Serge_Bliznykov]

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

а кто сказал что я работаю с текст файлом?? я работаю с типизированным

О!
Дык Вам поможет процедура seek();

var 
  f : file of <ВашТип>;
...
 Assign(f, DatFileName);
 Reset(f); {открытие файла}
..
 n := FileSize(f); {получить количество записей (элементов) в исходном файле} 
...
 Seek(f,0); {установить указатель на начало файла (на первый элемент)} 
....
 Seek(f,n-1); или seek(f, FileSize(f)-1);  {установить указатель на последний элемент в файле}

  Seek(f, FileSize(f));  {установить указатель за последним элементом! Читать из файла в этом случае уже нельзя, можно только писать в файл}

перечитал вопрос.

Задание стоит в следуйщем нужно без оператрора seek вставить элементы на начало файла и на середину.

вставить?!!!!! со сдвигом всех последущих? Или поверх них?! Да ещё без процедуры Seek!!
Если есть файл с числами (для простоты file of integer): 1 3 5 7 9 11 13
что Вы хотите получить в результате (после вставки)?

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


p.s. Вы опять хотите странного?!

[mishammm]

p.s. Вы опять хотите странного?!

да не хочу я странного . смотрите вариант 2 задания 12.4 изивините за украинский

[Serge_Bliznykov]

можно с использованием дополнительного файла.
можно (если объём памяти позволяет и все элементы файла помещаются в ОП) прочитать файл в память, обработать и перезаписать файл целиком.
можно написать безумные циклы, которые передвигают элементы в файле на заданное число элементов дальше от начала файла.

Вам какой из этих вариантов закодировать?


p.s. Паскаль у Вас какой (TurboPascal/FreePascal/PascalABC/PascalABC.NET/Delphi )?

[mishammm]

можно -3 вариант . мне сказали что см помошью read можно передвигать еще . Pascal ABC - у меня

[mishammm]

или говорят вот так можно

x:=pos('*',sss);
insert(stroka,sss,x+1);

[Vanta11a]

мне сказали что см помошью read можно передвигать еще

В типизированных файлах - нельзя.

x:=pos('*',sss);
insert(stroka,sss,x+1);

Так вы вставите строку (STRING), а не запись (record).