My Account Log In Walkthrough IDE Integrations Contact  
Polystyle
Point And Click Source Code
Formatter & Obfuscator

Click Here To Download A Free Trial!
Home Features Documentation Buy Formatter Buy Obfuscator Download  

 



  • PHP Obfuscator

  • C# Obfuscator

  • Perl Obfuscator

  • Java Obfuscator

  • Javascript Obfuscator

  • JSP Obfuscator

  • Actionscript Obfuscator

  • C/C++ Formatter

  • Perl Formatter

  • Pascal/Delphi Formatter

  • C# Formatter

  • CSS Formatter

  • CMAC Formatter

  • Java Formatter

  • Javascript Formatter

  • PHP Formatter

  • JSP Formatter

  • HTML/XML Formatter

  • Python Formatter

  • ASP Formatter

  • Visual Basic Formatter

  • Actionscript Formatter

  • Step 2: Example Delphi/Pascal Source

  • Overall Delphi/Pascal Features
  • Step 1: Unformatted Source
  • Step 2: Example Source
  • Step 3: Formatted Source

    Here's one of the Delphi/Pascal example files that come with Polystyle.

    Polystyle comes with style files for: Allman/BSD, Ellemtel, GNU, Kernighan & Ritchie, One True Brace Style, Unix Kernel, Linux Kernel, Stroustrup, Sun Microsystems, and Whitesmith.

    Each example file come in various indent styles, such as 2-space, 1-tab, 4-space, and others.

    Your style is easily configured using the Configuration Tool.

    To define your style, you simply edit an example file however you like.


    {
    *
    * This is a recommended Polystyle Delphi/Pascal example.
    * Reformat this file as you like to define your personal style. This means
    * changing the whitespace padding between tokens, placement of newlines, and
    * the indents to match your style.
    *
    * You may add snippets of code to this file to elaborate on your style,
    * but it is recommended that you not remove code.
    * 
    * Polystyle ignores the placement of comments in the example file.
    * 
    * To set things such as your page width and indent character, use the 
    * Configuration Tool that comes with Polystyle.
    * 
    * ---
    * 
    * Copyright 2001-2003 Flashbulb Studios.
    *
    * http://Polystyle.com
    *
    }
    
    exports
      a resident,
      b,
      c;
    
    interface
    
    uses
      Messages, Graphics, ShellApi;
    
    resourcestring
      a = 'b';
    
    type
      MyType = packed record // record with one element
        Obj : AType;
      end;    
    
      MyType = packed record // record with multiple elements
        Obj : AType;
    
        Obj : AType;
      
        Obj : AType;
      end;
    
      MyClass = class( a, b, c )[ GUID ]
        property prop[ a : b ] : TProp name b read c write d;
    
        property p;
    
        property z;
      
        private
          property z;
      
          property z;
        
          property z;
        
        private
          property z;
      end;
    
    label x, y, z;
    
    implementation
    
    function MyFunc; external Extrnl name 'myName';
    
    procedure MyProc( Send : TObject; Shift : State; F, G : Integer ) of class;
    var
      Box : Array [ 1..n ] of double;
      
      a : b absolute c;
    
      a : MyType; stdcall = ( (a : b; a : b; a : b), a, b );
    
    begin
      repeat
        x;
      until x in y;
      
      lbl :
      with( x ) do
        x;
      
      try
        x;
      except on exc do
        x;
      end;
      
      case mode of
        0 : a;
        1 : b;
        2 : c;
        else
          x;
      end;
      
      raise x;
      
      asm
        assembler instructions; 
        formatting unchanged;
      end;
    
      goto lab;
    
      inline( > x / v );
      
      for x to 10 do y;
      
      if x then
        Begin
          x;
        end
      else
        Begin
          x
        end;
      
      while( x ) do
        Begin
          x
        end;
      
      [ 0..1 ];
      
      'string'#0'string';
      
      -x;
      
      a.b^.c := d;
      
      inherited func( a, b, c );
      
      x + x[ x ] * x > x >> not ( @x );
    end;
    
    initialization
      x;
      
      x;
    
      x;
    end.
    

    Next, in Step 3 we get the final result!

  • Home Features Documentation Buy Polystyle Buy Obfuscator Download  

    Click Here To Download A Free Trial!

    Copyright © Flashbulb Studios. All rights reserved.