EugeneBoss3
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
.....
with tbMemTable do
begin
Active := False;
with FieldDefs do
begin
Clear;
Add('IdRows',ftString,10,False);
Add('Column_01_Cal',ftInteger,0,False);
Add('Column_01_Sec',ftLargeInt,0,False);
Add('Column_01_Time',ftString,5,False);
Add('Column_02_Cal',ftInteger,0,False);
Add('Column_02_Sec',ftLargeInt,0,False);
Add('Column_02_Time',ftString,5,False);
Add('Column_03_Cal',ftInteger,0,False);
Add('Column_03_Sec',ftLargeInt,0,False);
Add('Column_03_Time',ftString,5,False);
Add('Column_04_Cal',ftInteger,0,False);
Add('Column_04_Sec',ftLargeInt,0,False);
Add('Column_04_Time',ftString,5,False);
Add('Column_05_Cal',ftInteger,0,False);
Add('Column_05_Sec',ftLargeInt,0,False);
Add('Column_05_Time',ftString,5,False);
Add('Column_06_Cal',ftInteger,0,False);
Add('Column_06_Sec',ftLargeInt,0,False);
Add('Column_06_Time',ftString,5,False);
Add('Column_07_Cal',ftInteger,0,False);
Add('Column_07_Sec',ftLargeInt,0,False);
Add('Column_07_Time',ftString,5,False);
Add('Column_08_Cal',ftInteger,0,False);
Add('Column_08_Sec',ftLargeInt,0,False);
Add('Column_08_Time',ftString,5,False);
end;
with IndexDefs do
begin
Clear;
with AddIndexDef do
begin
Name := 'IdRowsIdx';
Fields := 'IdRows';
Options := [ixCaseInsensitive];
end;
end;
CreateDataSet;
dsMemTable.DataSet:= tbMemTable;
DBGridEh1.DataSource:= dsMemTable;
DBGridEh1.Columns.AddAllColumns(true);
Active := True;
end;
.....
|
