Felder eines Objectes

[michael.cohrs]

Hallo und guten Tag,

ich habe folgendes Problem:

aus einer Objectlist hole ich mir ein enthaltenes Object.
Dieses enthält Variablen wie zb.

Val1
Val2
Val3
...
...
...

Nun möchte ich jedes dieser Variablen zur Laufzeit mit Werten füllen jedoch benötige ich nicht alle Variablen
sondern zb. nur

Val1
Val2

wie kann ich diese Variablen aus dem Object in einer Schleife abfragen, zb

for i := 0 to 10
obj.Val+IntToStr(i) := irgendwas

funktioniert leider nicht

Vielen Dank für eine Antwort

Michael

[Aviator]

Wie wäre es an dieser Stelle mit einem (dynamischen) Array? Dann kannst du auch mit einer (For-)Schleife durchlaufen.

[himitsu]

Oder per Generics auf Feld/Property

Delphi-Quellcode:

'Val' + IntToStr(i)

zugreifen.

Oder in den Objekten "manuell" einen Zugriff über Funktion mit Name oder über ein Array-Property einbauen. (zusätzlich)


Oder geht auch andersrum.
In den Objekten ein Array und die "Variablen" werden durch je ein Index-Property ersetzt, auf den selben Getter/Setter, wie für das Array-Property. :stupid:
Es ist eh "ungünstig" wenn direkt auf die Variablen Felder zugegriffen wird.

[michael.cohrs]

hallo himitsu,

uiha das kling schwierig, könntest Du mir ein codesnipsel senden?

[michael.cohrs]

Ich muss mich korrigieren,

nicht die Variablen des Objects sollen beschrieben werden sondern ich möchte den Inhalt lesen, es handelt sich um eine
VAL Menge von 50, diese möchte ich in einer Schleife auslesen...

[Lemmy]

entweder über die alte RTTI (unit TypeInfo) oder die neue RTTI http://docwiki.embarcadero.com/RADSt..._RTTI_arbeiten

KOmmt also erst mal drauf an welche Delphi-Version du hast, dann bastelt dir sicherlich jemand auch einen Beispielcode...

[michael.cohrs]

Danke für die Antwort,

ich arbeite tatsächlich noch mit Delphi 6.0 (Zwangsläufig weil in der Firma nichts anderes verfügbar ist)

[himitsu]

Natives ObjectPascal ohne RTTI:

Delphi-Quellcode:

type
  TTest = class
  private
    FTest: array[1..9] of Integer;
    function  Getter(Index: Integer): Integer;
    procedure Setter(Index, Value: Integer);
  public
    property Test1: Integer index 1 read Getter write Setter;
    ...
    property Test9: Integer index 9 read Getter write Setter;
    property Test[Index: Integer]: Integer read Getter write Setter;
  end;

[michael.cohrs]

DANKE!!! so funktionierts!!

noch eine Frange: ich habe eine ObjectListe mit n Objekten die ich aus einer DB Lade.

das erste Feld des Objectes ist ein Wert vom Typ String der jedoch nummerisch ist.
wie kann ich diese Feld in der Objektliste sortieren?

Danke für weitere Antworten

Michael

[Aviator]

Zitat:

Zitat von michael.cohrs (Beitrag 1340328)

das erste Feld des Objectes ist ein Wert vom Typ String der jedoch nummerisch ist.
wie kann ich diese Feld in der Objektliste sortieren?

Also wenn du die Reihenfolge deiner Objekte in der ObjectList sortieren möchtest, dann kannst du beim Erzeugen der ObjectList ein Comparer mit übergeben. Dort drin kannst du dann sortieren wie du willst. Bspw. mit CompareString.