Discussion :

[Papy214]

Bonjour à tou(te)s

Dans un record j'ai ajouté une fonction qui utilise les rtti pour en lister les valeurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ARecord := AContext.GetType(TypeInfo(TMonRecord)).AsRecord;

Le type du record utilisé dans TypeInfo est la seule chose "personnalisée" dans le code de la fonction.
J'aimerais bien réutiliser le même code ailleurs sans être obligé de le réécrire mais je bute sur la récupération du type véritable du record.
Il faudrait que je puisse faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ARecord := AContext.GetType(TypeInfo(Self.ClassType)).AsRecord;

mais ça ne passe pas.

Il y a forcément une façon de faire ça mais pour le moment ça m'échappe.

ça vous parle ??

[Just-Soft]

Bonjour

pourquoi ne pas essayer avec l'opérateur de transtypage as, quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ARecord := AContext.GetType(TypeInfo(Self.ClassType as AsRecord);

[Papy214]

sur le record, ClassType n'existe pas :-(

[Paul TOTH]

sur le record, ClassType n'existe pas :-(

normal

cela me fait penser à mon unité JSON

au départ je faisais s := toSJON(@r, TypeInfo(TMonRecord))ensuite avec les generic j'ai pu écrire s := JSON<TMonRecord>(r)mais en fait, Delphi est capable de renseigner le type tout seul, je peux donc tout simplement écrire s := JSON(r).

au lieu de ton ARecord := AContext.GetType(TypeInfo(TMonRecord)).AsRecord; devrait pouvoir s'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TContext.GetType<T>(var V: T);
var
  Info: PTypeInfo;
begin
  Info := TypeInfo(T);
  ...
end;
 
begin
  AContext.GetType(ARecord);
end;

[Papy214]

Comme le TContext n'existe pas dans Delphi, je comprends que je dois me baser sur ton code json.
J'étudierai ça ce w-e, merci.

[Paul TOTH]

Comme le TContext n'existe pas dans Delphi, je comprends que je dois me baser sur ton code json.
J'étudierai ça ce w-e, merci.

euh... en fait je ne sais pas ce qu'est le AContext de ton code

[Papy214]

arf .... Désolé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

type
  TValues = record
    ..
  end;

const
  FlotFmt = '%.3f';
var
  S: TStringBuilder;
  AContext  : TRttiContext;
  AField    : TRttiField;
  ARecord   : TRttiRecordType;
  AFldName  : String;
  AValue    : TValue;
  vs: Single;
  vi: Integer;
  vb: Boolean;
begin
  S := TStringBuilder.Create;

  AContext := TRttiContext.Create;
  try
    ARecord := AContext.GetType(TypeInfo(TValues)).AsRecord;
    for AField in ARecord.GetFields do
      begin
        AFldName := AField.Name;
        AValue   := AField.GetValue(@Self);

        if AValue.IsType(TypeInfo(Integer)) then
        begin
          vi := AValue.AsInteger;
          S.AppendLine(AFldName + ' = ' + vi.ToString + ';');
        end

        else if AValue.IsType(TypeInfo(Single)) then
        begin
          vs := AValue.AsExtended;
          if DisplayNaN or not vs.IsNan then
            S.AppendLine(AFldName + ' = ' + Format(FlotFmt, [vs]) + ';');
        end

        else if AValue.IsType(TypeInfo(Boolean)) then
        begin
          vb := AValue.AsBoolean;
          S.AppendLine(AFldName + ' = ' + vb.ToString(TUseBoolStrs.True) + ';');
        end;

      end;
  finally
    AContext.Free;
  end;

[Paul TOTH]

ce qui devrait donner (pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
type
  TValues = record
    ..
  end;
 
procedure RecordTypeToString(R: Pointer; T: PTypeInfo; S: TStringBuilder);
const
  FlotFmt = '%.3f';
var
  AContext  : TRttiContext;
  AField    : TRttiField;
  ARecord   : TRttiRecordType;
  AFldName  : String;
  AValue    : TValue;
  vs: Single;
  vi: Integer;
  vb: Boolean;
begin
  AContext := TRttiContext.Create;
  try
    ARecord := AContext.GetType(TypeInfo(T)).AsRecord;
    for AField in ARecord.GetFields do
      begin
        AFldName := AField.Name;
        AValue   := AField.GetValue(R);
 
        if AValue.IsType(TypeInfo(Integer)) then
        begin
          vi := AValue.AsInteger;
          S.AppendLine(AFldName + ' = ' + vi.ToString + ';');
        end
 
        else if AValue.IsType(TypeInfo(Single)) then
        begin
          vs := AValue.AsExtended;
          if DisplayNaN or not vs.IsNan then
            S.AppendLine(AFldName + ' = ' + Format(FlotFmt, [vs]) + ';');
        end
 
        else if AValue.IsType(TypeInfo(Boolean)) then
        begin
          vb := AValue.AsBoolean;
          S.AppendLine(AFldName + ' = ' + vb.ToString(TUseBoolStrs.True) + ';');
        end;
 
      end;
  finally
    AContext.Free;
  end;
end;
 
procedure RecordTypeToString<T>(const R: T; S: TStringBuilder); inline;
begin
  RecordToString(@R, TypeInfo(T), S);
end;
 
var
  S: TStringBuilder;
  V: TValue;
begin
  S := TStringBuilder.Create;
  RecordToString(V, S);
end;

[Papy214]

Whaouh ! Je n'aurais pas pensé à cette façon de faire.

Chapeau et un grand merci !