[JVCL-Checkins] SF.net SVN: jvcl:[13114] trunk/jvcl/examples/JvDBExplorer/VIEWBLOB.PAS

[<ah...@us...>]

Revision: 13114
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13114&view=rev
Author:   ahuser
Date:     2011-09-13 15:43:36 +0000 (Tue, 13 Sep 2011)
Log Message:
-----------
Replaced AllocMemo/FreeMemo

Modified Paths:
--------------
    trunk/jvcl/examples/JvDBExplorer/VIEWBLOB.PAS

Modified: trunk/jvcl/examples/JvDBExplorer/VIEWBLOB.PAS
===================================================================
--- trunk/jvcl/examples/JvDBExplorer/VIEWBLOB.PAS	2011-09-11 12:08:21 UTC (rev 13113)
+++ trunk/jvcl/examples/JvDBExplorer/VIEWBLOB.PAS	2011-09-13 15:43:36 UTC (rev 13114)
@@ -121,7 +121,7 @@
       DataSize := BlobStream.Size;
       SizeLabel.Caption := Format(SBlobSize, [FormatFloat(',0', BlobStream.Size)]);
       if DataSize > 0 then begin
-        FData := AllocMemo(DataSize);
+        FData := AllocMem(DataSize);
         BlobStream.Read(FData^, DataSize);
       end;
       FHexDump.Address := FData;
@@ -137,7 +137,7 @@
 procedure TBlobViewDlg.FormDestroy(Sender: TObject);
 begin
   DataSource.OnDataChange := nil;
-  FreeMemo(FData);
+  FreeMem(FData);
   FData := nil;
 end;
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.