paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 09:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Joost van der Sluis

Browse Source 
- Empty recordsets don't show any bogus data anymore
  - Floatfiels.gettext fix
  - SetBufListsize fix forTDBGrid
This commit is contained in:
michael 2004-08-21 21:10:00 +00:00
parent 1e235ea9c9
commit da5a961ae0
2 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
fcl/db/dataset.inc
View File

@ -325,6 +325,7 @@ begin
{$endif} {$endif}
FRecordcount := 0; FRecordcount := 0;
RecalcBufListSize; RecalcBufListSize;
FEOF := (FRecordcount = 0);
{$ifdef dsdebug} {$ifdef dsdebug}
Writeln ('Setting state to browse'); Writeln ('Setting state to browse');
{$endif} {$endif}
@ -697,13 +698,6 @@ begin
Writeln('Setting buffer list size'); Writeln('Setting buffer list size');
{$endif} {$endif}
if (ABuffercount<FRecordcount) then
begin
for i := 0 to (FActiveRecord-ABuffercount) do
shiftbuffersbackward;
FActiverecord := ABuffercount -1;
end;
SetBufListSize(ABufferCount); SetBufListSize(ABufferCount);
GetNextRecords; GetNextRecords;
{$Ifdef dsDebug} {$Ifdef dsDebug}
@ -768,12 +762,20 @@ begin
{$ifdef dsdebug} {$ifdef dsdebug}
Writeln (' Freeing buffers :',FBufferCount-Value); Writeln (' Freeing buffers :',FBufferCount-Value);
{$endif} {$endif}
if (value > -1) and (FActiveRecord>Value-1) then
begin
for i := 0 to (FActiveRecord-Value) do
shiftbuffersbackward;
FActiverecord := Value -1;
end;
If Assigned(FBuffers) then If Assigned(FBuffers) then
begin begin
For I:=Value+1 to FBufferCount do For I:=Value+1 to FBufferCount do
FreeRecordBuffer(FBuffers[i]); FreeRecordBuffer(FBuffers[i]);
ReAllocMem(FBuffers,(Value+1)*SizeOf(Pchar)); ReAllocMem(FBuffers,(Value+1)*SizeOf(Pchar));
end; end;
if FRecordcount > Value then FRecordcount := Value;
end; end;
If Value=-1 then If Value=-1 then
Value:=0; Value:=0;
@ -1547,7 +1549,8 @@ begin
exit; exit;
end; end;
FCurrentRecord := 0; FCurrentRecord := 0;
FEOF := false;
FBOF := false;
// If we've arrived here, FBuffer[0] is the current record // If we've arrived here, FBuffer[0] is the current record
If (rmCenter in Mode) then If (rmCenter in Mode) then
@ -1685,7 +1688,13 @@ end;
{ {
$Log$ $Log$
Revision 1.19 2004-08-14 12:46:36 michael Revision 1.20 2004-08-21 21:10:00 michael
* Patch from Joost van der Sluis
- Empty recordsets don't show any bogus data anymore
- Floatfiels.gettext fix
- SetBufListsize fix forTDBGrid
Revision 1.19 2004/08/14 12:46:36 michael
+ Patch from Joost van der Sluis to implement Modified and UpdateRecord event + Patch from Joost van der Sluis to implement Modified and UpdateRecord event
Revision 1.18 2004/08/13 07:06:02 michael Revision 1.18 2004/08/13 07:06:02 michael

10
fcl/db/fields.inc
View File

@ -1049,7 +1049,7 @@ begin
TheText:=FormatFloat(fmt,E) TheText:=FormatFloat(fmt,E)
else else
} }
Text:=FloatToStrF(E,ffgeneral,FPrecision,0); TheText:=FloatToStrF(E,ffgeneral,FPrecision,0);
end; end;
procedure TFloatField.SetAsFloat(AValue: Double); procedure TFloatField.SetAsFloat(AValue: Double);
@ -1865,7 +1865,13 @@ end;
{ {
$Log$ $Log$
Revision 1.14 2004-08-01 13:00:29 michael Revision 1.15 2004-08-21 21:10:00 michael
* Patch from Joost van der Sluis
- Empty recordsets don't show any bogus data anymore
- Floatfiels.gettext fix
- SetBufListsize fix forTDBGrid
Revision 1.14 2004/08/01 13:00:29 michael
+ Patch for Tlongintfield by Joost van der Sluis + Patch for Tlongintfield by Joost van der Sluis
Revision 1.13 2004/07/19 20:27:29 michael Revision 1.13 2004/07/19 20:27:29 michael