advanced records, case integer set default?

[trn76]

Hi people.

In FPC v3.0, I am using advanced record and my structure and code look something like this:

Code: Pascal  [Select][+][-]

1. TGxColor = packed record
2.    case Integer of
3.       0 : (blue, green, red, alpha: byte);
4.       1 : (Bc, Gc, Rc, Ac: byte);
5.       2 : (BGRA: UInt32);  // Default;
6. end;
7.  
8. ...
9.  
10. var color: TGxColor;
11.  
12. // I would love to do this:
13. color := $121212FF;
14.  
15. // but I am forced to do this:
16. color.BGRA := $121212FF;
17.  

As  you see in the code, I've tried the Default keyword but still no go...
Anyone know if this is possible? Maybe trivial, but still. 


...Thanks 

[airpas]

you can implement the assignment operator in this case
some thing like this :

operator := (cl : uint32):tGxColor;
begin
  result.BGRA := cl;
end;

[Leledumbo]

Anyone know if this is possible? Maybe trivial, but still. 

I've never known if it's possible, where do you read if such a feature is implemented?

[trn76]

I've never known if it's possible, where do you read if such a feature is implemented?

I've read the whats new section, wiki and blasted over the manual. I guess thats where you find many things about FPC and Laz. - Did I understand your q?

[trn76]

you can implement the assignment operator in this case
some thing like this :

operator := (cl : uint32):tGxColor;
begin
  result.BGRA := cl;
end;

Thank you, I did not think about that.
Only issue I have with overloading operators are how slow they are, but I will check when I get home and report back.

[Leledumbo]

I've never known if it's possible, where do you read if such a feature is implemented?

I've read the whats new section, wiki and blasted over the manual. I guess thats where you find many things about FPC and Laz. - Did I understand your q?

Could you point to a specific page?

[Thaddy]

Only issue I have with overloading operators are how slow they are, but I will check when I get home and report back.

" how slow they are"? is a programmer error. They are as fast as the algorithm you program, silly..
The generated code is not slow unless you are a moron/monkey/donkey that makes it slow on purpose.

First check what's under the hood, then make statements. The option is -a the output is in an *.s file

Why? Because it is evaluated at COMPILE time.

[hnb]

Anyone know if this is possible? Maybe trivial, but still. 

I've never known if it's possible, where do you read if such a feature is implemented?

Maybe he saw my posts on mailing list. "default" is part of my work on smart pointers. The work is almost done.

The "default" modifier works fine also for mentioned structure. The correct code is:

Code: Pascal  [Select][+][-]

1.   TGxColor = packed record
2.    case Integer of
3.       0 : (blue, green, red, alpha: byte);
4.       1 : (Bc, Gc, Rc, Ac: byte);
5.       2 : (BGRA: UInt32 default);
6.   end;