[ sandra.bg86 @ 26.03.2014. 13:37 ] @
Kako na najbolji/najbrzi nacin da proverim da li su poslednja dva bajta u nekom fajlu npr 0x15 i 0x24 i ako jesu kako ih ukloniti iz fajla?
[ reiser @ 26.03.2014. 13:59 ] @
Code:
procedure RemoveLastTwoBytes(const AFile: String);
var
  fstream: TFileStream;
  buffer : array[0..1] of Byte;
begin
  fstream := TFileStream.Create(AFile, fmOpenReadWrite or fmShareDenyNone);
  try
    fstream.Seek(-2, soFromEnd);
    fstream.ReadBuffer(buffer[0], 2);
    if (buffer[0] = $15) and
       (buffer[1] = $24) then
      fstream.Size := fstream.Size - 2;
  finally
    fstream.Free;
  end;
end;

[ sandra.bg86 @ 26.03.2014. 19:45 ] @
Sjajno, hvala puno!