Сохранить текст из Memo в два файла

FleXik

Нужно, чтобы текст в Memo разделяло на две строки и сохраняло в два текстовых файла по следующему принципу:

1. Отправляем запрос
2. Парсим
3. Выводим в Мемо
4. Сохраняем в .txt файл

Slym

var Strings:TStringList;

begin

  Strings:=TStringList.Create;

  try

    Strings.Text:=Get;

    Strings.SaveToFile('1');

    Memo1.Lines.AddStrings(Strings);

    Strings.Clear;

    Strings.Text:=Get;

    Strings.SaveToFile('2');

    Memo1.Lines.AddStrings(Strings);

  finally

    Strings.Free;

  end;

end;

тема на форуме