use SetDefaultFields(true)
procedure TdspFIBQuery.InternalOpen;
begin
TestDataBaseTransaction;
if FieldCount < 2 then
SetDefaultFields(true);
inherited InternalOpen;
end;
--> FRecInfoOfs inaccurate
Change
Index: C:/Eigene Dateien/RAD Studio/Projekte/kauf_lib/DevExpress6/Source/dxmdaset.pas
===================================================================
--- C:/Eigene Dateien/RAD Studio/Projekte/kauf_lib/DevExpress6/Source/dxmdaset.pas (Revision 136)
+++ C:/Eigene Dateien/RAD Studio/Projekte/kauf_lib/DevExpress6/Source/dxmdaset.pas (Arbeitskopie)
@@ -2260,18 +2260,18 @@
FCurRec := -1;
FFilterCurRec := -1;
- BookmarkSize := SizeOf(Integer);
- InternalInitFieldDefs;
- if DefaultFields then CreateFields;
FRecInfoOfs := 0;
for i := 0 to FieldCount - 1 do
if not Fields[i].IsBlob then
Inc(FRecInfoOfs, GetDataSize(Fields[i]) + 1);
FRecBufSize := FRecInfoOfs + SizeOf(TdxRecInfo);
- BookmarkSize := SizeOf(Integer);
- InternalInitFieldDefs;
-
- if DefaultFields then CreateFields;
-
for i := 0 to FieldCount - 1 do
if not Fields[i].IsBlob then
FData.Add(Fields[i]);
Bernd
Steps to Reproduce:
- Compile and run the sample
Hello Bernd,
I apologize, but it is unclear to us where the problem lies. Could you please provide us with a small sample project and step-by-step instructions on how to reproduce your problem?
Thanks,
Valdemar
My sample Project
Bernd
Hello Bernd,
We have investigated your sample. I apologize, it is unclear what behavior you want to achieve. Please explain your requirements in greater detail.
We should note that you are using protected undocumented methods. So, we cannot guarantee that they will work correctly. Also, in your sample, you did not create columns, but are trying to access them.
Thanks,
Valdemar