RTTI records & SetValue

[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 von Sir Rufo:

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 von Stevie:

Zitat von Sir Rufo:

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...