Записать строку в начало файла

[XPAiN]

Имеется текстовый файл с набором строк. Каким образом мне добавить строку в начало файла.

Так не выходит

procedure AddStrToFile(FileName:string; S:string);
var  f:TFileStream;
     str:string;
begin
 str:='';
  f:=TFileStream.Create(FileName,fmOpenWrite+fmShareDenyNone);
  SetLength(str, f.Size);
  f.Read(str[1],f.Size);
  str:=s+#13#10+str;
  f.Write(str,length(str));
  f.Destroy;
end;

[raxp]

можно так...

var t: tstringlist;
begin
 t:= tstringlist.Create;
 t.LoadFromFile('1.dat');
 t.Insert(0,'--------');
 t.SaveToFile('1.dat');
 t.Free

[XPAiN]

Метод хороший, но он переписывает файл целиком. На что тратится время, критичное для приложения. К примеру Append, который добавляет в конец файла, работает в несколько раз быстрее.

[evg_m]

есть разлинованный лист бумаги на нем начиная с первой линии записано несколько строк. Введем такие ограничения (писать можно только по строчкам написанное ранее разрешается стирать)
теперь попытаемся выполнить две задачи.
1. Дописать в конце еще пару строк
2. Вставить те же две строки в начало.

Первая задача решается легко. Берем и дописываем (Аppend работает быстро).
Для второй задачи есть два варианта
А. взять второй такой же лист
написать новые строки
переписать все строки с первого
В. запомнить все строчки
стереть все строчки
записать две новые строчки
записать то что запомнили

в любом случае придется переписывать все. (добавление в начало работает медленно)

ЛИСТ это файл
Строчки - его размещение на диске

[Serge_Bliznykov]

evg_m, +100

p.s. сам хотел то же самое написать, но времени всё не хватало...

[raxp]

XPAiN
...На что тратится время, критичное для приложения...

даже, если использовать файловый поток, все равно файл будет переписываться весь/

можно рекомендовать следующее - при создании приложения открыть-загрузить файл, при закрытии сохранить... итого, время тратится только на операции в "буфере"/

[XPAiN]

Огромное спасибо! Вы абсолютно правы. Данный подход не будет не приемлем для приложений с критичностью времени

evg_m объяснил доходчиво.