Re: [fpc-pascal] Is such memory statistics possible?

2011-08-19 Thread Max Vlasov
On Mon, Aug 15, 2011 at 1:03 PM, Marco van de Voort mar...@stack.nl wrote: In our previous episode, Max Vlasov said: about collecting some statistics. The idea is similar to some disk utilities that collects and sort the sizes of directories. You know when every folder on the computer

[fpc-pascal] TTimeStamp and TBCD properties of a class cannot published?

2011-08-19 Thread Gerard Visent
Hi all, I am developing a new app using a persistence framework initially developed for Delphi. The following code doesn't compile: published property AsTimeStamp: TTimeStamp read GetAsTimeStamp write SetAsTimeStamp; published property AsBCD: TBCD read GetAsBCD write SetAsBCD; The

RE : [fpc-pascal] Is such memory statistics possible?

2011-08-19 Thread Ludo Brands
Based on this discussion and the following research I made an attempt to implement something like this for fpc/lazarus. The final result are a couple of units and a dialog that allows to see the results in any time inside the program. You can see the real example in the screenshot:

Re: RE : [fpc-pascal] Is such memory statistics possible?

2011-08-19 Thread Max Vlasov
On Fri, Aug 19, 2011 at 3:26 PM, Ludo Brands ludo.bra...@free.fr wrote: ** Based on this discussion and the following research I made an attempt to implement something like this for fpc/lazarus. The final result are a couple of units and a dialog that allows to see the results in any

RE : RE : RE : [fpc-pascal] Is such memory statistics possible?

2011-08-19 Thread Ludo Brands
OK compiles now. I tested this with 2 programs but when I include uProcMemMon as the first unit in lpr and define -dPROCMEMMON then they both crash with a sigsegv. Undefine PROCMEMMON and they run fine. I've attached a small testprogram that crashes in bufdataset. Just a small copy paste

[fpc-pascal] Suggestions on array allocation pattern/rules of thumb?

2011-08-19 Thread Flávio Etrusco
Hello, In Lazarus I found (pseudo)some code like this: procedure DoSomething(...) var v_Results: PInteger; v_ResultCount: Integer; begin v_Result := nil; PrepareData(..., v_Results, v_ResultCount); InternalDoSomething(v_Results, v_ResultCount); end; procedure PrepareData(..., var