Category: Database
Title: Add field to table at runtime
Date added: 15.03.2006
Hits: 9998


procedure TForm1.Button1Click(Sender: TObject);
var
  Field: TField;
  i: Integer;
begin
  Table1.Active:=False;
  for i:=0 to Table1.FieldDefs.Count-1 do
    Field:=Table1.FieldDefs[i].CreateField(Table1);

  Field:=TStringField.Create(Table1);
  with Field do
  begin
    FieldName:='New Field';
    Calculated:=True;
    DataSet:=Table1;
  end;
  Table1.Active:=True;
end;

1. How to get the table version? (3118 Hits)

2. How to select a random data record? (3694 Hits)

3. How to add a Row Number in your DBGrid? (9186 Hits)

4. How to create a table including an AutoInc field (ADO/MSSQL)? (7524 Hits)

5. How to get Rid Of the Annoying SQL Wait Cursor? (2962 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.