Objecteigenschaften während der Laufzeit ändern

[himitsu]

Zitat:

Delphi-Quellcode:

SetLength(ExpanderArray, 0);
for i := 1 to 6 do
  createExpanderNeu(FlowLayout2,Text[1], 222, -24, 125, 300,i);

Delphi-Quellcode:

SetLength(ExpanderArray, 0);
for i := 0 to 5 do
  createExpanderNeu(FlowLayout2,Text[i+1], 222, -24, 125, 300,i);

Warum nicht so?

Delphi-Quellcode:

SetLength(ExpanderArray, 0);
for i := 1 to 6 do
  createExpanderNeu(FlowLayout2,Text[i], 222, -24, 125, 300,i-1);

Bzw., stimmt der letzte Parameter überhaupt?

Zitat:

Delphi-Quellcode:

SetLength(ExpanderArray,Length(ExpanderArray)+1);
ExpanderArray[i] := TExpanderNeu.Create(AOwner);

Warum SetLength bezogen auf das Array, aber beim Zugriff auf das Array plötzlich ein anderer/fremder Index?

Warum gibt es da soviele globale Variablen?
Wenn die/einige wirklich global sein müssen, warum dann mit so nichtssagenden Namen?

i und j scheinen an manchen Stellen nur zwei Werte zu haben (0 und 1).
Sieht das nicht eher nach einem Boolean aus?

[BadenPower]

Hallo zusammen,

und das ist natürlich genau so tötlich:
   ExpanderArray[i].Parent := Form1.FlowLayout2;
Wenn Du eine neue Instanz der Form anlegst, dann heisst diese nicht mehr "Form1".

[Sir Rufo]

Zitat von BadenPower:

Hallo zusammen,

und das ist natürlich genau so tötlich:
   ExpanderArray[i].Parent := Form1.FlowLayout2;
Wenn Du eine neue Instanz der Form anlegst, dann heisst diese nicht mehr "Form1".

Da sagen wir doch schon gar nichts mehr zu ... der große Teil der Variablen ist ja auch global deklariert. Mehr als eine Instanz darf es von der Form sowieso nicht geben, sonst zündet da die Saturn-Rakete

[Torwein]

Erst einmal vielen Dank für Die Anregungen. Wie schon erwähnt bin ich absoluter Neuling was Objektorientierung angeht. Ich weis nicht wie man das

ExpanderArray[i].Parent := Form1.FlowLayout2;

besser abbildet . Bei den globalen Variablen bin ich am bereinigen. Ich bräuchte da aber ein paar Tipps wie man das besser abbilden kann.

[BadenPower]

Hallo zusammen,

zuersteinmal setzt Du "procedure createExpanderNeu()" als procedure der TForm.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
   ....
   private
    FExpanderArray: array of TExpanderNeu;
    procedure createExpanderNeu(Parameterliste); 
   public

Natürlich musst Du nun die Klasse TExpanderNeu vor die Deklaration von TForm1 setzen und die globale Variable ExpanderArray entfernen und durch FExpanderArray ersetzen.

Delphi-Quellcode:

procedure TForm1.createExpanderNeu(AOwner: TFmxObject; labelText : String; posX, posY, hoehe, breite : integer);
var
  liNewIndex: Integer;
begin

  liNewIndex := Length(ExpanderArray);
  SetLength(FExpanderArray, liNewIndex + 1);
  FExpanderArray[liNewIndex ] := TExpanderNeu.Create(AOwner);

  FExpanderArray[liNewIndex ].Parent := FlowLayout2;
  FExpanderArray[liNewIndex ].HitTest := true;
  FExpanderArray[liNewIndex ].Text := labelText;
  FExpanderArray[liNewIndex ].Cursor := crHandPoint;
  FExpanderArray[liNewIndex ].height := hoehe;
  FExpanderArray[liNewIndex ].width := breite;

  createBild(FExpanderArray[liNewIndex]);
end;

Ich habe in den Parametern der Prozedur das "i" herausgenommen, da es nun zu keinen Missverständnissen kommen kann.

[Torwein]

Danke für die Info, ich werde das mal testen und berichte ob ich damit klar gekommen bin

[Torwein]

Hallo zusammen,

ich hätte hier noch eine Frage. Wie ist das gemeint "die globale Variable ExpanderArray entfernen und durch FExpanderArray ersetzen."?

Das habe ich nicht verstanden.