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)
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);
F :file of byte;
A czy nie będzie błędu, jak plik będzie miał powiedzmy 3 mb?
Napierw spróbuj a potem pytaj!!
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.