On Fri, Jun 22, 2018 at 5:13 PM, Florian Klämpfl <flor...@freepascal.org> wrote:
>
> {$macro on}
>
> {$define TypeStr:=specialize _TypeStr}
>
> begin
>   Writeln(TypeStr<TMyRecord>);
> end.

Can I use the same idea but for units?

Like this:

{$macro on}

uses
  {$ifdef debug}
    foo_debug
    {$define foo := foo_debug}
  {else}
    foo_run;
    {$define foo := foo_run}
 {$enfif}

begin
  foo.SomeFunc;
end;
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to