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

[BVnosferatu]

begin



memo1.lines.SaveToFile('e:\data\dat abase.txt');

end;
// я незнаю как сделать сохранение без вытирания информации

[evg_m]

загрузить(прочитать) информацию(старую)
ДОПИСАТЬ информацию
сохранить информацию, т.е. SaveToFile

[min@y™]

Вангую, что мемо - это не главное. А главное тут - добавлять строки в текстовый файл.

Я прав, не?

[BVnosferatu]

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

[min@y™]

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

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

Классически случай.
Читай сюда. Не менее 2 раз читай.
А как вкуришь тему - меняй текст вопроса.

[v258]

Дописывание данных из мемо в файл:

procedure SaveTextToFile(FileName: string; sText: string);
var
  FileOut: TextFile;
begin
  AssignFile(FileOut, FileName);
  Rewrite(FileOut);
  Writeln(FileOut, sText);  
  CloseFile(FileOut);       
end;

SaveTextToFile('e:\data\dat abase.txt', memo1.lines.text);

И таки да - научитесь правильно формулировать вопросы

[min@y™]

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

Дописывание данных из мемо в файл:

procedure SaveTextToFile(FileName: string; sText: string);
var
  FileOut: TextFile;
begin
  AssignFile(FileOut, FileName);
  Rewrite(FileOut);
  Writeln(FileOut, sText);  
  CloseFile(FileOut);       
end;

SaveTextToFile('e:\data\dat abase.txt', memo1.lines.text);

И таки да - научитесь правильно формулировать вопросы

000006.png

[v258]

Да, действительно, это было для разовой записи

procedure FormNameFile(FileName);
var
  f: file of byte;
  handle: Integer;
begin
  if FileExists(FileName) then
    try
      AssignFile(f, FileName);
      Reset(f);
    finally
      CloseFile(f);
    end else
    begin
      handle := FileCreate(FileName);
      FileClose(handle);
    end;
end;

procedure SaveTextToFile(FileName: string; sText: string);
var
  FileOut: TextFile;
begin
  FormNameFile(FileName);
  AssignFile(FileOut, FileName);
  Append(FileOut);
  Writeln(FileOut, sText); 
  Flush(FileOut); 
  CloseFile(FileOut);       
end;

SaveTextToFile('e:\data\dat abase.txt', memo1.lines.text);

[Аватар]

  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;

[min@y™]

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

Да, действительно, это было для разовой записи

procedure FormNameFile(FileName);
var
  f: file of byte;
  handle: Integer;
begin
  if FileExists(FileName) then
    try
      AssignFile(f, FileName);
      Reset(f);
    finally
      CloseFile(f);
    end else
    begin
      handle := FileCreate(FileName);
      FileClose(handle);
    end;
end;

procedure SaveTextToFile(FileName: string; sText: string);
var
  FileOut: TextFile;
begin
  FormNameFile(FileName);
  AssignFile(FileOut, FileName);
  Append(FileOut);
  Writeln(FileOut, sText); 
  Flush(FileOut); 
  CloseFile(FileOut);       
end;

SaveTextToFile('e:\data\dat abase.txt', memo1.lines.text);

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