Скачать: CL | DM;

SetField, AppendRecord   Найти похожие ветки 

← →
Ирина   (2005-07-14 14:40) [0]

Как с помощью функций SetField и AppendRecord переносить поля из DataSet, т.е. что надо писать в скобках??

---

← →
Johnmen ©   (2005-07-14 14:42) [1]

Ну если нет букварей, то хотя бы F1 работает?

---

← →
Val ©   (2005-07-14 14:55) [2]

>[1] Johnmen ©   (14.07.05 14:42)
тсс. сейчас модно ставить делфи без хелпа ;)

---

← →
Johnmen ©   (2005-07-14 14:58) [3]

>Val ©   (14.07.05 14:55) [2]

:)
Я тоже заметил...

---

← →
Ирина   (2005-07-14 15:22) [4]

Спасибо за помощь!

---

← →
ANB ©   (2005-07-14 15:23) [5]

> Ирина   (14.07.05 15:22) [4]
- уточни задачу. А кусок хелпа запостить недолго.

---

← →
Ирина   (2005-07-14 15:44) [6]

>ANB ©   (14.07.05 15:23) [5]
Необходимо из одного DataSet в другую перенести запись из нескольких полей

---

← →
Ирина   (2005-07-14 15:45) [7]

>запись из нескольких полей
...состоящая из нескольких полей

---

← →
ANB ©   (2005-07-14 16:46) [8]

procedure TForm2.Button1Click(Sender: TObject);
var i, n;
begin
// Не забыть, что DataSetTo должен быть открыт (Open) или открыть его здесь
n := DataSetTo.FieldCount - 1;
DataSetFrom.First; // Или Open, если он закрыт.
while (not DataSetFrom.Eof) do begin
 DataSetTo.Append;
 for i := 0 to n do begin
  DataSetTo.FieldByName(DataSetFrom.Fields[i].FieldName).AsString
  := DataSetFrom.Fields[i].AsString;
 end;
 DataSetTo.Post;
 DataSetFrom.Next;
end;
// Здесь можно заклозить все дейтасеты, если надо
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c