Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
11th
Июл
Как записать из таблицы в файл?
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;