paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 01:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fix for bug #7269

Browse Source 
+ Use SetPacketRecords on writing PacketRecords

git-svn-id: trunk@4486 -
This commit is contained in:
joost 2006-08-23 09:48:46 +00:00
parent 96ea6d18fb
commit 216b87a3fa
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/db.pp
View File

@ -1608,7 +1608,7 @@ type
function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override; function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
property ChangeCount : Integer read GetChangeCount; property ChangeCount : Integer read GetChangeCount;
published published
property PacketRecords : Integer read FPacketRecords write FPacketRecords default 10; property PacketRecords : Integer read FPacketRecords write SetPacketRecords default 10;
property OnUpdateError: TResolverErrorEvent read FOnUpdateError write SetOnUpdateError; property OnUpdateError: TResolverErrorEvent read FOnUpdateError write SetOnUpdateError;
end; end;

18
fcl/db/fields.inc
View File

@ -474,7 +474,7 @@ end;
function TField.GetAsString: string; function TField.GetAsString: string;
begin begin
AccessError(SString); Raise AccessError(SString);
end; end;
function TField.GetOldValue: Variant; function TField.GetOldValue: Variant;
@ -620,7 +620,7 @@ end;
function TField.GetAsLargeInt: LargeInt; function TField.GetAsLargeInt: LargeInt;
begin begin
AccessError(SLargeInt); Raise AccessError(SLargeInt);
end; end;
function TField.GetAsCurrency: Currency; function TField.GetAsCurrency: Currency;
@ -736,19 +736,19 @@ end;
procedure TField.SetAsBoolean(AValue: Boolean); procedure TField.SetAsBoolean(AValue: Boolean);
begin begin
AccessError(SBoolean); Raise AccessError(SBoolean);
end; end;
procedure TField.SetAsDateTime(AValue: TDateTime); procedure TField.SetAsDateTime(AValue: TDateTime);
begin begin
AccessError(SDateTime); Raise AccessError(SDateTime);
end; end;
procedure TField.SetAsFloat(AValue: Double); procedure TField.SetAsFloat(AValue: Double);
begin begin
AccessError(SFloat); Raise AccessError(SFloat);
end; end;
procedure TField.SetAsVariant(AValue: Variant); procedure TField.SetAsVariant(AValue: Variant);
@ -768,7 +768,7 @@ end;
procedure TField.SetAsLongint(AValue: Longint); procedure TField.SetAsLongint(AValue: Longint);
begin begin
AccessError(SInteger); Raise AccessError(SInteger);
end; end;
procedure TField.SetAsInteger(AValue: Integer); procedure TField.SetAsInteger(AValue: Integer);
@ -779,13 +779,13 @@ end;
procedure TField.SetAsLargeint(AValue: Largeint); procedure TField.SetAsLargeint(AValue: Largeint);
begin begin
AccessError(SLargeInt); Raise AccessError(SLargeInt);
end; end;
procedure TField.SetAsString(const AValue: string); procedure TField.SetAsString(const AValue: string);
begin begin
AccessError(SString); Raise AccessError(SString);
end; end;
procedure TField.SetData(Buffer: Pointer); procedure TField.SetData(Buffer: Pointer);
@ -857,7 +857,7 @@ end;
procedure TField.SetVarValue(const AValue: Variant); procedure TField.SetVarValue(const AValue: Variant);
begin begin
AccessError(SVariant); Raise AccessError(SVariant);
end; end;
procedure TField.Validate(Buffer: Pointer); procedure TField.Validate(Buffer: Pointer);