Delphiで空ではないフィールドをループで取得の方法

フィールドが空でない場合の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 ループによって Dataset のすべてのフィールドを繰り返し処理しています。各フィールドに対して、FieldByName メソッドによってフィールドの値を取得し、VarIsNull 関数によってフィールドの値が NULL かどうかを判断します。フィールドの値が NULL でなければ、任意の処理を行うことができます。この例では、NULL ではないフィールドの名前と値をメッセージボックスに出力していますが、必要に応じて処理内容を変更できます。