关于判断字段存在的问题

Question

最笨的办法有
for i := 0 to table1.fieldcount-1 do
  if 'f3'=table1.fields[i].fieldname then
  begin
    ShowMessage('f3已经存在！');
    break;
  end;菜鸟答复！请勿见笑！

Answer 1

大致的设想：把你想有的字段做成一个集合；
然后使用下面形式的循环
   for i := 0 to TADODataSet1.FieldCount - 1 
在每次循环里判断 TADODataSet1.Fields[i].FieldName 是不是在集合中。

Answer 2

function FindField(qFieldName: string): Boolean;
var
  iCnter: Integer;
begin
  table1.Open;
  Result := False;
  For iCnter := 0 to Table1.FieldCount - 1 do
  begin
    if qFieldName = Table1.Fields[iCnter].FieldName then
    begin
      Result := True;
      Break;
    end;
  end;
  table1.Close;
end;调用代码：
begin
  if FindField('Field1') then showmessage('Found')
  else showmessage('NO Found');
end;

Answer 3

function FindField(qFieldName: string): Boolean;
var
  iCnter: Integer;
begin
  table1.Open;
  Result := False;
  For iCnter := 0 to Table1.FieldCount - 1 do
  begin
    if qFieldName = Table1.Fields[iCnter].FieldName then
    begin
      Result := True;
      Break;
    end;
  end;
  table1.Close;
end;调用代码：
begin
  if FindField('Field1') then showmessage('Found')
  else showmessage('NO Found');
end;

Answer 4

那么麻烦!用这个就行 adoquery1.FindField('yourname')

Answer 5

if query1.FindField('F3')<>nil then 
  showMessage('找到了')
 else
  showmessage('no found');原定义:function FindField(const FieldName: string): TField;
详见 delphi help Search keyword "FindField"

Answer 6

function FindField(qFieldName: string): Boolean;
var
  iCnter: Integer;
begin
  table1.Open;
  Result := False;
  For iCnter := 0 to Table1.FieldCount - 1 do
  begin
    if qFieldName = Table1.Fields[iCnter].FieldName then
    begin
      Result := True;
      Break;
    end;
  end;
  table1.Close;
end;调用代码：
begin
  if FindField('Field1') then showmessage('Found')
  else showmessage('NO Found');
end;