15.04.2014, 11:54
|
|
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от vankai14
спасибо, а примерно несколько строк набросать что и как сделать можете? что бы я уже дальше справку почитал
|
Примерно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
buf: PByteArray;
i: Integer;
begin
fs := TFileStream.Create('Имя открываемого файла', fmOpenReadWrite);
try
fs.Position := 123; // Устанавливаем позицию с которой нужно прочитать
GetMem(buf, 10); // Резервируем память под буфер на 10 байт
try
fs.ReadBuffer(buf^, 10); // Читаем 10 байт из указанной позиции файла в буфер
for i := 0 to 9 do // Что нибудь делаем с этими 10 байтами:
begin
buf^[i] := buf^[i] xor $AA;
end;
fs.Position := 123; // Устанавливаем позицию с которой нужно записать
fs.WriteBuffer(buf^, 10); // Записываем изменённые 10 байт назад в файл
finally
FreeMem(buf); // Освобождаем память занимаемую буфером
end;
finally
fs.Free;
end;
end;
|