Сохранить файл(из компонента мемо), но так чтобы он при следующем сохранении не затирался новой информацией

[min@y™]

Сообщение от Аватар

  s:=Memo1.Lines.Text;
  if FileExists('d:\MyTest.txt') then Mode:=fmOpenWrite	else Mode:=fmCreate;
  Stream:=TFileStream.Create('d:\MyTest.txt', Mode or fmShareDenyWrite);
  Stream.Position:=Stream.Size;
  Stream.WriteBuffer(Pointer(s)^,Length(s));
  Stream.Free;

небезопасный код.
добавь try try ... except ...end finally ... end

[v258]

Сообщение от min@y™

Ну ты и извращенец. Убери эту срань и напиши нормально, через TFileStream.

Тебе надо - ты и пиши. У меня это работает годами для записи логов. А раз работает - трогать не нужно :P

[Аватар]

небезопасный код.

ТС нужно же и самому что-то сделать, а не просто скопипастить ))

[min@y™]

Сообщение от v258

А раз работает - трогать не нужно :P

Это не тот случай. Тому, кто тебе это сказал, сломай нос. Это ж мракобесие и застой. Как секс с резинкой: движение есть, а прогресса - нет. © "ДМБ".

[min@y™]

Сообщение от Аватар

ТС нужно же и самому что-то сделать, а не просто скопипастить ))

Шутка понята.

[v258]

Сообщение от min@y™

Это ж мракобесие и застой

Это не застой, а стабильность. Городить записи буферов через пойнтеры для строки текста - ну его нафиг

[BVnosferatu]

Спасибо ребят, помогли