procedure TForm1.Button2Click(Sender: TObject);var i: Integer; Info: String; begin Info := 'The fields of table ' + Table1.TableName + ' are:'#13#10#13#10; for i := 0 to Table1.FieldCount - 1 do Info := Info + Table1.Fields[i].FieldName + #13#10; ShowMessage(Info); end;
给firing_sky,我不是想使用table。而是要使用table.
var i:integer; i:=query1.fields[0].value; or i:=query1.fieldbyname('filedname').asinteger;//asfloat
query.edit;
query.fieldbyname('field').asstring:='test';
query.post;
i: Integer;
Info: String;
begin
Info := 'The fields of table ' + Table1.TableName +
' are:'#13#10#13#10;
for i := 0 to Table1.FieldCount - 1 do
Info := Info + Table1.Fields[i].FieldName + #13#10;
ShowMessage(Info);
end;
i:=query1.fields[0].value;
or
i:=query1.fieldbyname('filedname').asinteger;//asfloat
怎么问题这么奇怪!