Насколько помню, сначала FieldDefs заполняются. Затем Fields и дергается CreateDataSet.
Очистил все определения полей, которые назначал в дезайн тайме.
Написал такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
procedure TfmRepairObject.DrawTableSchedule;
var
procedure AddNewField(AFieldName: string; AFieldType: TFieldType);
var
fd: TFieldDef;
f: TField;
begin
fd := MemTableSchedule.FieldDefs.AddFieldDef;
fd.DataType := AFieldType;
fd.Name := AFieldName;
f := fd.CreateField(MemTableSchedule);
end;
begin
q := TBISMySQLQuery.Create;
q2 := TBISMySQLQuery.Create;
try
MemTableSchedule.DestroyTable;
AddNewField('id', ftInteger);
AddNewField('sequence_number', ftInteger);
AddNewField('group_path', ftString);
AddNewField('technic_process_name', ftString);
AddNewField('abbreviation', ftString);
AddNewField('sector_name', ftString);
AddNewField('unit_name', ftString);
AddNewField('quantity', ftInteger);
AddNewField('note', ftString);
AddNewField('m1', ftInteger);
AddNewField('mh1', ftInteger);
MemTableSchedule.CreateDataSet;
MemTableSchedule.Open;
MemTableSchedule.EmptyTable;
// Заполняем строки
....
if q.Open > 0 then
begin
while not q.Q.Eof do
begin
MemTableSchedule.Append;
MemTableSchedule.FieldByName('id').AsInteger := q.Q.FieldByName('id').AsInteger;
MemTableSchedule.FieldByName('sequence_number').AsInteger := q.Q.FieldByName('sequence_number').AsInteger;
MemTableSchedule.FieldByName('group_path').AsString := q.Q.FieldByName('group_path').AsString;
MemTableSchedule.FieldByName('technic_process_name').AsString := q.Q.FieldByName('technic_process_name').AsString;
MemTableSchedule.FieldByName('abbreviation').AsString := q.Q.FieldByName('abbreviation').AsString;
MemTableSchedule.FieldByName('sector_name').AsString := q.Q.FieldByName('sector_name').AsString;
MemTableSchedule.FieldByName('unit_name').AsString := q.Q.FieldByName('unit_name').AsString;
MemTableSchedule.FieldByName('quantity').AsInteger := q.Q.FieldByName('quantity').AsInteger;
MemTableSchedule.FieldByName('note').AsString := q.Q.FieldByName('note').AsString;
MemTableSchedule.FieldByName('m1').AsInteger := 5;
MemTableSchedule.FieldByName('mh1').AsInteger := 10;
MemTableSchedule.Post;
q.Q.Next;
end;
end;
Ошибок не выдает, но теперь сетка пустая. До того, как в рантайме создавал поля, хотя бы данные отображались (кроме m1 и mh1). Теперь не отображается ничего.
