How to overload assign operator for record in Delphi -


i want make type of record uses dynamic arrays.

using variables , b of type want able perform operations a: = b (and other) , able modify content of without modification b in snipped code below:

    type       tmyrec = record         inner_array: array of double;       public         procedure setsize(n: integer);         class operator implicit(source: tmyrec): tmyrec;       end;      implementation      procedure tmyrec.setsize(n: integer);     begin       setlength(inner_array, n);     end;      class operator tmyrec.implicit(source: tmyrec): tmyrec;     begin     //here want copy data source destination (a b in simple example below)     //but here compilator error     //[dcc error] : e2521 operator 'implicit' must take 1 'tmyrec' type in parameter or result type     end;       var       a, b: tmyrec;     begin       a.setsize(2);       a.inner_array[1] := 1;       b := a;       a.inner_array[1] := 0; //here same values inside , b (they pointed same inner memory)

there 2 problems:

  1. when don't use overriding assigning operator in tmyrec, a:=b means , b (their inner_array) pointing same place in memory.

  2. to avoid problem 1) want overload assign operator using:

    class operator tmyrec.implicit(source: tmyrec): tmyrec;

but compilator (delphi xe) says:

[dcc error] : e2521 operator 'implicit' must take 1 'tmyrec' type in parameter or result type

how resolve problems. read several similar posts on stackoverflow don't work (if understood well) on situation.

artik

it not possible overload assignment operator. means attempting not possible.


Comments

Post a Comment

Popular posts from this blog

basic authentication with http post params android -

i doing basic authentication passing username , password , using basicnamevaluepair sending post params response service. my method: public stringbuilder callservicehttppost(string username, string password, string type) { // create new httpclient , post header httpclient httpclient = new defaulthttpclient(); httppost httppost = new httppost(webservice + type); httpresponse response = null; stringbuilder total = new stringbuilder(); try { url url = new url(webservice + type); /*string base64encodedcredentials = base64.encodetostring((username + ":" + password).getbytes(), base64.url_safe | base64.no_wrap);*/ string base64encodedcredentials = "basic " + base64.encodetostring( (username + ":" + password).getbytes(), base64.no_wrap); httppost.setheader("auth...
Read more

vb.net - Virtual Keyboard commands -

i wondering difference between virtual these keyboard commands is: keyeventf_extendedkey , keyeventf_keyup is. everywhere have looked gives me description based off integers , not want know each of them does. you've tagged question vb.net, these have nothing @ vb.net. they're constants defined in windows header files, use win32 api functions. as far difference, can't tell looking @ values. individual values not particularly important, that's why named identifiers used. what's important used , documentation functions tells mean. the first one, keyeventf_extendedkey , used keybdinput structure (which used along e.g. sendinput function) pass information synthesized keyboard input. if flag used, means scan code should interpreted extended key. technically, means scan code preceded prefix byte value 224 (&he0 in hexadecimal notation). the second one, keyeventf_keyup , 1 of flags available use structure. means key being released (going up)...
Read more

c++ - End of file on pipe magic during open -

i have c++ application in starting process(wireshark) following. if (fp == null){ fp = popen(processpath, "r"); //processpath process want start if (!fp){ throw std::invalid_argument("cannot start process"); } fprintf(fp, d_msg);//d_msg input want provide process } else if(fp != null){ fprintf(fp, d_msg); } the problem when execute c++ application, start wireshark error end of file on pipe magic during open what should avoid that? also tried using mkfifo create named pipe , execute it. used this: if (fp == null){ system("mkfifo /tmp/mine.pcap"); fp = popen("wireshark -k -i /tmp/mine.pcap", "r"); if (!fp){ dout << "cannot start wireshark"<<std::endl; throw std::invalid_argument("cannot start wireshark"); } input = fopen("/tmp/mine.pcap", "wb"); fprintf(input , d_msg); fclose(input)...
Read more