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

+ Fixed double use of counter

Browse Source
This commit is contained in:
michael 2004-10-25 09:16:11 +00:00
parent 6214bb294b
commit c87d51dfef
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/db/sqlite/sqliteds.pas
View File

@ -291,7 +291,7 @@ end;
procedure TSqliteDataset.DisposeLinkedList;
var
TempItem:PDataRecord;
Counter:Integer;
Counter,I:Integer;
begin
//Todo insert debug info
FDataAllocated:=False;
@ -317,8 +317,8 @@ begin
for Counter:= 0 to FOrphanItems.Count - 1 do
begin
TempItem:=PDataRecord(FOrphanItems[Counter]);
for Counter:= 0 to FRowCount - 1 do
StrDispose(TempItem^.Row[Counter]);
for I:= 0 to FRowCount - 1 do
StrDispose(TempItem^.Row[I]);
FreeMem(TempItem^.Row,FRowBufferSize);
Dispose(TempItem);
end;