在 Delphi 中循環取非空字段，可以使用 While 循環結合 FieldByName 方法來實現。下面是一個示例代碼：
var
i: Integer;
fieldName: string;
fieldValue: Variant;
begin
i := 0;
while i < DataSet.FieldCount do
begin
fieldName := DataSet.Fields[i].FieldName;
fieldValue := DataSet.FieldByName(fieldName).Value;
// 判斷字段值是否為空
if not VarIsNull(fieldValue) then
begin
// 處理非空字段值
// ...
// 在這里添加你的處理邏輯
// 輸出非空字段的名稱和值
ShowMessage('Field Name: ' + fieldName + ', Field Value: ' + VarToStr(fieldValue));
end;
Inc(i);
end;
end;
以上代碼中，我們使用 While 循環遍歷數據集的所有字段。對于每個字段，我們通過 FieldByName 方法獲取字段的值，并使用 VarIsNull 函數判斷字段值是否為空。如果字段值不為空，我們可以進行相應的處理。在本例中，我們將非空字段的名稱和值輸出到消息框中，你可以根據實際需求進行修改。
