Кстати, а как в этом случае Grid Узнает что поменялась не текущая запись?
Или там при доступе к Value по номеру идет скрытая навигация стандартными методами TDataSet?
Через рассылку deDataSetChange, к датасету можно привязать сколь угодно гридов и при изменении данных в любом они обновятся во всех остальных.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
main.TForm1.DataSource1DataChange($17A7A20,nil)
Data.DB.TDataSource.DataEvent(???,???)
Data.DB.TDataSet.DataEvent(deDataSetChange,0)
MemTableEh.TCustomMemTableEh.DataEvent(deDataSetChange,0)
Data.DB.TDataSet.Resync([])
MemTableEh.TCustomMemTableEh.Resync([])
MemTableEh.TCustomMemTableEh.ViewDataEvent($1806458,3,rlnRecAddedEh)
MemTableDataEh.TRecordsViewEh.Notify($1806458,3,rlnRecAddedEh)
MemTableDataEh.TRecordsViewEh.DataEvent($1806458,3,rlnRecAddedEh)
MemTableDataEh.TMemTableDataEh.Notify($1806458,3,rlnRecAddedEh)
MemTableDataEh.TRecordsListEh.Notify($1806458,3,rlnRecAddedEh)
MemTableDataEh.TRecordsListEh.AddInsertRecord($1806458,-1,True,False)
MemTableDataEh.TRecordsListEh.AddRecord($1806458)
MemTableDataEh.TRecordsViewEh.AddRecord($1806458)
main.TForm1.Button1Click($1765950)
Доступ к данным каждый грид реализует по своему. В MemTableEh есть несколько способов
Для быстрого получения значения из конкретной записи без активизации события об изменении в MemTableEh, можно использовать несколько способов:
- Использовать методы DisableControls, EnableControls для деактивизации событий об изменениях в DataSet’е. Недостаток этого способа в том, что EnableControls вызывает событие об изменении DataSet’а, что приведет к перерисовке визуальных компонент подключенных к DataSet’у.
- Использовать методы InstantReadEnter, InstantReadLeave для перехода в режим InstantRead. InstantReadEnter входит в режим просмотра записей и переходит на запись в DataSet’е, определенную параметром RowNum. После этого можно читать значения записи. Каждому вызову метода InstantReadEnter, должен соответствовать вызов InstantReadLeave для выхода из режима чтения записей. В режиме InstantRead нельзя менять значения полей записи. Методы InstantReadEnter, InstantReadLeave не посылают события об изменении позиции записи внешним компонентам.
- Использовать свойства для доступа к внутренним объектам хранения данных. Внутренние объекты позволяют иметь доступ к значениям записей как к массиву данных по индексу. Кроме того, можно обратится ко всем записям внутреннего массива данных без учета локального фильтра. Для доступа к внутренним структурам данных используйте следующие свойства объекта TMemTableEh:
RecordsView: TRecordsViewEh
Ссылка на отфильтрованный список записей.
RecordsView.Rec[Index: Integer]: TMemoryRecordEh
Доступ к конкретной записи в массиве отфильтрованных значений.
RecordsView.Count: Integer
Количество записей в отфильтрованном списке. В режиме TreeView учитываются только раскрытые ветви.
RecordsView.MemTableData.RecordsList[Index: Integer]: TMemoryRecordEh
Доступ к конкретной записи в массиве всех записей.
RecordsView.MemTableData.RecordsList.Count
Количество записей в списке всех записей.
RecordsView.MemTableData.RecordsList[Index: Integer].DataValues[const FieldNames: string; DataValueVersion: TDataValueVersionEh]: Variant
Доступ к значению поля или полей в записи с номером Index.
Кроме того в любом датасете можно побегать по записям без рассылки сообщений.
22114014
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
TMyDataLink = class(TDataLink)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FMyDataLink := TMyDataLink.Create;
FMyDataLink.DataSource := DataSource1;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
FMyDataLink.ActiveRecord := FMyDataLink.ActiveRecord + 1;
end;
Этот метод сами гриды используют в процессе отрисовки себя.
