Re: [fpc-pascal] Silly Syntax Games

2005-06-09 Thread L505
| How about making an International Obfuscated Pascal Code Contest? :) Just for fun: http://googlefight.com/index.php?lang=en_GB&word1=%22Obfuscated+Pascal+code%22&word2=%22Obfuscated+C+code%22 I get: 13,800 to 0 That's a pretty big win. Or loss, so to say. _

Re: [fpc-pascal] Silly Syntax Games

2005-06-09 Thread L505
In fact you know what.. instead of using regular expressions, you might as well just ship the freepascal compiler with your application (buried in a DLL or .SO file or something) and write PascalObfuscations. Compile the PascalObfuscations on the fly.. and then use them immediately. For example.

Re: [fpc-pascal] Silly Syntax Games

2005-06-09 Thread L505
| How about making an International Obfuscated Pascal Code Contest? :) This program below compiles.. this is a good way to protect your source code from being read by other people. i.e or you could just use C or Perl instead. program Project1; {$mode objfpc}{$H+} {$define Z:= begin } {$def

Re: [fpc-pascal] Silly Syntax Games

2005-06-09 Thread Nikolay Nikolov
L505 wrote: But.. for all the C wussies out there.. this won't work : program Project1; {$mode objfpc}{$H+} {$define {:= begin} //this works {$define }:= end. } //this doesn't work {$define }:= end; } //this doesn't work var iLoc:integer; { for iLoc:= 1 to 60 do writeln('test') }

Re: [fpc-pascal] File-functions on various platforms??

2005-06-09 Thread Michael Van Canneyt
On Fri, 10 Jun 2005, Thomas Zastrow wrote: > > no need to use these functions, even. > > > > Michael. > > > > > > Michael, thank you very much :-) > > At the moment, I'm converting a lot of my old Delphi-Code to Lazarus / FPC. > I'm working on a project which should run on windows *and* on

Re: [fpc-pascal] File-functions on various platforms??

2005-06-09 Thread Thomas Zastrow
Michael Van Canneyt wrote: On Fri, 10 Jun 2005, Thomas Zastrow wrote: Hello, for a little FPC-/Lazarus-project I need some routines working on the filesystem - for example: "Give me (recursivly) all *mp3-Files in this directory". Searching around in the online-documenation, I found that F

[fpc-pascal] Silly Syntax Games

2005-06-09 Thread L505
For all the keyboard wussies out there: Note, for all you that are afraid of long reduntant begin/end typing, you could go {$define beg:=begin} Or program Project1; {$mode objfpc}{$H+} {$define b:= begin } {$define e:= end } {$define e:=end } var iLoc:integer; b b for iLoc:= 1 to 60 d

Re: [fpc-pascal] File-functions on various platforms??

2005-06-09 Thread Michael Van Canneyt
On Fri, 10 Jun 2005, Thomas Zastrow wrote: > Hello, > > for a little FPC-/Lazarus-project I need some routines working on the > filesystem - for example: "Give me (recursivly) all *mp3-Files in this > directory". > > Searching around in the online-documenation, I found that FPC knows functions

[fpc-pascal] File-functions on various platforms??

2005-06-09 Thread Thomas Zastrow
Hello, for a little FPC-/Lazarus-project I need some routines working on the filesystem - for example: "Give me (recursivly) all *mp3-Files in this directory". Searching around in the online-documenation, I found that FPC knows functions like FindFirst, FindNext and so on. My question is: