don't have a Delphi in reach for the moment to verify, but you could do that to a const (if you enable the assignable constants setting)
procedure SomeProc; const someconst: Integer = 22; begin //blabla someconst := 42; //yadda yadda end; ----- "Sven Barth" <pascaldra...@googlemail.com> schreef: > Well... seems like you didn't notice this feature yet :D > > I'm talking about this: > > === source begin === > > procedure SomeProc; > var > somevar: Integer = 42; > begin > > end; > > === source end === > > This works in FPC, but doesn't in Delphi ;) > > Regards > Sven > > Am 26.07.2011 21:27, schrieb Jorge Aldo G. de F. Junior: > > I dont like to take local variable initialization for granted. > > > > Even if the manual says that its guaranteed that a local variable > will > > start with 0, > > i prefer to initialize everything to a known value myself. > > > > An aditional > > > > Move $varaddress, 00 > > > > at startup wont slow things down noticeably when your pc is running > at 2ghz... > > > > This unit needs to take care of big endian vs. low endian (maybe a > $define ?) > > > > When i wrote that code i did not pay attention to this... > > > > Anything more complex (like interacting with DHCP server) would be > too > > complex and probably dependent on external units (like synapse x > lnet > > etc). Some people might prefer to use other library instead of the > > default choosen one, etc... > > > > 2011/7/26 Sven Barth<pascaldra...@googlemail.com>: > >> On 26.07.2011 01:23, Paul Nicholls wrote: > >>> > >>> "Jorge Aldo G. de F. Junior" > >>> <jagf...@gmail.com> wrote in message > >>> > news:CAAHHabS9aUe9gwyNjkve-XVXsRyf2UPsArh6=fsdpgokugj...@mail.gmail.com... > >>>> > >>>> Some time ago someone asked for a library able to do network > >>>> calculations. > >>>> > >>>> Here is something that might evolve into such library : > >>>> > >>> <SNIP> > >>>> > >>>> Function NetMaskToHostMask(NetMask : TNetworkIP): TNetworkIP; > >>>> Begin > >>>> Result.Mode := False; > >>>> NetMask.Mode := False; > >>>> Result.IP := NetMask.IP Xor %11111111111111111111111111111111; > >>>> End; > >>>> > >>> <SNIP> > >>> > >>> I didn't know that freepascal handled binary formatted numbers?!? > >>> > >>> %11111111111111111111111111111111 > >> > >> There are often new things one can learn about what FPC supports ;) > (though > >> binary numbers are already old for me ^^) > >> > >> The most recent finding (at least for me) was the abbility to > initialize > >> local variables. > >> > >> Regards, > >> Sven > >> > >> _______________________________________________ > >> fpc-pascal maillist - fpc-pascal@lists.freepascal.org > >> http://lists.freepascal.org/mailman/listinfo/fpc-pascal > >> > > _______________________________________________ > > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
