¿Cómo forzo al enlazador a incluir una función que necesito durante la depuración?

Question

A menudo hago pequeños métodos para ayudar a la depuración, que no se utilizan en el programa real. Normalmente, la mayoría de mis clases tienen un método AsString que agrego a los relojes. Sé Delphi 2010 tiene visualizadores, pero todavía estoy en 2007.

Considere este ejemplo:

program Project1; 

{$APPTYPE CONSOLE} 

uses SysUtils; 

type 
    TMyClass = class 
    F : integer; 
    function AsString : string; 
    end; 

function TMyClass.AsString: string; 
begin 
    Result := 'Test: '+IntToStr(F); 
end; 

function SomeTest(aMC : TMyClass) : boolean; 
begin 
    //I want to be able to watch aMC.AsString while debugging this complex routine! 
    Result := aMC.F > 100; 
end; 

var 
    X : TMyClass; 

begin 
    X := TMyClass.Create; 
    try 
    X.F := 100; 
    if SomeTest(X) 
     then writeln('OK') 
     else writeln('Fail'); 
    finally 
    X.Free; 
    end; 
    readln; 
end. 

Si añado X.AsString como un reloj, apenas consigo "la función que se llamará, TMyClass .AsString, fue eliminado por el enlazador ".

¿Cómo fuerzo al enlazador para que lo incluya? Mi truco habitual es utilizar el método en algún lugar del programa, pero ¿no hay una forma más elegante de hacerlo?

RESPUESTA: GJ proporcionó la mejor manera de hacerlo.

initialization 
    exit; 
    TMyClass(nil).AsString; 

end. 

Answer 1

sveinbringsli preguntar: "¿Tiene un consejo para las funciones de la unidad también?"

Delphi compilador es inteligente ... para que pueda hacer algo como ...

unit UnitA; 

interface 

{$DEFINE DEBUG} 

function AsString: string; 

implementation 

function AsString: string; 
begin 
    Result := 'Test: '; 
end; 

{$IFDEF DEBUG} 
initialization 
    exit; 
    AsString; 
{$ENDIF} 
end. 

Answer 2

Puede hacer que la función se publique.

TMyClass = class 
    F : integer; 
    published 
    function AsString : string; 
    end; 

y el interruptor de encendido en 'Propiedades del reloj' 'Permitir llamadas de función'

Answer 3

Tal vez funcione a llamarlos de alguna sección de inicialización, custodiadas por {DEBUG IFDEF} o {IFOPT D +}.