Howto: Datei byteweise lesen und schreiben

[DGL-luke]

mit streams würd so gehen:

Delphi-Quellcode:

procedure StreamSetByte(AFilename: string;APosition: Int64; AValue: Byte);
begin
  with TFileStream.Create(AFileName, fmOpenReadWrite) do //öffnen
    try
      Position := APosition;         //Position "suchen"
      Write(AValue, sizeof(AValue)); //Schreiben
    finally
      Free; //schließen
    end;
end;

Ich hoffe, die with...do und try..finally..end syntaxelemente sind dir geläufig.

EDIT: varibale entfernt, filemode geändert...