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

* Patch from Luiz Americo

Browse Source 
- fixes a memory leak in TBlobField.GetAsString
This commit is contained in:
michael 2005-03-15 22:44:22 +00:00
parent 7b3db009fc
commit 26a24e1488
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/db/fields.inc
View File

@ -1823,8 +1823,8 @@ var
Stream: TStream; Stream: TStream;
begin begin
Stream := GetBlobStream(bmRead); Stream := GetBlobStream(bmRead);
if Stream<>nil then if Stream <> nil then
With GetBlobStream(bmRead) do With Stream do
try try
SetLength(Result,Size); SetLength(Result,Size);
ReadBuffer(Pointer(Result)^,Size); ReadBuffer(Pointer(Result)^,Size);
@ -2190,7 +2190,11 @@ end;
{ {
$Log$ $Log$
Revision 1.26 2005-03-01 14:00:53 joost Revision 1.27 2005-03-15 22:44:22 michael
* Patch from Luiz Americo
- fixes a memory leak in TBlobField.GetAsString
Revision 1.26 2005/03/01 14:00:53 joost
- Fix to avoid scientific format in TDBCFields from Jesus Reyes - Fix to avoid scientific format in TDBCFields from Jesus Reyes
Revision 1.25 2005/02/28 16:19:07 joost Revision 1.25 2005/02/28 16:19:07 joost