Information in form1.JvComputerInfoEx1.CPU.SSE is stored as TSSESupports. My question is how data is actually stored in TSSESupports and how to convert to plain string?
The wiki page is not very helpful in this matter.
Asked
Active
Viewed 142 times
0
-
Yeah, JEDI documentation usually does not exist. Have you looked at the source. That's how you are expected to work these things out. – David Heffernan Mar 14 '16 at 15:16
-
I've found this in JclSysInfo.pas `type TSSESupport = (sse, sse2, sse3, ssse3, sse4A, sse4B, sse5); TSSESupports = set of TSSESupport;` – Atak_Snajpera Mar 14 '16 at 15:35
-
So you know what to do then? – David Heffernan Mar 14 '16 at 15:36
-
Use the `in` operator to test whether or not each enum value is in the set `SSE`. Do you understand Delphi sets? – David Heffernan Mar 14 '16 at 15:45
-
I'm reading this now http://www.delphibasics.co.uk/RTL.asp?Name=set I think I will be able to get what I want. – Atak_Snajpera Mar 14 '16 at 15:50
1 Answers
1
Look at the JCL sources.
type
TSSESupport = (sse, sse2, sse3, ssse3, sse4A, sse4B, sse5);
TSSESupports = set of TSSESupport;
So, TSSESupports is a set. Values in a set are stored bitwise. You can test if a value is in set by "in" operator.
var
Value: TSSESupports;
begin
if sse in Value then
ShowMessage('Supports SSE');
end;
But the easiest way of converting a set into a string is using RTTI function "SetToString"
uses System.TypInfo, JclSysinfo;
var
Value: TSSESupports;
pTI: PTypeInfo;
S: string;
begin
pTI := TypeInfo(TSSESupports);
S := SetToString(pTI, Word(Value));
ShowMessage(S);
end;
dustypup
- 154
- 5