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]

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

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

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;

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