Не добавляет байт

[Fakov]

Проблема - не добавляется байт. ЯП-делфи.

Нужно чтобы на 35 позиции от конца файла добавлялся(ни в коем случае не заменялся) байт, что не так в коде?

fs.Seek($00000023, SoFromEnd);
        s:=$FF;
        fs.Write(s, 1);

Сейчас добавляется 35 пустых позиций в конце файла, 35 из которых = FF.

[s-andriano]

Что такое "добавлять", не совсем понятно.
Если подразумевается, что нужно вставить байт в 35 от конца позицию, то, значит, остальные байты нужно сдвинуть на один к концу файла. В коде этого нет.
Другими словами, Вам нужно считать последние 35 байтов из файла, а затем записать сначала вставляемый байт, а потом - считанный "хвост".

[Fakov]

Сообщение от s-andriano

Если подразумевается, что нужно вставить байт в 35 от конца позицию, то, значит, остальные байты нужно сдвинуть на один к концу файла.

именно! как вставить? сейчас получается замена а не вставка, а надо вставить =\ чтобы сместилось =\

[BDA]

Отходите от конца 35 байт.
Считываете 35 байт.
Опять отходите от конца 35 байт.
Пишите 36 байт.
Профит.

[Fakov]

BDA, я не знаю какой код, чтобы вставило, а не заменило. Мне строка нужна((

[Fakov]

Народ, помогите( что писать, чтобы байт добавило а не заменило?(

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: tfilestream;
  s: array [0 .. 255] of ansichar;
  a: ansichar;
begin
  fs := tfilestream.Create('1.txt', fmOpenReadWrite);
  fs.Seek(-4, SoFromEnd);
  fs.Read(s, 4);
  fs.Seek(-4, SoFromEnd);
  a := '0';
  fs.Write(a, 1);
  fs.Write(s, 4);
  fs.Free;
end;

Вставляет нолик (текст) перед 4 последними символами-байтами в файле.

[Stilet]

Нужно запомнить все что до конца, и потом дописать после 35-го байта.

fs.Seek(35, SoFromEnd);
        char a[35];
        fs.Read(a, 35);
fs.Seek(35, SoFromEnd);
        s:=$FF;
        fs.Write(s, 1);
        fs.Write(a, 35);

[Fakov]

ЬСпасибо камрады) все получилось)