下载了fastmm4.78,根据readme的说法,在工程文件中uses下引用了FastMM4.pas,也指定了路径,并且是放到了第一的位置,不过在编译的时候报错,
说找不到FastMM4Messages.dcu,后来我找到一个后,把两个文件都放到了工程所在的目录,倒是不报这个错,却报类似这样的错误;
[Error] FastMM4.pas(5406): Undeclared identifier: 'InvalidOperationTitle'希望哪位已经成功使用过FastMM的兄弟指点一下啊,最好能说明的详细一些,谢谢了!
library Pub;{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }uses
FastMM4 in 'FastMM4.pas',
Windows,
SysUtils,
DB,
DBClient;
说找不到FastMM4Messages.dcu,后来我找到一个后,把两个文件都放到了工程所在的目录,倒是不报这个错,却报类似这样的错误;
[Error] FastMM4.pas(5406): Undeclared identifier: 'InvalidOperationTitle'希望哪位已经成功使用过FastMM的兄弟指点一下啊,最好能说明的详细一些,谢谢了!
library Pub;{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }uses
FastMM4 in 'FastMM4.pas',
Windows,
SysUtils,
DB,
DBClient;
这是什么?
function InvalidGetMem(ASize: Integer): Pointer;
{$ifndef NoMessageBoxes}
var
LErrorMessageTitle: array[0..1023] of char;
{$endif}
begin
{$ifdef UseOutputDebugString}
OutputDebugString(InvalidGetMemMsg);
{$endif}
{$ifndef NoMessageBoxes}
AppendStringToModuleName(InvalidOperationTitle, LErrorMessageTitle);
ShowMessageBox(InvalidGetMemMsg, LErrorMessageTitle);
{$endif}
Result := nil;
end;