Sagen wir mal, ich will im Debugging-Profil das Heaptrace-Log einbinden, im Release-Profil aber nicht. (Ich habe das z.B. in jedem Projektquelltext prinzipiell eingebunden.
Code: Alles auswählen
program xyz;
{$mode objfpc}{$H+}
uses
heaptrc, // <===
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}
clocale,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
SysUtils,
DefaultTranslator,
lazcontrols,
Main,
wcomp;
begin
DeleteFile(ExtractFilePath(ParamStr(0)) + 'heaptrc.trc'); // <===
SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + 'heaptrc.trc'); // <===
Application.Title := rsApplicationTitle;
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
Bin für jeden sachdienlichen Hinweis dankbar.
Aldicek