Verständnisfrage zu TValue

[Stevie]

Spring.pas enthält einen Helper für TValue mit Convert Methoden, die in der Lage sind TValue des Typs A in einen TValue des Typs B umzuwandeln.
Das sollte für die beschriebene Aufgabe helfen.

[TigerLilly]

Zitat von Stevie:

Spring.pas enthält einen Helper für TValue mit Convert Methoden, die in der Lage sind TValue des Typs A in einen TValue des Typs B umzuwandeln.
Das sollte für die beschriebene Aufgabe helfen.

:- ) Ja, danke - ich lerne Spring4D immer mehr schätzen.

[TigerLilly]

Zwei Fragen:

Wenn TValue ein Boolean enthält, ergibt TValue.AsString True/False.
Frage ich via RTTI PropertyType.TypeKind den Typ einer Boolean-Property ab, erhalte ich als Typ tkEnumeration. Ich hätte Boolean erwartet. Hmm.
Eine Enumeration kann aber alles mögliche sein, wie kann ich den String, den ich aus TValue.AsString habe, wieder in eine Enumeration verwandeln?

Ähnliches bei einem Set:
TVAlue.AsString liefert zB "[akLeft,akTop,akBottom]". RTTI liefert tkSet. Wie kann ich den String wieder passend in das Set umwandeln?

[freimatz]

Zitat von TigerLilly:

... Typ einer Boolean-Property ab, erhalte ich als Typ tkEnumeration. Ich hätte Boolean erwartet.

type Boolean = (False, True);

[TiGü]

Zitat von TigerLilly:

Eine Enumeration kann aber alles mögliche sein, wie kann ich den String, den ich aus TValue.AsString habe, wieder in eine Enumeration verwandeln?

Ähnliches bei einem Set:
TVAlue.AsString liefert zB "[akLeft,akTop,akBottom]". RTTI liefert tkSet. Wie kann ich den String wieder passend in das Set umwandeln?

Hilft dir das weiter?

https://stackoverflow.com/a/6355216

https://stackoverflow.com/a/31603084

[Stevie]

Delphi-Quellcode:

{$APPTYPE CONSOLE}

uses
  Rtti, SysUtils, Spring;

type
  TMyObject = class
  private
    FCount: Integer;
    FDateTime: TDateTime;
    FActive: Boolean;
  public
    property Active: Boolean read FActive write FActive;
    property Count: Integer read FCount write FCount;
    property DateTime: TDateTime read FDateTime write FDateTime;
  end;

var
  m: TMyObject;
  props: TArray<TRttiProperty>;
  values: TArray<string>;
  i: Integer;
  ISO8601FormatSettings: TFormatSettings;
begin
  m := TMyObject.Create;
  m.Active := True;
  m.Count := 42;
  m.DateTime := Now;
  props := TType.GetType(TMyObject).GetDeclaredProperties;
  SetLength(values, Length(props));
  for i := 0 to High(props) do
    values[i] := props[i].GetValue(m).ToString;

  for i := 0 to High(props) do
    Writeln(props[i].Name, ': ', values[i]);
  Writeln;

  values[0] := 'False';
  values[1] := '12345';
  values[2] := '2020-12-31 12:34:00'; // geht sogar im ISO8601 format ...

  // ... man muss nur ein entsprechendes formatsettings an Convert übergeben
  ISO8601FormatSettings := TFormatSettings.Create;
  ISO8601FormatSettings.DateSeparator := '-';
  ISO8601FormatSettings.TimeSeparator := ':';
  ISO8601FormatSettings.ShortDateFormat := 'YYYY-MM-DD';
  ISO8601FormatSettings.ShortTimeFormat := 'hh:mm:ss';
  ISO8601FormatSettings.DecimalSeparator := '.';
  ISO8601FormatSettings.TimeAMString := '';
  ISO8601FormatSettings.TimePMString := '';

  for i := 0 to High(props) do
    props[i].SetValue(m, TValue.From(values[i]).Convert(props[i].PropertyType.Handle, ISO8601FormatSettings));

  Writeln('Active: ', m.Active, sLineBreak, 'Count: ', m.Count, sLineBreak, 'DateTime: ', DateTimeToStr(m.DateTime));
  Readln;
end.

[TigerLilly]

Zitat von Stevie:

Delphi-Quellcode:

  props := TType.GetType(TMyObject).GetDeclaredProperties;
...
  for i := 0 to High(props) do
    props[i].SetValue(m, TValue.From(values[i]).Convert(props[i].PropertyType.Handle, ISO8601FormatSettings));

end.

Ich kanns nicht umsetzen:
Ich habe

Code:

function RestoreProperty(aInstance: TObject; aPropertyName: string; Value:TValue): Boolean;

Wie müsste das weiter gehen?

Code:

var
  prop: TRttiProperty;
begin
  prop := TType.GetType(?);  
  prop.SetValue(? , TValue.From(value).Convert(prop.PropertyType.Handle));

[Stevie]

Delphi-Quellcode:

function RestoreProperty(aInstance: TObject; const aPropertyName: string; const aValue: TValue): Boolean;
var
  prop: TRttiProperty;
begin
  prop := TType.GetType(aInstance.ClassType).GetProperty(aPropertyName);
  prop.SetValue(aInstance, aValue.Convert(prop.PropertyType.Handle));
end;

[TigerLilly]

Jein. :-/

Ich bekomme via RTTI PropertyType.TypeKind bzw RTTIype.

Das

Code:

procedure StringToSet(Info: PTypeInfo; var SetParam; const Value: AnsiString);

wär was ich wollte, aber ich weiß nicht, wie ich InfoTYpeInfo via RTTI bekomme.

@Stevie:

Code:

TValue.From(values[i]).Convert(props[i].PropertyType.Handle

Das kann auch Enums und Sets?