Использую компонент DBGridEh.
Задача. Продублировать всю запись (в запись входят все поля в строчку).
Как это можно сделать?

А что с этим дублем нужно сделать?

Взять можно так, если ты используеш, например, TQuery:

Код

procedure TForm1.Button1Click(Sender: TObject); var  i: integer; begin  for i := 0 to Query1.FieldCount - 1 do    <Куда то сохраняешь дубль> := Query1.Fields[i].AsVariant; end;

PS. Понял. Тебе нужно вставить новую запись, идентичную какой то существующей?
Первый вариант, это продолжение вышенаписаного кода - ты должен сохранить данные какой то записи в массиве, а потом вставить новую, примерно так:

Код

Insert; for I := 0 to Query1.FieldCount - 1 do  Query.Fields[i].AsVariant := SavedFieldsArray[i]; Post;

Другой вариант - сделать все через SQL(Так можно продубировать n-ое количество записей разом). Примерно так:

Код

INSERT INTO Table (Val1, Val2, Val3) SELECT Val1, Val2, Val3 FROM Table Where Condition1 and Condition2 ...

Это сообщение отредактировал(а) <Spawn> - 27.10.2004, 12:15

Да нет же...
Выделить одну запись (как в Excel), скопировать и продублировать ее один раз, чтобы изменить потом какое-нибудь одно поле...

Ну дак дублируй сколько влезет, код то я тебе дал. Сохраняешь в любом массиве и меняешь как нужно. Только я не пойму зачем это нужно, когда все можно изменить в набре данных, а в случае ошибочных изменений отменить сделаные изменения.

Мне это не нужно...
Это нужно моему боссу..
Ты меня не совсем понял... Понимаешь...
Вот в таблице у меня есть строка, состоящая из нескольких полей, например, из ПРОЕКТА, МЕНЕДЖЕРА ПРОЕКТА, МЕНЕДЖЕРА ОБРАБОТКИ, ДАТА ПОЛУЧЕНИЯ ЗАДАНИЯ, ДАТА ОКОНЧАНИЯ ОБРАБОТКИ и т.д.
Вот одну такую запись (всю строку со всеми значениями полей сразу, а не по одному значению) моему боссу, прости его Господи , нужно скопировать и вставить в новую с тем, чтобы изменить одно единственное значение, например, МЕНЕДЖЕРА ОБРАБОТКИ, а все поля остаются без изменений... Все довольны и счастливы, особенно я...
Вот и бьюсь я головой об стол, до стены далече будет...

Добавлено @ 15:24
Впрочем, поробую и твой пример... Может извлеку из него толику пользы... Спасибо!

Ну дак а в чем проблема? Один пример я тебе дал уже, вот через SQL:

Код

Query1.SQL.Text := 'INSERT INTO Table1 (Value1, Value2, Value3, Manager, ..., ValueN) ' + 'SELECT Value1, Value2, Value3, :Manager, ...,ValueN FROM Table1 WHERE Condition ...'; //Condition однозначно идентифицирует нужную запись Query1.ParamByName('Manager').AsString := 'Вася Пупкин'; Query1.ExecSQL;