Memo zur laufzeit Kreieren und schliessen

[Pseudemys Nelsoni]

hm, jo die funktionen erhöhen bzw vermindern einen ordinalen typ, aber in zusammenhang mit meinem array versteh ich das irgendwie nicht *g* ich hab doch damals mein array auch mit high+2 ein neues "item" hinzugefügt. high gibt bei meinem array wenn es noch keine "items" hat -1 zurück, also müsste high(array)+2 zur erstellung gehen hmm

[choose]

Zitat von Pseudemys Nelsoni:

ich hab doch damals mein array auch mit high+2 ein neues "item" hinzugefügt.

Das ist auch kein Problem, es gilt für jedes dynamisches Array myArray
Length(myArray)=High(myArray)+1 Das Problem ist die erneute Verwendung von High. Ich beschreibe Deinen Code mal verbal und gehe dabei davon aus, dass das Array zum Eintritt in den folgenden Abschnitt bereits die Länge 5 besitzt:

• Code:

  Momentane Länge (Length): 5. Letzter Index (High): 4

• Setze die Länge des Arrays auf den letzten Index+2
• Code:

  Momentane Länge (Length): 6. Letzer Index (High): 5

• Schreibender Zugriff auf letzten Index+1
• Code:

  Laufzeitfehler: Letzer Index (High):5, Zugriff auf 6!

[Pseudemys Nelsoni]

war das +1 dann falsch?

weil

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(dynArray, high(dynArray)+2);  // = -1 +2 (länge auf 1 setzen)
  with  dynArray[high(dynArray)] do   // = dynArray[0]
  begin
    Create(self);
    Name := 'TabSheet' + IntToStr(high(dynArray)+1);  // = TabSheet1
    Parent := PageControl1;
    Caption := 'hi';
    PageControl := PageControl1;
    Show;
  end;
end;

das geht nicht.

Deine Erklärungen find ich gut , aber ich denke so wie ichs hab ist doch eigentlich nicht falsch oder? (naja muss ja sonst käme kein fehler)

[choose]

Du schreibst

Delphi-Quellcode:

with dynArray[AnIndex] do
begin
  Create(Self);

das entspricht dem Code

Delphi-Quellcode:

var
  myPageControl: TPageControl;
begin
  myPageControl.Create(Self);

richtig hingegen wäre
myPageControl:= TPageControl.Create(Self); Dann sind mir die beiden Zeilen

Delphi-Quellcode:

Parent := PageControl1;
PageControl := PageControl1;

nicht ganz klar...

[Pseudemys Nelsoni]

ah, stimmt, so

dynArray[high(dynArray)] := TTabSheet.Create(self); musste es heissen, nun geht alles, danke

Zitat:

Dann sind mir die beiden Zeilen
Source:
Parent := PageControl1;
PageControl := PageControl1;

nicht ganz klar...

ob Parent := PageControl1; wichtig ist weiss ich nicht, aber schaden tuts ja nicht. Also damit hab ich dem TabSheet das PageControl als Elternteil gegeben
und mit "PageControl := PageControl1;" geb ich das pagecontrol für das tabsheet an (hoffe hab mich richtig ausgdrückt *g*), jedenfalls geht es ohne diese zuweisung nicht


nochmal danke

[Pseudemys Nelsoni]

das hier war ein doppelpost, kann ein mod löschen