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; procedure TForm1.Button1Click(Sender: TObject); begin ClientDataSet1.Insert; ClientDataSet1.FieldByName('QUANTITY').AsInteger := StrToInt(Edit1.Text); ClientDataSet1.Post;end;
FieldByName 就好比for循环查找一样。
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Insert;
ClientDataSet1.FieldByName('QUANTITY').AsInteger := StrToInt(Edit1.Text);
ClientDataSet1.Post;end;