Generics-Typparameter einer TObjectlist herausfinden

[himitsu]

Über den Namen könnte man es so, ohne Probleme auflösen, aber nur, wenn der Typ eindeutig ist.

z.B. selbstdefinierte Typen/Records, welche einen Typenbezeichner haben, den es hunderte Male in der EXE gibt, haben da ein Problemchen.

[Stevie]

Zitat von himitsu:

Über den Namen könnte man es so, ohne Probleme auflösen, aber nur, wenn der Typ eindeutig ist.

z.B. selbstdefinierte Typen/Records, welche einen Typenbezeichner haben, den es hunderte Male in der EXE gibt, haben da ein Problemchen.

Nein, weil der vollqualifizierte Name benutzt wird. Das Verfahren funktioniert nur dann nicht, wenn der Typ exklusiv im implementation Teil deklariert wird. Und dann stellt sich das Ausgangsproblem nicht, weil man ja weiß, von welchem Typ T ist.

[himitsu]

Gut, ich hatte jetzt nicht nochmal nachgesehn, aber mir war halt so, als wenn die Unit nicht mit drin stand.
Wenn doch, dann sieht es besser natürlich aus.

[Keldorn]

Hallo,

Die letzten Beiträge habe ich noch nicht ganz verstanden , das muß ich mir nochmal in Ruhe durchdenken.

Mir war das mit dem Syntax nicht ganz klar: mir hat das procedure DisplayList<T: class>(AList: TObjectList<T>); gefehlt.
Habe erstmal was funktionierendes mit Hilfe von anderen DP-Threads:

Testcode:

Delphi-Quellcode:

procedure TForm1.Proc_InsGridUebertragenDP<T>(AList: TObjectList<T>);
Var prop: TRttiProperty;
    proparr:TArray<TRttiProperty>;
    value: TValue;
    Context: TRttiContext;
    obj:Tobject;
    io,ip,acol:integer;
begin
  StringGrid1.RowCount:=max(2,
                            AList.Count);

  //Überschriften
  StringGrid1.ColCount:=Length(Context.GetType(system.TypeInfo(T)).GetProperties);
  acol:=0;
  for prop in Context.GetType(system.TypeInfo(T)).GetProperties do
    begin
      StringGrid1.Cells[acol,0]:=prop.Name;
      inc(acol);
    end;

  //Inhalt
  for io := 0 to AList.Count-1 do
    begin
      obj:=AList[io];
      proparr:=Context.GetType(obj.ClassType).GetProperties;
      for ip:=low(proparr) to high(proparr) do
        begin
          prop:=proparr[ip];
          Value:=prop.GetValue(obj);

          case Prop.PropertyType.TypeKind of
             tkInteger:
               begin
                 Proc_Info(prop.name+'"Integer"'+value.ToString);
                 StringGrid1.Cells[ip,io+1]:=inttostr(Value.AsInteger);
               end;
             tkFloat:
               begin
                 Proc_Info(prop.name+'"Float"'+value.ToString);
                 StringGrid1.Cells[ip,io+1]:=FloatToStr(Value.AsExtended);
               end;
             tkString,tkUstring:
               begin
                 Proc_Info(prop.name+'"String"'+value.ToString);
                 StringGrid1.Cells[ip,io+1]:=value.AsString;
               end;
            else
              showmessage('unbekannt');
           end;
      end;
    end;
end;

Es würde jetzt das machen, was ich später will -> eine flexible Editiermöglichkeit für eine Liste, ohne das Grid selber aufbauen zu müssen.
Auslesen würde ja auch gehen, da hat mir bei
procedure Proc_AusDemGridLesen<T: class, constructor>(AList: TObjectList<T>) ein anderer Thread mit dem ,constuctor geholfen.

Danke