請問各位,

腦袋突然打結, 想不透一個問題

我有20個欄位(例如 'A', 'B', 'C'......)
我定義了一個
const myFD : Array[0..19] of string = ('A', 'B', 'C', 'D',.....)

而我想寫一支 function 把20組值寫入到這些欄位中(欄位有 string, boolean, integer)
function InsertData(?1)
var i : integer;
begin
Query1.Append;
for i := low(myFD) to high(myFD) do
begin
Query1.FieldByName(myFD[i]).Value := ?2
end;
Query1.Post;
end;

請問, ?1 及 ?2 我該如何定義, 才能達成
原先我用 Record 方式
例如
type
TmyFDRec = Record
A : string;
B : string;
C : Integer;
D : boolean;
....
end;

但 ?1 我放進去 myValue : TmyFDRec 是可以的, 但 ?2 卻不知要如何表達語法

雖然我可以這麼下,
function InsertData(a: string; b:string; c:integer; d:boolean; e:xxxxx......)
begin
Query1.FieldByName('A').Value := a;
Query1.FieldByName('B').Value := b;
Query1.FieldByName('C').Value := c;
...
end;

但要寫一大串, 有沒有更精簡的下法, 感恩...

Hi PD大,

好像也沒什麼簡便的方式, 要用一些判斷式去判斷欄位型態
procedure TForm2.Button1Click(Sender: TObject);
var
i:Integer;
begin
ClientDataSet1.CreateDataSet;
ClientDataSet1.Append;
for I := 0 to ClientDataSet1.FieldCount-1 do
begin
if ClientDataSet1.Fields[i].DataType=ftString then
ClientDataSet1.Fields[i].AsString:='abc';
if ClientDataSet1.Fields[i].DataType=ftInteger then
ClientDataSet1.Fields[i].AsInteger:=20;
end;
end;

===================引 用 P.D. 文 章===================
請問各位,

腦袋突然打結, 想不透一個問題

我有20個欄位(例如 'A', 'B', 'C'......)
我定義了一個
const myFD : Array[0..19] of string = ('A', 'B', 'C', 'D',.....)

而我想寫一支 function 把20組值寫入到這些欄位中(欄位有 string, boolean, integer)
function InsertData(?1)
var i : integer;
begin
Query1.Append;
for i := low(myFD) to high(myFD) do
begin
Query1.FieldByName(myFD[i]).Value := ?2
end;
Query1.Post;
end;

請問, ?1 及 ?2 我該如何定義, 才能達成
原先我用 Record 方式
例如
type
TmyFDRec = Record
A : string;
B : string;
C : Integer;
D : boolean;
....
end;

但 ?1 我放進去 myValue : TmyFDRec 是可以的, 但 ?2 卻不知要如何表達語法

雖然我可以這麼下,
function InsertData(a: string; b:string; c:integer; d:boolean; e:xxxxx......)
begin
Query1.FieldByName('A').Value := a;
Query1.FieldByName('B').Value := b;
Query1.FieldByName('C').Value := c;
...
end;

但要寫一大串, 有沒有更精簡的下法, 感恩...

感謝提點, 不過要用if判斷, 我可能直接寫20個Query 指定, 在效能上可能還比較好一點哦!

搜尋網路沒找到相關的討論, 但我相信應該是有其他方法, 目前就只能一個一個指定, 雖然要寫一大堆, 暫時先結案

可透過 RTTI 功能, 來達到你的需求.
參考此網頁
https://stackoverflow.com/questions/23823731/access-all-elements-of-a-record-using-rtti

不過, 最大的問題, 是會嚴重影响執行效率.

在寫作方便性和執行效率的選取, 就看個人的選擇了.

感謝提供來源, 其實我只是看能不能少寫一點code而已, 而不用一個個指定很麻煩, 如果之後還有增刪結構, 還要再改, 很麻煩!

或許可以用 .Fields[i].DataType 先判斷欄位的資料型態，再依型態別來處理，
彈性應該比列出所有欄位來得好
參考資料：
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=83783