Array in Komponente

[maximus Caesar]

Hallo!
Ich schaff grad an einer eigenen Komponente.
Dort habe ich unter privat
folgenden Eintrag:
        FString1 : Array [1..100] of String; Diesen möchte ich jetzt noch als property festlegen (das er unter "Eigenschaften" angezeigt wird).
Kann mir jemand helfen?

[KrasserChecker]

Nimm einfach TStrings.
Dann zeigt Delphi die Eigenschaft im ObjektInspektor an. (Property muss dafür im Published-Abschnitt geklariert werden).

[maximus Caesar]

Array ist für das, was ich vorhabe besser zu gebrauchen, da ich in diesem Fall mit Array die bessere Zugriffsmöglichkeit habe!

[xineohp]

moin,

die OH sagt zu diesem Thema:

Zitat:

Array-Eigenschaften sind indizierte Eigenschaften. Sie werden beispielsweise für die Einträge eines Listenfeldes, die untergeordneten Objekte eines Steuerelements oder die Pixel einer Bitmap-Grafik verwendet.

Die Deklaration einer Array-Eigenschaft enthält eine Parameterliste mit den Namen und Typen der Indizes. Ein Beispiel:

property Objects[Index: Integer]: TObject read GetObject write SetObject;
property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
property Values[const Name: string]: string read GetValue write SetValue;

Das Format der Liste ist mit dem Format der Parameterliste einer Prozedur oder Funktion identisch. Der einzige Unterschied besteht darin, dass die Parameterdeklarationen nicht in runden, sondern in eckigen Klammern angegeben werden. Im Gegensatz zu Arrays, bei denen nur ordinale Indizes erlaubt sind, können die Indizes von Array-Eigenschaften einen beliebigen Typ haben.

Bei Array-Eigenschaften müssen die Zugriffsbezeichner keine Felder, sondern Methoden angeben. Die Methode in einem read-Bezeichner muss eine Funktion sein, bei der Anzahl, Reihenfolge und Typ der Parameter mit der Indexparameterliste der Eigenschaft identisch sind und der Ergebnistyp mit dem Typ der Eigenschaft übereinstimmt. Die Methode in einem write-Bezeichner muss eine Prozedur sein, bei der Anzahl, Reihenfolge und Typ der Parameter mit der Indexparameterliste der Eigenschaft identisch sind. Außerdem muss ein zusätzlicher Wert- oder const-Parameter mit dem Typ der Eigenschaft vorhanden sein.

Die Zugriffsmethoden für die obigen Array-Eigenschaften können beispielsweise folgendermaßen deklariert werden:

function GetObject(Index: Integer): TObject;
function GetPixel(X, Y: Integer): TColor;
function GetValue(const Name: string): string;
procedure SetObject(Index: Integer; Value: TObject);
procedure SetPixel(X, Y: Integer; Value: TColor);
procedure SetValue(const Name, Value: string);

Auf eine Array-Eigenschaft kann durch Indizieren ihres Bezeichners zugegriffen werden. So sind beispielsweise die Anweisungen

if Collection.Objects[0] = nil then Exit;
Canvas.Pixels[10, 20] := clRed;
Params.Values['PATH'] := 'C:\BIN';

mit den folgenden Anweisungen identisch:

if Collection.GetObject(0) = nil then Exit;
Canvas.SetPixel(10, 20, clRed);
Params.SetValue('PATH', 'C:\BIN');

Unter Linux würden Sie anstelle von 'C:\BIN' einen Pfad wie '/bin' verwenden.

[maximus Caesar]

Habs ausprobiert:
        property String1[FString: string]: string read FString1 write FString1; Jetzt kriege ich ne Fehlermeldung:
[Error] ImageMovereg.pas(61): Published property 'String1' cannot be of type ARRAY

[xineohp]

probier mal:

Delphi-Quellcode:

function getString1(index: integer): string;
procedure SetString1(index: integer; wert: string);

property String1[index: integer]: string read GetString1 write SetString1;

// ...

function getString1(index: integer): string;
begin
  result := FString1[index];
end;

procedure SetString1(index: integer; wert: string);
begin
  FString1[index] := wert;
end;

[maximus Caesar]

Kommt immer noch die gleiche Fehlermeldung!

[xineohp]

Anscheinend dürfen Array-Propertys nicht unter published deklariert sein, unter public geht`s aber.
(Ist ja auch irgendwie logisch, wie willst du im OI ein array anzeigen)

[maximus Caesar]

thx