paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use MergeSort instead of InsertSort on opening database

Browse Source 
* Always fetch all records when there are some indexes

git-svn-id: trunk@9759 -
This commit is contained in:
joost 2008-01-14 21:12:07 +00:00
parent 923aac0390
commit 611e07202d
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-db/src/base/bufdataset.pas
View File

@ -160,6 +160,7 @@ type
FBlobBuffers : array of PBlobBuffer;
FUpdateBlobBuffers: array of PBlobBuffer;
procedure FetchAll;
procedure BuildIndex(var AIndex : TBufIndex);
function GetIndexDefs : TIndexDefs;
{$IFDEF ARRAYBUF}
@ -373,6 +374,12 @@ begin
inherited destroy;
end;
procedure TBufDataset.FetchAll;
begin
repeat
until (getnextpacket < FPacketRecords) or (FPacketRecords = -1);
end;
procedure TBufDataset.BuildIndex(var AIndex: TBufIndex);
var PCurRecLinkItem : PBufRecLinkItem;
p,l,q : PBufRecLinkItem;
@ -401,6 +408,8 @@ var PCurRecLinkItem : PBufRecLinkItem;
begin
// This simply copies the index...
if not assigned(AIndex.Fields) then
AIndex.Fields := FieldByName(AIndex.FieldsName);
{$IFNDEF ARRAYBUF}
case AIndex.Fields.DataType of
ftString : Comparefunc := @DBCompareText;
@ -695,8 +704,7 @@ end;
procedure TBufDataset.InternalLast;
begin
repeat
until (getnextpacket < FPacketRecords) or (FPacketRecords = -1);
FetchAll;
with FCurrentIndex^ do
{$IFDEF ARRAYBUF}
if FLastRecInd <> 0 then FCurrentRecInd := FLastRecInd;
@ -1069,9 +1077,6 @@ begin
FRecordArray[FLastRecInd]:=IntAllocRecordBuffer;
end;
for IndexNr:= 1 to FIndexesCount-1 do
AddRecordToIndex(FIndexes[IndexNr],pb);
pb := pchar(FCurrentIndex^.FRecordArray[FCurrentIndex^.FLastRecInd]);
{$ELSE}
with FIndexes[0] do
@ -1079,9 +1084,6 @@ begin
FLastRecBuf^.next := pointer(IntAllocRecordBuffer);
FLastRecBuf^.next^.prior := FLastRecBuf;
for IndexNr:= 1 to FIndexesCount-1 do
AddRecordToIndex(FIndexes[IndexNr],FLastRecBuf);
FLastRecBuf := FLastRecBuf^.next;
pb := pchar(pointer(FLastRecBuf)+sizeof(TBufRecLinkItem)*FMaxIndexesCount);
@ -1139,6 +1141,8 @@ begin
begin
Result := grEOF;
FAllPacketsFetched := True;
if FIndexesCount>0 then for x := 1 to FIndexesCount-1 do
BuildIndex(FIndexes[x]);
Exit;
end;
@ -1949,14 +1953,16 @@ begin
DatabaseError(SMaxIndexes);
{$ENDIF}
InternalAddIndex(AName,AFields);
// If not all packets are fetched, you can not sort properly.
FPacketRecords:=-1;
if not active then
FPacketRecords:=-1;
InternalAddIndex(AName,AFields);
end;
procedure TBufDataset.InternalAddIndex(const AName, AFields: string);
var StoreIndNr : Integer;
begin
if Active then FetchAll;
if FIndexesCount>0 then
StoreIndNr:=FCurrentIndex^.IndNr
else