Как записать из таблицы в файл?

Posted by Chas under Пост-обзор

у меня есть таблица в нем 2 поля(код,название), как мне сохранить все поля(название) в текстовый файл(.txt) в тако виде:
название1
название2
название3

Gulik:

procedure TForm1.Button1Click(Sender: TObject);

   var

      StrList : TStrings ; // Объявляем переменную

begin

   StrList := TStringList.Create ; // Создаем объявленную переменную типа TStrings (аналог компонента Memo)

   Table1.First ; // Переходим в начало таблицы

   while not Table1.Eof do begin // Создаем цикл перебора записей в таблице

         StrList.Add(Table1.FieldByName('Name').AsString) ; // Добавляем запись из поля "Name" в переменную

         Table1.Next ; // Переходим к следующей записи

         Application.ProcessMessages ; // Чтобы программа не зависала (если много записей)

   end ;

   StrList.SaveToFile('save.txt');   // Сохраняем в файл

   StrList.Free ; // Уничтожаем переменную

end;

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

Похожие статьи

• Как удалить таблицу в БД и заново её создать?
• Как выполнил запрос в бд и присвоить значение запроса в edit?
• Как из базы ABS достать файлы?
• Delphi+MySQL. Какой компонент можно использовать?
• Подключения запароленной базы данных Access
• Как увеличить скорость заполнения данных в mdb из excel?
• “Культура” работы с БД
• Базы данных в Delphi
• Базы данных в Delphi
• Перенести программу из Delphi в Lazarus