fork(2) download 
  1. {$mode objfpc}
  2. {$modeswitch typehelpers}  
  3. uses SysUtils;
  4.  
  5. type
  6. TPetuh = type helper for LongInt
  7.     function AssString(const aFormat: String): String;
  8. end;
  9.  
  10. function TPetuh.AssString(const aFormat: String): String;
  11. begin  
  12.   Result := Format(aFormat, [Self]);  
  13. end; 
  14.  
  15. begin
  16.     WriteLn(LongInt(42).AssString('Ответ на главный вопрос: %d.'))
  17. end.
Success #stdin #stdout 0s 576KB
comments (?)
stdin 
Standard input is empty
stdout 
Ответ на главный вопрос: 42.
https://ideone.com/lelkC1
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!