Discussion :

[Papy214]

Bonjour

J'ai une procédure utilisant les RTTI pour enregistrer le contenu d'un record dans un fichier.
J'avais dû utiliser ça sous Berlin ou Tokyo mais je ne me souviens pas d'avoir eu cette erreur (RIO).

---------------------------
Erreur
---------------------------
RTTI disponible insuffisant pour supporter cette opération
---------------------------
OK
---------------------------

Juste par curiosité : Ça vous est déjà arrivé ?


Bon, je pensais que Delphi avait une limite en terme de mémoire ou taille de pile pour ça amis en fait, c'est juste qu'il n'a pas trouvé les références à un type que j'ai écrit.
C'est un SET pour lequel j'ai forcé la première valeur à -1 et je crois qu'il ne sait pas faire dans un cas pareil.

[pprem]

là un p'tit bout de code me semblerait pertinent
ça marche sur une autre version ou tu n'as pas testé ?

[Papy214]

Je peux mettre le code, pas de problème. Le temps de l'extraire pour que ça soit pertinent et testable.

[Papy214]

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
 
 
type
  TTypeTest = (tt1 = -1, tt2 = 0, tt3 = 1);
 
  TRecTest = record
    TypeTest: TTypeTest;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  RecTest: TRecTest;
  AContext  : TRttiContext;
  AField    : TRttiField;
  ARecord   : TRttiRecordType;
  AFldName  : String;
  AValue    : TValue;
begin
 
  RecTest.TypeTest := TTypeTest.tt1;
 
  AContext := TRttiContext.Create;
  try
    ARecord := AContext.GetType(TypeInfo(TRecTest)).AsRecord;
    for AField in ARecord.GetFields do
      begin
        AFldName := AField.Name;
        AValue   := AField.GetValue(@RecTest);  //  <<<<<<<<<<<<<<<<<<<<<<<<<<<  BOUM !!!
      end;
  except on E:Exception do
    ShowMessage(E.Message);
  end;
 
end;

et si l'énumération commence à 0, plus de souci !

[Paul TOTH]

oui c'est une limite des RTTI, les énumérés avec valeurs n'ont pas de RTTI

https://quality.embarcadero.com/browse/RSP-12189