| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
копирование определенного набора данных из dbgrid в clipboard [D7, XP]
kate158 © (2008-10-15 17:00:00)Здравствуйте,мастера!Помогите разобраться с простой вещью.Нужно скопировать определенный столбец из таблицы в БД,допутим 6.Есть код:
procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
dbgrid3.DataSource.DataSet.First;
while not dbgrid3.DataSource.DataSet.EOF do
begin
for i := 0 to (dbgrid3.DataSource.Dataset.FieldCount - 1) do
Clipboard.AsText:=(dbgrid3.DataSource.Dataset.Fields[5].AsString);
dbgrid3.DataSource.DataSet.Next;
end;
end;
в буфер копируется только последняя запись,а нужен весь столбец полностью.как изменить код?
Anatoly Podgoretsky (2008-10-16 14:10:00) [1]> Плохиш (16.10.2008 13:55:37) [37]
Ну подумаешь НЕ пропустил
Anatoly Podgoretsky (2008-10-16 14:07:00) [2]> Сергей М. (16.10.2008 13:31:36) [36]
Ну и немного кода, например без разделителей значений
Плохиш (2008-10-16 13:55:00) [3]
> Anatoly Podgoretsky © (16.10.08 12:30) [33]
> > Сергей М. (16.10.2008 12:13:29) [29]
>
> А как узнать конец или нет?
> Но я против палки вообще
Прям фрейдизм какой-то :-))))
Сергей М. (2008-10-16 13:31:00) [4]
> Anatoly Podgoretsky © (16.10.08 13:16) [35]
> что нам известно о реальной задаче?
Да собственно ничего..
Только "как скопировать"
Anatoly Podgoretsky (2008-10-16 13:16:00) [5]> Сергей М. (16.10.2008 12:35:34) [34]
Ну с стринглист и разделитель не нужен, но что нам известно о реальной задаче?
Сергей М. (2008-10-16 12:35:00) [6]
> Anatoly Podgoretsky © (16.10.08 12:30) [33]
> как узнать конец или нет?
Дык а стринглист-то почему начал фигурировать ?
Как раз потому что при его использовании о конце и его прощупывании заботиться не надо)
Хотя я тоже за CSV- или TSV-формат - под него заточены все более-менее приличные приложения, позволяющие импорт текста из клипборда
Anatoly Podgoretsky (2008-10-16 12:30:00) [7]> Сергей М. (16.10.2008 12:13:29) [29]
А как узнать конец или нет?
Но я против палки вообще, принято или запятая или табуляция, но все зависит от задачи.
stas (2008-10-16 12:22:00) [8]
> kate158 © (16.10.08 12:14) [30]
тогда так :-D
aStrList.Add('|***'+aDataset.Fields[5].AsString + '***|' );
Сергей М. (2008-10-16 12:17:00) [9]А, ну да ..
Я сообразил - смайлик это, чтоб юзеру веселей было)
kate158 (2008-10-16 12:14:00) [10]
> Сергей М. © (16.10.08 12:13) [29]
для красоты :D
Сергей М. (2008-10-16 12:13:00) [11]
> kate158 © (16.10.08 12:12) [28]
А палка-то зачем на конце ?)
kate158 (2008-10-16 12:12:00) [12]эмм..что-то типа этого
aStrList.Add(aDataset.Fields[5].AsString + '|' );
Плохиш (2008-10-16 12:05:00) [13]
> можно и стринглист,aStrList.Add(s);
И что это заsтакой?
kate158 (2008-10-16 09:34:00) [14]
> Плохиш © (15.10.08 18:41) [15]
> Anatoly Podgoretsky © (15.10.08 19:25) [18]
+'_'
> Anatoly Podgoretsky © (15.10.08 19:00) [16]
я предпочитаю не светиться.)
> Сергей М. © (15.10.08 19:35) [19]
можно и стринглист,aStrList.Add(s);
Казалось,что сессия уже давно закрыта.)
Anatoly Podgoretsky (2008-10-15 20:47:00) [15]> Сергей М. (15.10.2008 19:57:23) [23]
Ну примерно так и было :-)
Сергей М. (2008-10-15 20:08:00) [16]
> Anatoly Podgoretsky © (15.10.08 19:51) [22]
Упс !
С Катюшей ю дыд ит эген ?)
Сергей М. (2008-10-15 19:57:00) [17]
> Anatoly Podgoretsky © (15.10.08 19:51) [22]
> Однажды Бритни Спирс узрел.
Типа ты ей про формулу S + N втёр, а она тебе фотку в благодарность ?)
Anatoly Podgoretsky (2008-10-15 19:51:00) [18]> Сергей М. (15.10.2008 19:45:21) [21]
Я стараюсь верить в хорошее.
Однажды Бритни Спирс узрел.
Сергей М. (2008-10-15 19:45:00) [19]
> Anatoly Podgoretsky © (15.10.08 19:40) [20]
Ты думаешь, мы могли бы там что-то выдающееся узреть ?
Anatoly Podgoretsky (2008-10-15 19:40:00) [20]> Сергей М. (15.10.2008 19:35:19) [19]
И про фотку вопрос мимо ушей пропустила.
| |
Страницы: 