Wie kann ich Datenfelder in meine Klasse einbauen?

[Ruediger123]

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

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?

[mkinzler]

Du übergibst das Feld, übergebe den Wert.

[mschaefer]

Hört sich vielleicht nach Mapping an.

Marshmallow ORM for Delphi

Grüße // Martin

[Ruediger123]

Zitat:

Zitat von mkinzler (Beitrag 1366548)

Du übergibst das Feld, übergebe den Wert.

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

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:

Zitat von mschaefer (Beitrag 1366552)

Hört sich vielleicht nach Mapping an.

Marshmallow ORM for Delphi

Grüße // Martin

Ja so was ähnliches habe ich vor :)