fork download 
  1. program strlenlibc;
  2.  
  3. {$MODE DELPHI}
  4.  
  5. uses
  6.   ctypes,
  7.   SysUtils;
  8.  
  9.   function strlen(const str: PChar): cint; cdecl; external 'c' Name 'strlen';
  10.  
  11. var
  12.   str: string;
  13.   ptr: PChar;
  14. begin
  15.   str := 'FreeBSD';
  16.   ptr := PChar(str);
  17.   WriteLn(Format('String Length is %d', [strlen(ptr)]));
  18.   ReadLn;
  19. end.
  20.  
Success #stdin #stdout 0s 4460KB
comments (?)
stdin 
Standard input is empty
stdout 
String Length is 7
https://ideone.com/XzS86X
language:
Pascal (fpc 3.0.4)
created:
6 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!