из DBGrid в MEMO

[-Jack-]

Доброго времени суток. В принципе, в заголовке и есть описание проблемы )
из Mysql бд грузится 1 столбец в DBGrid. Из DBGrid хотелось бы этот столбец записать в memo, а вот от туда уже в текстовы файл.

В принципе, вся загвоздка в том, чтобы из DBGrid данные переместить в memo.

Пробывал в инете искать решение похожей задачки, но чаще попадалось, что из DBGrid грузят в Excel ... Пробывал навоять что-то своё, но в лучшем случаи получалось, что из всего столбца грузится только первый элемент

[vovk]

В DBGrid данных нет, данные в TDataset.
Если нужно получить данные из текущей записи, то

Memo.text:=DBGrid.DataSource.DataSet.FieldByName('имя поля').AsString;

если из всех, то

Memo.Lines.Clear;
DBGrid.DataSource.DataSet.First;
while not DBGrid.DataSource.DataSet.Eof do
begin
Memo.Lines.Add(DBGrid.DataSource.DataSet.FieldByName('имя поля').AsString);
DBGrid.DataSource.DataSet.next;
end;

хотя последнее я не неазвал бы разумным подходом, мало ли сколько в TDataset записей.

[-Jack-]

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=False;
ADOQuery1.Active:=True;
today := Time;

while not DBGrid1.DataSource.DataSet.Eof do
begin
  sline:=sline+', '+DBGrid1.DataSource.DataSet.FieldByName('bd_1').AsString;
end;

Memo1.Lines.Add('['+ TimeToStr(today)+']'+':Обновление статистики');
Memo1.Lines.Add(sline );
Memo1.Lines.SaveToFile(ExtractFilePath( 'logs\' ) +  'log_'+n2+'.txt');
end;

Что-то я делаю не то )

[Stilet]

with DBGrid1.DataSource.DataSet do
while not Eof do begin
  sline:=sline+', '+FieldByName('bd_1').AsString;
  next;
end;

Увидел? У тебя цикл бесконечный получился.