Что такое TFDDatSRow?
Я использую Делфи 10.3. Я пытаюсь создать базу данных памяти, добавить в нее данные и найти в ней данные.
Я написал следующий код, ссылаясь на других, и он работает хорошо.
procedure TForm1.DataAppendFind;
var
_FieldDef: TFieldDef;
_FDDatsRow: TFDDatSRow;
i: Integer;
begin
_FieldDef := FDMemTable1.FieldDefs.AddFieldDef;
_FieldDef.Name := 'field1';
_FieldDef.DataType := ftInteger;
_FieldDef := FDMemTable1.FieldDefs.AddFieldDef;
_FieldDef.Name :='field2';
_FieldDef.DataType := ftString;
_FieldDef.Size := 10;
FDMemTable1.CreateDataSet;
FDMemTable1.Append;
FDMemTable1.FieldValues['field1'] := 1;
FDMemTable1.FieldValues['field2'] := 'one';
FDMemTable1.Append;
FDMemTable1.FieldValues['field1'] := 2;
FDMemTable1.FieldValues['field2'] := 'two';
FDMemTable1.First;
for i := 0 to FDMemTable1.RecordCount - 1 do
begin
_FDDatsRow := FDMemTable1.GetRow;
if _FDDatsRow.Values['field1'] = 2 then
begin
Caption := _FDDatsRow.ValueS['field2'];
end;
FDMemTable1.Next;
end;
end;
Я не могу понять TFDDatSRow, потому что я пытался найти его по ссылкам Delphi и найти его в Google. Но четкого документа по этому поводу нет. Я могу предположить, что это похоже на строку, но это не строка, потому что у нее длинное и сложное имя, а не просто tROW.
Что такое TFDDatSRow, почему о нем нет упоминания и где я могу получить правильную информацию об этом? И, наконец, правильный ли код выше?
Ответы 1
Да, ваш код работает правильно. Признаюсь, я не сталкивался с TFDDatSRow перед вашим вопросом, но, посмотрев на него, становится совершенно очевидно, для чего он нужен.
Все компоненты набора данных FireDAC происходят от TDataSet и поэтому соответствуют
с его способом моделирования операций с набором данных, то есть, в то время как набор данных
открыт, он имеет логический курсор, который находится «над» ровно одной записью в наборе данных
и это та запись, «активная» в терминах Delphi, над которой выполняются такие операции, как Edit, Post, FieldByName.
и т.д. Это прекрасно работает, но делает невозможными некоторые операции, например работу
на двух записях одновременно, например. когда вы хотите обменять значения между двумя
разные записи, потому что они не могут одновременно быть активными записями набора данных.
Я сказал, что довольно очевидно, для чего нужен TFDDatSRow, и одно — разрешить именно такой одновременный доступ к 2 или более записям возможен.
Например, этот код
FDMemTable1.First;
FDDatsRow1 := FDMemTable1.GetRow;
FDMemTable1.Next;
FDDatsRow2 := FDMemTable1.GetRow;
FDDatSRow1.BeginEdit;
FDDatSRow1.Values['Field2'] := FDDatSRow2.Values['Field2'];
FDDatSRow1.EndEdit(False);
позволяет передавать данные из второй строки в первую таким образом, чтобы было бы невозможно без TFDDatSRow.
Почему это не задокументировано? Не знаете, спросите у EMBA.
Как я узнал о его методах? Просто, я объявил переменную
var FDDatSRow1 : TFDDatSRow;
а затем набрал
FDDatSRow1.
и завершение кода IDE выдало их.
Кроме того, выбор TFDDatSRow и выполнение Ctrl-Click приводит меня к его объявлению
в блоке FireDac.DatS. Глядя туда, автор FireDAC, очевидно,
иметь в виду гораздо больше, чем показано в моем примере.
Ввиду того, что вы сказали в более ранней версии вашего комментария, вы можете взглянуть на учебник по работе с наборами данных в Delphi: см., например, etutorials.org/Programming/mastering+delphi+7/…. Хотя он был написан для более ранней версии Delphi до того, как был добавлен FireDAC, он по-прежнему применим.
Я очень ценю ваш добрый и деликатный ответ. Кажется, моя версия сообщества не позволяет перейти к источнику TFDDatSRow. Мне не нужна такая работа. Просто использование tFDDataSet.Lookup выглядит нормально.