RTTI records & SetValue

[Daniela.S]

Kann es sein, dass das setzen eines Wertes bei Records nicht geht?
Bei Klassen funktioniert es einwandfrei. Felder in Records lassen sich mit TRttiField auslesen, nur schreiben geht nicht.

Der gleiche Code funktioniert mit Klassen und Properties...

Gibt es eine Limitation oder muss man im record auf etwas spezielles achten?

Delphi-Quellcode:

  if field.FieldType.TypeKind = tkString begin 
    field := fTypeInfo.GetField( FieldName );
    field.SetValue( item, FloatToStr( value ) );
    end;

[s.h.a.r.k]

Ich habe es so geregelt, dass ich keinerlei Records mehr verwende, da ich schon sehr häufig mit der RTTI zu tun habe. Hast du z.B. keine String-Eigenschaft integriert, so werden keinerlei RTTI für diesen Record erzeugt. Von dem her finde ich es immer etwas gefährlich diese Kombination zu nutzen. Schau zudem mal ins QC, da findest du einige Problemchen bzgl. Records + RTTI. Es müsste auch ein paar ältere Threads von mir geben, in denen ich über ein paar Probleme berichte.

Fazit: Nichts geht über Klassen :stupid:

[Stevie]

Ich glaub du hast einen Bug in deinem Source. Denn du checkst den FieldType bevor du GetField machst?

In einem Beispiel funktioniert das wie erwartet:

Delphi-Quellcode:

type
  TMyRecord = record
    Value: Integer;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  item: TMyRecord;
  field: TRttiField;
  t: TRttiType;
  c: TRttiContext;
begin
  t := c.GetType(TypeInfo(TMyRecord));
  field := t.GetField('Value');
  field.SetValue(@item, TValue.From(42));
  ShowMessage(IntToStr(item.Value));
end;

[Daniela.S]

Wird schon überprüft. In Klassen (mit properties) funktioniert es auch einwandfrei.

Allerdings übergebe ich ein Variant. Womöglich liegt es daran. Vielleicht komme ich heut am Abend nach der uni noch dazu...
In der Zwischenzeit habe ich das Projekt raufgeladen...

[Stevie]

Auf Variant sollte man imo an dieser Stelle verzichten und mit TValue und/oder generics (unter Zuhilfenahme von type inference) arbeiten.

Beispiel:

Delphi-Quellcode:

procedure TLinq<T>.SetProperty<TValueType>(Item: Pointer; const PropertyName: string; Value: TValueType);
var
  v: TValue;
begin
  v := TValue.From<TValueType>(Value);
...
end;

...

myLinq.SetProperty<Integer>(myObject, 'MyIntProp', 42);

// oder mit type inference (das heißt der Compiler schnallt, von welchem Typ TValueType wirklich ist - Achtung: das funzt nicht immer 100%ig)

myLinq.SetProperty(myObject, 'MyIntProp', 42); // <- kein <Integer> nötig.

[Sir Rufo]

Der Zugriff auf ein Record erfolgt ja anders als bei einer Klasseninstanz.

Wir machen das Gleiche erhalten aber unterschiedliche Ergebnisse.

Delphi-Quellcode:

type
  TMyRecord = record
    Info : string;
  end,

  TMyObject = class
    Info : string;
  end;

var
  r1, r2 : TMyRecord;
  o1, o2 : TMyObject;
begin

  // Erst mal das Objekt der Begierde

  o1 := TMyObject.Create;

  o1.Info = 'Test1';
  o2 := o1;
  o2.Info := 'Test2';
  ShowMessage( o1.Info + ' ' + o2.Info ); // => Test2 Test2

  o1.Free;
  o2 := nil;

  // und jetzt der Record

  r1.Info := 'Test1';
  r2 := r1;
  r2.Info := 'Test2';
  ShowMessage( r1.Info + ' ' + r2.Info ); // => Test1 Test2 !!!!!
end;

Bei einer Instanz wird halt die Referenz übergeben, ein Record wird bei einer Zuweisung dupliziert!

Warum der Record in diesem Fall nicht verändert werden kann liegt daran, dass über den Enumerator der Record quasi wie eine RO-Property geliefert wird, und dann ist auch das Record RO.

Delphi-Hilfe: E2064: Der linken Seite kann nichts zugewiesen werden (Delphi)

[Stevie]

Zitat:

Zitat von Sir Rufo (Beitrag 1122177)

Der Zugriff auf ein Record erfolgt ja anders als bei einer Klasseninstanz.

Wir machen das Gleiche erhalten aber unterschiedliche Ergebnisse.

...

Bei einer Instanz wird halt die Referenz übergeben, ein Record wird bei einer Zuweisung dupliziert!

Warum der Record in diesem Fall nicht verändert werden kann liegt daran, dass über den Enumerator der Record quasi wie eine RO-Property geliefert wird, und dann ist auch das Record RO.

Delphi-Hilfe: E2064: Der linken Seite kann nichts zugewiesen werden (Delphi)

Ähm... deshalb übergibt man den entsprechenden RTTI Methoden auch immer einen Pointer.

[Sir Rufo]

Zitat:

Zitat von Stevie (Beitrag 1122195)

Zitat:

Zitat von Sir Rufo (Beitrag 1122177)

Der Zugriff auf ein Record erfolgt ja anders als bei einer Klasseninstanz.

Wir machen das Gleiche erhalten aber unterschiedliche Ergebnisse.

...

Bei einer Instanz wird halt die Referenz übergeben, ein Record wird bei einer Zuweisung dupliziert!

Warum der Record in diesem Fall nicht verändert werden kann liegt daran, dass über den Enumerator der Record quasi wie eine RO-Property geliefert wird, und dann ist auch das Record RO.

Delphi-Hilfe: E2064: Der linken Seite kann nichts zugewiesen werden (Delphi)

Ähm... deshalb übergibt man den entsprechenden RTTI Methoden auch immer einen Pointer.

Egg Yes ... Ei Jo ...

aber dann schau dir mal den TLinq-Demo Code an:

Delphi-Quellcode:

var
  v : TMyRecord;
...
for v in RecordLinq do
  v.Value := Random( 100 );  // hier kommt beim Compilieren der Fehler E2064
...

darauf spielte mein Kommentar an :)

[Daniela.S]

@Sir Rufo: Du kompilierst sicher uner 2010? Ich habs nur auf XE getestet...

Und bei den vielen Internen Fehlern die ich unter XE bekommen habe fürchte ich mich schon auf 2010. Da gibt es mit Generics ja noch mehr Probleme...

[Sir Rufo]

Zitat:

Zitat von Daniela.S (Beitrag 1122236)

@Sir Rufo: Du kompilierst sicher uner 2010? Ich habs nur auf XE getestet...

Und bei den vielen Internen Fehlern die ich unter XE bekommen habe fürchte ich mich schon auf 2010. Da gibt es mit Generics ja noch mehr Probleme...

Der Codeteil war bei dir auskommentiert und ich fragte mich warum :)
Kompiliert habe ich das mit XE :stupid: