fpc/packages/libxml/examples/exutils.pas

unit exutils;

interface

{$mode objfpc}

uses
  SysUtils;

procedure printf(const msg: string; const args: array of const);
procedure printf(const msg: string);
procedure printfn(const msg: string; const args: array of const);
procedure printfn(const msg: string);

implementation

procedure printf(const msg: string; const args: array of const);
begin
  write(Format(msg, args));
end;

procedure printf(const msg: string);
begin
  write(msg);
end;

procedure printfn(const msg: string; const args: array of const);
begin
  writeln(Format(msg, args));
end;

procedure printfn(const msg: string);
begin
  writeln(msg);
end;

end.