Сохранение в txt.

[Loadgame]

Доброе время суток.
Как сделать так что бы можно было сохранять информацию в txt файл но при этом что бы предыдущая информация не удалялась,а добавлялась в этот txt файл.
Заранее спасибо.

[Стелс]

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

Доброе время суток.
Как сделать так что бы можно было сохранять информацию в txt файл но при этом что бы предыдущая информация не удалялась,а добавлялась в этот txt файл.
Заранее спасибо.

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

var
  fl : TextFile;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(fl, 'C:\a.txt');
  //Открываем файл в режиме "только запись". При этом файловый указатель
  //устанавливается в конец файла.
  Append(fl);
end;

[Аватар]

Загружай предыдущую инфу в StringList, редактируй его как хочешь и обратно выгружай в тот же файл

[Стелс]

var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись нескольких известных слов в этот файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие для добавления в конец файла заключительной строки
  Append(myFile);

  // Write this final line
  WriteLn(myFile, 'Заключительная строка добавлена');

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;

[Loadgame]

Не совсем понимаю как мне все это сделать только вместо текста что бы была переменная.

[Loadgame]

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

Загружай предыдущую инфу в StringList, редактируй его как хочешь и обратно выгружай в тот же файл

А как загрузить информацию из txt в StringList?

[Terran]

Для примера.

Procedure TForm1.Button1Click(Sender: TObject);
Var
F: TextFile;
I: Integer;
Begin
AssignFile(F,'1.txt');
Append(F);
For I:=0 To Memo1.Lines.Count Do
WriteLn(F,Memo1.Lines[I]);
CloseFile(F);
End;

А как загрузить информацию из txt в StringList?

Procedure TForm1.Button2Click(Sender: TObject);
Var
S:  TStringList;
Begin
S:=TStringList.Create;
S.LoadFromFile('1.txt');
S.Add('1234567');
S.SaveToFile('1.txt');
S.Free;
End;

[Loadgame]

Спасибо всем огромное.

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var xList: TStringList;
begin
  xList:=TStringList.Create;
  try
    try
      xList.LoadFromFile('e:\MyFile.ttx');
    except
      ShowMessage('Ошибка загрузки файла e:\MyFile.ttx');
      Exit;
    end;
    //здесь редактируем
    //...
    try
      xList.SaveToFile('e:\MyFile.ttx');
    except
      ShowMessage('Ошибка сохранения файла e:\MyFile.ttx');
      Exit;
    end;
  finally
    xList.Free;
  end;
end;