Property und dynamisches array

[EWeiss]

hallo

Delphi-Quellcode:

  TBassWMPVis = class(TComponent)
  private
    { Private declarations }
    FCLSID          : array of string;
  public
    { Public declarations }
    procedure SetCLSID(CLSID : array of string);
  published
    { Published declarations }
    property CLSID         : string read FCLSID write SetCLSID;
  end;

Wie bekomme ich es hin das unter 'property CLSID' ein Array aktzeptiert wird?
Da habe ich es schon zugewiesen

Delphi-Quellcode:

FCLSID          : array of string;

mit den anderen komm ich nicht zurecht.
Oder könnte man FCLSID als record auslegen, meine damit das die einträge untereinanderstehen wie in einer liste.

Wie sieht das aus ?

gruss Emil

[freak4fun]

Was spricht gegen eine String-List?

[mkinzler]

-Definiere einen Typ
-Verwende eine Indizierte property (Dann Zugriff auf einzelen Elemente im Array möglich).

[EWeiss]

Zitat:

Zitat von mkinzler

-Definiere einen Typ
-Verwende eine Indizierte property (Dann Zugriff auf einzelen Elemente im Array möglich).

Bitte ein kleines Sample wie das ausschaut.

Ein Typ Ok.
Mein problem ist halt das innerhalb der Classe TBassWMPVis zu verwirklichen
Komme damit noch nicht klar da ich diesen aufbau nicht kenne.

Danke Emil

[mkinzler]

Zitat:

Zitat von Delphi-Hilfe

Array-Eigenschaften
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. Zum 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');
Wenn Sie die Direktive default nach der Definition einer Array-Eigenschaft angeben, wird diese als Standardeigenschaft der betreffenden Klasse verwendet. Zum Beispiel:
type
TStringArray = class
public
property Strings[Index: Integer]: string ...; default;
...
end;
Auf die Array-Standardeigenschaft einer Klasse kann mit der Kurzform Objekt[Index] zugegriffen werden. Diese Anweisung ist mit Objekt.Eigenschaft[Index] identisch. Ausgehend von der vorhergehenden Deklaration kann z. B. StringArray.Strings[7] zu StringArray[7] verkürzt werden. Eine Klasse kann nur eine Standardeigenschaft mit der gegebenen Signatur (Array-Parameterliste) haben, aber es ist möglich, die Standardeigenschaft zu überladen. Das Ändern oder Verbergen der Standardeigenschaft in abgeleiteten Klassen kann zu unerwünschten Ergebnissen führen, da der Compiler Bindungen an Eigenschaften immer statisch vornimmt.

[Gruber_Hans_12345]

ich glaube, das es nicht möglich ist, ein array of string in ein published property zu geben.

würde auch eine einfache StringListe verwenden

[EWeiss]

Zitat:

Zitat von mkinzler

Zitat:

Zitat von Delphi-Hilfe

Array-Eigenschaften
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.

......

Danke für die ausführlichen informationen.
Ich weiss ja wie man mit einem Array umgehen muss das Problem ist nur dies innerhalb der
Classe in verbindung mit getter und setter zu verwirklichen.

Bei VB (sorry das ich das als Beispiel nehme) geht das ganz einfach.
Hier scheint es mir fast unmöglich.
Dann muss ich doch über TStringList gehen aber auch hier das selbe problem
in verbindung mit get und set (property)

gruss Emil

[Gruber_Hans_12345]

es geht auch unter delphi ganz einfach, nur eben (zumindest was ich weiss) nicht, wenn es sich um ein published property handelt, setz das propert in den public bereich und du kannst getter und setter (wie im post oben von SetPixel/GetPixel auch auf deine Bedürfnisse anpassen)

[EWeiss]

Zitat:

Zitat von Gruber_Hans_12345

es geht auch unter delphi ganz einfach, nur eben (zumindest was ich weiss) nicht, wenn es sich um ein published property handelt, setz das propert in den public bereich und du kannst getter und setter (wie im post oben von SetPixel/GetPixel auch auf deine Bedürfnisse anpassen)

@mkinzler
Habe deinen Beitrag komplett gelesen scheint aber an meiner vorstellung vorbei zu gehn.

Vielleicht nicht richtig ausgedrückt!
So wollte ich das verwirklichen.

Delphi-Quellcode:

TBassWMPVis = class(TComponent) 
  private 
    { Private declarations } 
    FCLSID          : array of string; 
  public 
    { Public declarations } 
    procedure SetCLSID(CLSID : array of string); 
    property CLSID         : array of string read FCLSID write SetCLSID; 
  published 
    { Published declarations } 
  end;

Geht nicht :(
Hundert Fehler

Gruss Emil

[mkinzler]

Delphi-Quellcode:

type
    ArrayStr = array of string;
TBassWMPVis = class(TComponent)
  private
    { Private declarations }
    FCLSID          : ArrayAtr;
  public
    { Public declarations }
    procedure SetCLSID(CLSID : ArrayStr); 
...

[Relicted]

Delphi-Quellcode:

type 
  TStringArray : array of string;

type
TBassWMPVis = class(TComponent)
  private
    { Private declarations }
    FCLSID          : TStringArray;
  public
    { Public declarations }
    property CLSID         : TStringArray read FCLSID write CLSID;
  published
    { Published declarations }
  end;

zugriff über

Delphi-Quellcode:

CLSID[1337] := 'brabelschneck';

gruß
reli

[EWeiss]

Danke an alle !
Jetzt habe ich sogar mehrere Vorschläge zur verfügung.

Das war es was ich meinte.

Delphi Sprache(nicht Vb Sprache) ;)

Gruss Emil

[Relicted]

*räusper*

um mal wieder bissl :twisted: zu sein: VB ist keine programmiersprache! :-)

[EWeiss]

Zitat:

Zitat von Relicted

*räusper*

um mal wieder bissl :twisted: zu sein: VB ist keine programmiersprache! :-)

Heeheheheeh no comment! trotz deiner Hilfe :lol:
Doch! Eine..

Schau mir meinen MP3 Player an dann reden wir weiter über das Thema!

Ohne Programmiersprache wäre das wohl schlecht gegangen. :mrgreen:

Gruss Emil

[Relicted]

sieht hübsch aus...

aber wer weiß vielleicht is das ja auch nur in photoshop programmiert? :-p

ne aber zum einstieg war vb schon immer recht gut... ich finde aber im weiteren verlauf gibts wesentlich schönere sprachen als vb :-)
bei mir in der berufsschule sind wir 3 anwendungsentwickler: 2 vb'ler und ich als delphianer.. da ich mich ja da behaupten muss gibts immer von mir anti-vb-sprüche also nicht bös gemeint :-p

[EWeiss]

Zitat:

Zitat von Relicted

sieht hübsch aus...

aber wer weiß vielleicht is das ja auch nur in photoshop programmiert? :-p

ne aber zum einstieg war vb schon immer recht gut... ich finde aber im weiteren verlauf gibts wesentlich schönere sprachen als vb :-)
bei mir in der berufsschule sind wir 3 anwendungsentwickler: 2 vb'ler und ich als delphianer.. da ich mich ja da behaupten muss gibts immer von mir anti-vb-sprüche also nicht bös gemeint :-p

Habs hier im Forum den Daniel G geschickt der weiss das es kein Photoshop kreiertes Pic ist :zwinker:

Neeee bin das schon gewohnt hier :mrgreen:
Stelle mich ja auch um auf Delphi :wall: :mrgreen: wenn auch aus anderen gründen.

gruss Emil

[Jelly]

Zitat:

Zitat von EWeiss

Wie bekomme ich es hin das unter 'property CLSID' ein Array aktzeptiert wird?
Da habe ich es schon zugewiesen

Mit arrays gar nicht, zumindest nicht über den Object Inspector. Du könntest aber, wie bereits vorgeschlagen eine StringList nehem, oder wenns edler werden soll und eventuell noch andere Information pro Eintrag als die CLSID reinkommen soll, über ein TCollection.
Schau dir mal dazu auf meiner Seite die Komponente TSwitchModules an. Da nutz ich auch sowas.

[EWeiss]

Zitat:

Zitat von Jelly

Zitat:

Zitat von EWeiss

Wie bekomme ich es hin das unter 'property CLSID' ein Array aktzeptiert wird?
Da habe ich es schon zugewiesen

Mit arrays gar nicht, zumindest nicht über den Object Inspector. Du könntest aber, wie bereits vorgeschlagen eine StringList nehem, oder wenns edler werden soll und eventuell noch andere Information pro Eintrag als die CLSID reinkommen soll, über ein TCollection.
Schau dir mal dazu auf meiner Seite die Komponente TSwitchModules an. Da nutz ich auch sowas.

Danke für das angebot ;)
Aber mit Komponente habe ich es nicht so da im falle eines OpenSource
jeder gezwungen ist diese in sein Projekt einzubinden.

Es funktioniert genauso wie ich es wollte auf der Basis von @mkinzler

Gruss Emil

[Gruber_Hans_12345]

Zitat:

Zitat von EWeiss

Aber mit Komponente habe ich es nicht so da im falle eines OpenSource
jeder gezwungen ist diese in sein Projekt einzubinden.

TCollection ist Standard von delphi, also sollte jeder ohne irgendwelchen zusatzkomponenten dabei haben.

Es kommt halt drauf an, ob du per Object Inspector drauf zugreifen willst oder nicht ....

[EWeiss]

Zitat:

Zitat von Gruber_Hans_12345

Zitat:

Zitat von EWeiss

Aber mit Komponente habe ich es nicht so da im falle eines OpenSource
jeder gezwungen ist diese in sein Projekt einzubinden.

TCollection ist Standard von delphi, also sollte jeder ohne irgendwelchen zusatzkomponenten dabei haben.

Es kommt halt drauf an, ob du per Object Inspector drauf zugreifen willst oder nicht ....

Ja habe das falsch verstanden ;)
Habe angenommen er wollte das ich seine Komponente einbinde
er meinte damit aber nur das er so etwas in ihr verwendet.

Benutze das in VB :mrgreen:

Delphi-Quellcode:

Public PluginGenClass          As New Collection

Delphi-Quellcode:

For Each PluginGen In PluginGenClass
   If IsInCollection(PluginGenClass, PluginName) Then

Oh sorry habs vergessen ;) ist ja keine Sprache

Denke aber ist für den gebrauch nicht unbedingt nötig.

gruss Emil

[EWeiss]

Zitat:

sieht hübsch aus...

aber wer weiß vielleicht is das ja auch nur in photoshop programmiert? :-p

Schau mal mein Hmmmmm ... hehehehehe