Replace hex i fil

Det er da ret let:

1. Læs filen ind i en TFileStream
2. Opret ny fil vha endnu et TFileStream
3. Kopiér data fra stream 1 til 2 og der hvor du skal erstatte en værdi, skriver du den i stream 2. Fortsæt med at kopiere data fra stream 1 til 2
4. Luk stream 1 og 2
5. Slet filen tilhørende stream 1 og omdøb stream 2 til stream 1-filens navn.

Du kan også lave tricket med BlockRead / BlockWrite men streaming er lettest.

Hvordan finder du værdien du skal erstatte? Er det en fast position i filen eller er det noget du skal lede efter?

Alternativt, hvis de data du skal erstatte er af samme størrelse som dem der findes:

var
  fp : file; // måske "of byte" (kan ikke huske det)
  Position : integer;
begin
  Position := 512; // Gå til position 512

  assignfile(fp,'FilNavn.dat');
  reset(fp,1);
  seek(fp,Position);
  write(fp,$ff);
  closefile(fp);
end;
(ikke testet)

Der kommer fejl med dit eksemple ved "write(fp,$ff);"

[Error] Unit1.pas(90): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'Integer'

Nogen ide hvordan det fixes ? =)

lavet det om til blockread og så virker det ;)

Position skal være longint.
fp skal være file of byte.
Det burde være væsentligt hurtigere end at kopiere hele filen (blockread osv.)

hreiff: Det er det givetvis, men hvis det data han skulle erstatte, ikke har samme størrelse, så er der vist ikke anden måde, vel?

hrc: Naturligvis.