小 小树流 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-02 #1 Dim f As Field For Each f In recordset.Fields List1.AddItem f.Name Next f 用Delphi怎么写?
K kkyy Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-02 #2 var I: Integer; begin for I := 0 to Table1.FieldCount -1 do List1.Items.Add(Table1.Fields.Name); end;
var I: Integer; begin for I := 0 to Table1.FieldCount -1 do List1.Items.Add(Table1.Fields.Name); end;
Y yanglih Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-02 #3 procedure ListFieldName(); var table:TTable; i:integer; begin table.databasename:='your_databaseName'; table.open; for i:=0 to table.fields.count-1 do begin listbox1.items.add(table.fields.FieldName); end end;
procedure ListFieldName(); var table:TTable; i:integer; begin table.databasename:='your_databaseName'; table.open; for i:=0 to table.fields.count-1 do begin listbox1.items.add(table.fields.FieldName); end end;
小 小树流 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-02 #4 这个不是数据库,只是一个记录集 能不能按原意写? 我就想知道 For Each f In recordset.Fields Next f 的意思 谢谢
J JohnsonGuo Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-03 #5 for each f in ... 表示对某对象中的所有元素进行循环体中的语句,但Delphi并不支持这种循环结构,所以要 用其等价的循环结构来代替. RecordSet对应Delphi中的DataSet for i := 0 to DataSet.FieldCount - 1 do List1.Items.Add(DataSet.Fields.Name);
for each f in ... 表示对某对象中的所有元素进行循环体中的语句,但Delphi并不支持这种循环结构,所以要 用其等价的循环结构来代替. RecordSet对应Delphi中的DataSet for i := 0 to DataSet.FieldCount - 1 do List1.Items.Add(DataSet.Fields.Name);
