paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:49:16 +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; procedure TSqliteDataset.DisposeLinkedList;
var var
TempItem:PDataRecord; TempItem:PDataRecord;
Counter:Integer; Counter,I:Integer;
begin begin
//Todo insert debug info //Todo insert debug info
FDataAllocated:=False; FDataAllocated:=False;
@ -317,8 +317,8 @@ begin
for Counter:= 0 to FOrphanItems.Count - 1 do for Counter:= 0 to FOrphanItems.Count - 1 do
begin begin
TempItem:=PDataRecord(FOrphanItems[Counter]); TempItem:=PDataRecord(FOrphanItems[Counter]);
for Counter:= 0 to FRowCount - 1 do for I:= 0 to FRowCount - 1 do
StrDispose(TempItem^.Row[Counter]); StrDispose(TempItem^.Row[I]);
FreeMem(TempItem^.Row,FRowBufferSize); FreeMem(TempItem^.Row,FRowBufferSize);
Dispose(TempItem); Dispose(TempItem);
end; end;