J JamesDF Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-09 #2 var s:TStringlist; i:integer; begin s := TStrigList.Create; for i := 0 to Table1.Fields.count-1 do begin s.Add(Table1.Fields.Name); //Name的属性可以不对,记不起来了 end; comboBox.items ;= s;
var s:TStringlist; i:integer; begin s := TStrigList.Create; for i := 0 to Table1.Fields.count-1 do begin s.Add(Table1.Fields.Name); //Name的属性可以不对,记不起来了 end; comboBox.items ;= s;
S sharing21 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-09 #4 var s:TStringlist; i:integer; begin s := TStrigList.Create; Table1.GetFieldNames(s); comboBox.items ;= s; s.free;
var s:TStringlist; i:integer; begin s := TStrigList.Create; Table1.GetFieldNames(s); comboBox.items ;= s; s.free;
枪 枪手哈特 Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-09 #5 for i := 0 to Table1.Fields.count-1 do ComboBox1.Items.Add(Table1.Fields.FieldName);