paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +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;
property ChangeCount : Integer read GetChangeCount;
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;
end;

18
fcl/db/fields.inc
View File

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