Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Функция SaveToFile

Автор: lamos123456 14.11.2006, 10:26

Вот как сделать так чтобы всё сохранялось не в 3 а в одном текстовом файл?
Плиз срочно надо!

Код


  list:=TStringList.Create;
  list2:=TStringList.Create;
  list3:=TStringList.Create;
  FindURLs('MSN.txt', list);
  FindURLs('SEARCH.txt', list2);
  FindURLs('ASK.txt', list3);

  list.SaveToFile('MSN.txt');
  list2.SaveToFile('Search.txt');
  list3.SaveToFile('ASK.txt');
  list.Free;list2.Free;list3.Free;

Автор: Matematik 14.11.2006, 10:39

Код


list.AddString(list2);
list.AddString(list3);
list.SAveToFile()

Автор: lamos123456 14.11.2006, 10:45

ошибку выдаёт

Код


  list.AddString{тут}(list2.Text);
  list.AddString(list3.Text);
  list.SAveToFile('ALL.txt')

P/S все дошло до меня smile

СПАСИБО!!!