Hallo ich möchte gerne in meiner Klasse meinem Feld TFloatfield den Wert eines Datasets zuweisen was
zunächst funktioniert.

markieren

Code:

rttiType.GetField(rttiField.Name).SetValue(self, myQuery.FieldByName('DBFeld'));

wenn ich im Anschluss die Query schliesse sind die Daten weg da ich ja nur die Adresse kopiert habe.
Wie bekomme ich denn das komplette Flloatfield von der Query in mein Objekt kopiert?

Du übergibst das Feld, übergebe den Wert.

Hört sich vielleicht nach Mapping an.

Marshmallow ORM for Delphi

Grüße // Martin

Zitat von mkinzler:

Du übergibst das Feld, übergebe den Wert.

Das habe ich auch schon versucht allerdings scheitere ich bereits beim Erstellen des Objekts

markieren

Code:

var
  rttiContext: TRttiContext;
  rttiType: TRttiType;
  attribute: TCustomAttribute;
  rttiField: TRttiField;
begin
  myQuery.Close;
  myQuery.SQL.Clear;
  myQuery.SQL.Add('SELECT * FROM Wert');
  myQuery.SQL.Add('WHERE ID=' + IntToStr(FID));
  myQuery.Open();
  try
    rttiContext := TRttiContext.Create;
    try
      rttiType := rttiContext.GetType(TWert);
      for rttiField in rttiType.GetFields do
      begin
        if rttiField.FieldType.ToString = 'TFloatField' then
        begin
          // Instanz erstellen wenn noch nicht vorhanden
          if not assigned(TFloatField(rttiType.GetField(rttiField.Name))) then
            TFloatField(rttiType.GetField(rttiField.Name)).Create(nil);
          // Wert zuweisen
          TFloatField(rttiType.GetField(rttiField.Name)).AsFloat := tmpQuery.FieldByName(rttiField.Name).AsFloat;
        end;
      end;
    finally
      rttiContext.Free;
    end
  finally
    myQuery.Close;
  end;
end;

Zitat von mschaefer:

Hört sich vielleicht nach Mapping an.

Marshmallow ORM for Delphi

Grüße // Martin

Ja so was ähnliches habe ich vor