Allows the maximum record size in TFixedDataset and descendents to be modifyed.

git-svn-id: trunk@11727 -

packages/fcl-db/src/sdf/sdfdata.pp

@@ -125,9 +125,6 @@ interface
 uses
   DB, Classes, SysUtils;
 
-const
-  MAXSTRLEN = 250;
-
 type
 //-----------------------------------------------------------------------------
 // TRecInfo
@@ -165,6 +162,7 @@ type
     FRecInfoOfs         :Integer;
     FBookmarkOfs        :Integer;
     FSaveChanges        :Boolean;
+    FMaxRecordLength    :Cardinal;
   protected
     function AllocRecordBuffer: PChar; override;
     procedure FreeRecordBuffer(var Buffer: PChar); override;
@@ -199,6 +197,7 @@ type
     function BufToStore(Buffer: PChar): String; virtual;
     function StoreToBuf(Source: String): String; virtual;
   public
+    property MaxRecordLength: Cardinal read FMaxRecordLength write FMaxRecordLength default 250;
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
     function  GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
@@ -274,20 +273,20 @@ implementation
 //-----------------------------------------------------------------------------
 constructor TFixedFormatDataSet.Create(AOwner : TComponent);
 begin
- FFileMustExist  := TRUE;
- FLoadfromStream := False;
- FRecordSize   := 0;
- FTrimSpace     := TRUE;
- FSchema       := TStringList.Create;
- FData         := TStringList.Create;  // Load the textfile into a stringlist
- inherited Create(AOwner);
+  FFileMustExist  := TRUE;
+  FLoadfromStream := False;
+  FRecordSize   := 0;
+  FTrimSpace     := TRUE;
+  FSchema       := TStringList.Create;
+  FData         := TStringList.Create;  // Load the textfile into a stringlist
+  inherited Create(AOwner);
 end;
 
 destructor TFixedFormatDataSet.Destroy;
 begin
- inherited Destroy;
- FData.Free;
- FSchema.Free;
+  inherited Destroy;
+  FData.Free;
+  FSchema.Free;
 end;
 
 procedure TFixedFormatDataSet.SetSchema(const Value: TStringList);
@@ -338,7 +337,7 @@ begin
     FData.Objects[i] := TObject(Pointer(i+1));   // Fabricate Bookmarks
   end;
   if (Maxlen = 0) then
-    Maxlen := MAXSTRLEN;
+    Maxlen := FMaxRecordLength;
   LstFields := TStringList.Create;
   try
     LoadFieldScheme(LstFields, Maxlen);
@@ -368,13 +367,13 @@ begin
   end;
   if not FLoadfromStream then
     FData.LoadFromFile(FileName);
-  FRecordSize := MAXSTRLEN;
+  FRecordSize := FMaxRecordLength;
   InternalInitFieldDefs;
   if DefaultFields then
     CreateFields;
   BindFields(TRUE);
   if FRecordSize = 0 then
-    FRecordSize := MAXSTRLEN;
+    FRecordSize := FMaxRecordLength;
   BookmarkSize := SizeOf(Integer);
   FRecInfoOfs := FRecordSize + CalcFieldsSize; // Initialize the offset for TRecInfo in the buffer
   FBookmarkOfs := FRecInfoOfs + SizeOf(TRecInfo);