Dopisanie do pliku nietekstowego

0

Cześć...
Mam takie fajne pytanie... Jak dopisać jakieś znaki na końcu pliku nietekstowego i jak wpisać jakieś znaki do pliku tekstowego w okreslone miejsce?

Np. plik ma 20 bajtów... Wpisuje jakiś znak w 13 bajt pliku(no i oczywiście teraz plik ma 21 bajtów)

0

coś w tym guscie (pisane z głowy):

F :file of byte;
bufor: Array of byte;

begin
AssignFile(F,'plikzrodlo.dat');
Reset(F);
SetLength(bufor, 21);
BlockRead(F, bufor[0], 12);
BlockRead(F, bufor[13], 8);
bufor[12]:=255; //nowybajt
Seek(F,12);
BlockWrite(F,bufor[12], 9);
CloseFile(F);

0

F :file of byte;

A czy nie będzie błędu, jak plik będzie miał powiedzmy 3 mb?

0

Napierw spróbuj a potem pytaj!!

0

A czy nie będzie błędu, jak plik będzie miał powiedzmy 3 mb?

Nie . Słowo byte określa wielkość rekordu. Możesz zrobić

F: file;

a potem Reset(F,1);

będzie to samo.

Jak plik będzie ogromny to może byc problem z SetLength - bo trzeba będzie zaalokować wielką ilość pamięci. Wtedy proponuję robić na raty. Ale to dotyczy dziesiątek lub nawet setek MB.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0