[fpc-devel] How to force the child's constructor to call its parent constructor

Is there any way to force the child constructor to call its parent(direct parent) constructor. Consider the following case: TParent= class (TObject) private ID: Integer; public constructor Create (MyIdentifier: Integer); end; I want to force the all childs of TParent to

Re: [fpc-devel] How to force the child's constructor to call its parent constructor

Joao Morais wrote: amir wrote: I want to force the all childs of TParent to call the Create constructor (with appropriate parameter). But one can implement a child class like this: constructor TChild.Create; begin // do any thing but not use inherited. end; No way. But you can

Re: [fpc-devel] How to force the child's constructor to call its parent constructor

It is a run-time error but what I am looking for is an compile-time error. It is not sensible(for me) to raise an exception because of bad implementation. Thanks for you idea ;) Amir Michael Schnell wrote: Couldn't you check the ID in your after construction event and throw an exception

[fpc-devel] How to use fpFlock?

Hi, I have many process wanting to write in a file. Each process is going to open the file as a writeonly (using Assignfile and rewrite or fpOpen with o_WrOnly). But there is a risk that two processes simultaneously trying to write a message in the file. I want to use fpflock to avoid this.

Re: [fpc-devel] How to use fpFlock?

that try to write to the file, and the process that created the mutex is the only one that can write to that file. You of course remove it when you closed the file. Just an idea... Ido On Fri, May 2, 2008 at 5:35 AM, amir [EMAIL PROTECTED] wrote: Hi, I have many process wanting to write

Re: [fpc-devel] How to use fpFlock?

for a given file at a given time. LOCK_EX Place an exclusive lock. Only one process may hold an exclusive lock for a given file at a given time. LOCK_UN Remove an existing lock held by this process. Ido On Tue, May 6, 2008 at 9:38 AM, amir [EMAIL PROTECTED] wrote: So

[fpc-devel] FpFlock with Text as argument

and both processes can access the file. Both print After Flock. Then I modify the code, and used fpopen instead of AssignFile and passed the cInt variable to fpflock . This worked. I attached the codes of both experiments. Amir program FLockTest; uses BaseUnix, Unix; var InputFile: TextFile

[fpc-devel] Convert time to GMT

kernel time which is in GMT). I also found two functions for reading the local timezone but they are located in Unix and OLDUnix units. Do they have an implementation on Windows? Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http

Re: [fpc-devel] Faster InitObject

On 02/23/2012 02:59 AM, Hans-Peter Diettrich wrote: Amir schrieb: Hi, I have a code, developed in object pascal, with many classes. The project is working fine. Today, I used callgrind (valgrind --tool=calgrind) to see which function consumes the most execution time and I noticed that the most

Re: [fpc-devel] Faster InitObject

. So, I need them in my new NewInstance Implementation, don't I? ppointer(instance)^:=pointer(self); if PVmt(self)^.vIntfTable @emptyintf then InitInterfacePointers(self,instance); InitInstance:=TObject(Instance); Amir ___ fpc-devel maillist - fpc

Re: [fpc-devel] Faster InitObject

On 02/23/2012 11:37 AM, Hans-Peter Diettrich wrote: Amir schrieb: Incl. Self. Called Function 29.78 29.72 26M SYSTEM_FILLCHAR$formal$INT64$BYTE 19.07 19.07 123M SYSTEM_MOVE$formal$formal$INT64 3.63 3.63 70M SYSTEM_SYSGETMEM_FIXED$QWORD$$POINTER I suspect that the procedure

[fpc-devel] Strange Problem!

, Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel

Re: [fpc-devel] Strange Problem!

it is a bug, isn't it? Amir On 04/25/2012 04:25 AM, Flávio Etrusco wrote: You program isn't valid. You're assigning a constant (a global variable) to Result, so you shouldn't change it's contents through a pointer (if you change it normally the compiler+RTL will COW the value). You can use

[fpc-devel] Faster Implementation for IntToStr

function. I attached my function, and also a sample code which calls MyIntToStr and IntToStr 1000 times. I used valgrind to compare the performance of the two function. Amir P.S. I understand that my code is not easy to read/understand, but the question is, should the code for a library

Re: [fpc-devel] Faster Implementation for IntToStr

Check the attachments on this email. Amir On 09/02/2012 12:07 PM, Amir wrote: Hi, In one of my project, I have to call IntToStr more than 10M times. I noticed that IntToStr calls Str function. I implemented my own version of IntToStr which is almost twice faster than the current

Re: [fpc-devel] Re: Faster Implementation for IntToStr

I could not follow what the code does, as it is in assembly, but it looks like it has the same idea as mine. In general, how can one propose some changes in a library? Should the suggestion goes through this mailing list? Amir On 09/02/2012 05:24 PM, Jonas Maebe wrote: On 02 Sep 2012

[fpc-devel] Creating Generic Object

FPGMap<AnsiString, MyData>).Create() Wondering if there is any shorter way to handle the objects' initialization, .e.g., something like   MyMap := auto.Create; Thanks, Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.fr

Re: [fpc-devel] Is the code in wiki correct?

ionalities...  Are these functionalities implemented in rtl? On 5/8/20 11:53 PM, Michael Van Canneyt wrote: On Fri, 8 May 2020, Amir wrote: Hi there,   I was looking for a native implementation for JoinStrings and ended up in TStringList-TStrings_Tutorial <https://wiki.freepascal.org/TStringList-TStr

[fpc-devel] Is the code in wiki correct?

yStringList.add('2'); MyStringList.add('3'); result := StringReplace(MyStringList.Text,Lineending,'\n', [rfReplaceAll, rfIgnoreCase]); I believe this is not correct. What if there is a newline(LineEnding) in one of the strings? Best, Amir ___ fpc-devel mail

[fpc-devel] How to call (access) to an external procedure!

dear friends, I know that if want to use an external variable/procedure in fpc, i should use the following code: function GetEnvironment (const Name: PChar): PChar; cdecl; external 'c' name 'getenv'; but how could i add for example GetEnvironment function to a class (TEnvironment)! Is

Re: [fpc-devel] How to call (access) to an external procedure!

in mind that methods have a hidden parameter Self pointing to the object. When method is declared as cdecl it is the first parameter. Tia, Geno Roupsky В вт, 2006-01-31 в 10:05 +0330, Amir Aavani написа: dear friends, I know that if want to use an external variable/procedure in fpc, i

[fpc-devel] Calling Web Service from Freepascal

Any one call a webservice (WSDL) from Freepascal. I did it using Delphi, but now i want to do it by freepascal/Lazarus. ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel

[fpc-devel] procedure Types

: String); Object to TProcedure. The problem is clear but I don't know (can't find) any solution to define TProcedure as a procedure of a class which accepts one argument. Yours Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http

Re: [fpc-devel] procedure Types

Thanks to Michael and Christian. It works correctly. I think it could be usefull to put an example for this case in fpc docs. Michael Van Canneyt wrote: On Sat, 4 Mar 2006, Amir Aavani wrote: I have problem with procedure Types. Look at the following code: TProcedure= procedure (S

Re: [fpc-devel] procedure Types

Any idea to call: BeginThread (@MyObject.F1, Pointer (S)) Michael Van Canneyt wrote: On Sat, 4 Mar 2006, Amir Aavani wrote: I have problem with procedure Types. Look at the following code: TProcedure= procedure (S: String); TTest= class MyF: TProcedure; procedure F1 (S: String

[fpc-devel] Lazarus

Is there any example(way) to develop a plugin for lazarus,? for example, adding a new type of application to lazarus with its own properites and ... ___ fpc-devel maillist - fpc-devel@lists.freepascal.org

[fpc-devel] Which of them are right (Delphi or FPC)

I developed a project in lazarus (FPC) and now when I try to run it in Delphi, it acts incorrect! I have a class TObjectCollection which is a collection of TObject: TObjectCollection= class (TObject) FMembers: array of TObject; ... ... public property Member [Index:

[fpc-devel] Fast Bitmap access

implementation. Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel

Re: [fpc-devel] Fast Bitmap access

PROTECTED] Behalf Of Amir Aavani Sent: 21 June 2006 08:51 To: FPC developers' list Subject: [fpc-devel] Fast Bitmap access Hi there, In Delphi, accessing to pixels of a Bitmap image via the property of Pixels is very time-consuming. For fast Bitmap editing, reading usually developers use

[fpc-devel] Mutex!

://lists.freepascal.org/lists/fpc-pascal/2006-July/011295.html). Is there any article about it? Yours, Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel

Re: [fpc-devel] Mutex!

Let me explain the problem with more details, consider the following code: while true do begin ReadLn (S); /// Lock Mutex AThread:= TMyThread.Create (True);//Suspended AThread.Prepare (S); AThread.Resume; ///UnLock Mutex end; ... To understand the EnterCriticalsection, I write the

Re: [fpc-devel] Mutex!

Thanks Michael, you are right! I want to know how should I use Criticalsections to make my program to print only one here. Michael Müller wrote: Am 05.11.2006 um 12:14 schrieb Colin Western: Amir Aavani wrote: InitCriticalSection (cs); while true do begin EnterCriticalsection (cs

Re: [fpc-devel] Mutex!

; And I told to check if Criticalsession could work in my situation i write that sample code. Any idea for my problem? Vinzent Höfler wrote: Amir Avani wrote: Thanks Michael, you are right! I want to know how should I use Criticalsections to make my program to print only one here. By not using

[fpc-devel] Com Port

Hi, How can I read/write through Com port by Lazarus/FPC?! Yours, Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel

[fpc-devel] Do we need a TFPGMap.IsSorted method?

the getter is implemented as:   if FSorted then Exit(True);   FSorted := IsSortedFunc;   Result := FSorted; Thanks, Amir ___ fpc-devel maillist - fpc-devel@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

[fpc-devel] PB2PAS: Proto Compiler for FPC

s destructor?   In the current implementation, the destructor frees the Maps/Lists and all their members. The issue is uncommenting  line 178 of Main.pp (attached) would cause a segfault. I had a couple of ideas about how to handle this, but none of them is perfect. Wondering what you think?

[fpc-devel] Cannot create Merge Request

Hi there, I never used gitlab before, so my question might be very stupid! I am trying to follow the instruction here to create a patch. I have created a Feature Request

Re: [fpc-devel] Cannot create Merge Request

I do not see the option to upload attach the patch file? On 1/3/24 02:39, Michael Van Canneyt wrote: On Tue, 2 Jan 2024, Amir--- via fpc-devel wrote: Hi there, I never used gitlab before, so my question might be very stupid! I am trying to follow the instruction here <ht

Re: [fpc-devel] Cannot create Merge Request

+1 On 1/3/24 21:53, Christo Crause wrote: On Thu, Jan 4, 2024 at 6:18 AM Amir--- via fpc-devel wrote: I do not see the option to upload attach the patch file? In GitLab, scroll down to the bottom of the page showing your issue. There should be an edit box where you can type a new comment