einen Hexwert in einer Datei ändern ...

[cherry]

Hallo Jungs...

Vielen Dank für die Tipps...

Ich habs jetzt so gelöst:

Delphi-Quellcode:

for i := 0 to FileList.Count - 1 do
    begin
      TRY
        FileStream := TFilestream.Create(path+FileList.Strings[i], fmOpenReadWrite);
        FileStream.Seek(18, soFromBeginning);

        if CheckBox1.Checked then buffer := 0 else buffer := 1;

        FileStream.WriteBuffer(buffer, 1);
        FileStream.Free;
        Memo1.Lines.Add(FileList.Strings[i] + '             Erfolgreich bearbeitet!');
      EXCEPT
        on e: Exception do Memo1.Lines.Add(e.Message);
      END;
    end;

Ist doch ok oder?

LG