Как сделать

@Leha1991 · Регистрация: 06.12.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте помогите пожалуйста вопрос такой как сделать программу с двумя кнопками сохранить и открыть у меня на форме Edit1 Edit2 Edit3 Edit4 как сделать так чтобы то что я ввел в Edit1 Edit2 Edit3 Edit4 сохранялось в txt

короче как сделать подобие такой программы http://rghost.ru/44465684 что б она сохраняла то что я ввожу

@Shurvik · 13.03.2013, 17:01

Delphi

var S: TStringList;
begin
S:=TStringList.Create;
S.Add(Edit1.Text);
...
S.Add(Eedit4.Text);
S.SaveToFile('Text.txt');
S.Free;
end;

@Leha1991 · 13.03.2013, 17:06 **[ТС]**

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

Delphi

var S: TStringList;
begin
S:=TStringList.Create;
S.Add(Edit1.Text);
...
S.Add(Eedit4.Text);
S.SaveToFile('Text.txt');
S.Free;
end;

Этот код перезаписывает Text.txt

а мне надо чтоб всё что ввожу сохранялось без перезаписи

@Shurvik · 13.03.2013, 17:10

Delphi

var S: TStringList;
begin
S:=TStringList.Create;
S.LoadFromFile('Text.txt');//загружаем все, чо сохранили в прошлый раз
S.Add(Edit1.Text);//Добавляем к тому, что уже есть
...
S.Add(Eedit4.Text);
S.SaveToFile('Text.txt');//Сохраняем
S.Free;
end;

@volvo · 13.03.2013, 17:53

Чтобы содержимое файла не тягать туда/сюда, лучше сохранять не в файл, а в поток, связанный с файлом:

Delphi

var
  fs : TFileStream;
begin
  with TStringList.Create do
  try
    Add(Edit1.Text);
    Add(Edit2.Text);
 
    fs := TFileStream.Create('010101.txt', fmOpenReadWrite);
    try
      fs.Seek(0, soFromEnd); // Будем записывать в конец файла
      SaveToStream(fs);
    finally
      fs.Free;
    end;
 
  finally
    Free;
  end;
end;

@Leha1991 -16 / 0 / 1 Регистрация: 06.12.2012 Сообщений: 295
		1
	Как сделать 13.03.2013, 14:02. Показов 408. Ответов 4 Метки нет (Все метки) Здравствуйте помогите пожалуйста вопрос такой как сделать программу с двумя кнопками сохранить и открыть у меня на форме Edit1 Edit2 Edit3 Edit4 как сделать так чтобы то что я ввел в Edit1 Edit2 Edit3 Edit4 сохранялось в txt короче как сделать подобие такой программы http://rghost.ru/44465684 что б она сохраняла то что я ввожу 0

	13.03.2013, 17:53