[轉貼]如何利用上一記錄相同的內容,快速增加輸入記錄

[tim]

原始文章:
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=40256

cmj 兄的解法是使用了 Variant 陣列記錄了某一 record 的所有資料, 再予以使用, 除了可以節省程式碼外, 更有效的使用了 variant 的特性, 可以在不用管資料欄位的類別狀況下, 記錄所有的資訊, 相當厲害!

cmj 兄的解答:

1.定義 OldFds:variant;
2.在Tform Create事件中
OldFds := VarArrayCreate([0, DataSet.FieldCount-1], varVariant);
3.保存記錄值在DataSet之BeforePost事件中
for i:=0 to DataSet.FieldCount-1 do
OldFds:=DataSet.Fields.value;
4.下一筆新增中在Dataset之OnNewRecord事件中
for i:=0 to DataSet.FieldCount-1 do
DataSet.Fields.value:=OldFds;