Leidiges EAccessViolation bei dynamischer TabSheet-Erzeugun

[triangulum]

Salü,

folgender Code

Delphi-Quellcode:

SetLength(TabSheetCCDiagramsArray, CD.nTemp);
SetLength(FrameCCDiagramArray, CD.nTemp);

// create and setup diagrams
For j:=0 To Pred(CD.nTemp) Do Begin
    // 1. create, setup tab sheet
    TabSheetCCDiagramsArray[j] := TTabSheet.Create(self);
    TabSheetCCDiagramsArray[j].PageControl := PageControlCCDiagrams;
    TabSheetCCDiagramsArray[j].Caption := CD.TempStr(j);
    TabSheetCCDiagramsArray[j].Name := 'TabSheet'+IntToStr(j);

     [...]

Es geht also um dynamische TabSheet Erzeugung, in Abhängigkeit des Wertes von nTemp.
PageControl ist ein normales Formularelement des Frames, in dem diese Prozedur stattfindet.

Er wirft ein EAccessViolation Error. Ihm gefällt die Zuweisung des PageControlCCDiagrams als Parent für den TabSheet nicht. Woran könnte das liegen?

[mkinzler]

Wo tritt der Fehler auf?

[triangulum]

Er markiert diese Zeile

TabSheetCCDiagramsArray[j].PageControl := PageControlCCDiagrams; als Fehlerursache. Wenn ich sie auskommentiere, tritt der Fehler nicht auf.

[dfried]

Zitat von triangulum:

Er wirft ein EAccessViolation Error. Ihm gefällt die Zuweisung des PageControlCCDiagrams als Parent für den TabSheet nicht. Woran könnte das liegen?

Vielleicht daran, dass du den Parent gar nicht zuweist?
Mach mal vor der Zugeisung des PageControl noch folgendes:
TabSheetCCDiagramsArray[j].Parent := PageControlCCDiagrams;

[triangulum]

Tat ich... jetzt frißt er ebendiese Zeile nicht:

 TabSheetCCDiagramsArray[j].Parent := PageControlCCDiagrams;

[SirThornberry]

An welcher Adresse kommt die AV? Ist es auch wirklich genau der Quellcode den du da gepostet hast? Könntest du eventuell die ganze Funktion posten?

[triangulum]

Zitat:

Erste Gelegenheit für Exception bei $7C812A5B. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 0047E4CE in Modul 'soundso.exe'. Lesen von Adresse 00000268'. Prozess soundso.exe (3916)

. Soweit die IDE

Die Funktion:

Delphi-Quellcode:

Procedure TFrameCCDiagrams.AddTabSheets;
Var j:Integer;
Begin
  // destroy greeting message; overlapped by diagrams
  { // dec. 14
   objectExists := (LabelNoDataLoaded is TLabel);
   if objectExists then LabelNoDataLoaded.Free;
   }
   
  // setup array lengths, depending on no. of diff't temperatures
  SetLength(TabSheetCCDiagramsArray, CD.nTemp);
  SetLength(FrameCCDiagramArray, CD.nTemp);

 // create and setup diagrams
 For j:=0 To Pred(CD.nTemp) Do Begin
     // 1. create, setup tab sheet
     TabSheetCCDiagramsArray[j] := TTabSheet.Create(self);
     TabSheetCCDiagramsArray[j].Parent := PageControlCCDiagrams;
     TabSheetCCDiagramsArray[j].PageControl := PageControlCCDiagrams;
     TabSheetCCDiagramsArray[j].Caption := CD.TempStr(j);
     TabSheetCCDiagramsArray[j].Name := 'TabSheet'+IntToStr(j);

     // 2. create, setup CC container frame
     FrameCCDiagramArray[j] := TFrameCCDiagram.Create(Self);
     FrameCCDiagramArray[j].Parent := TabSheetCCDiagramsArray[j];
     FrameCCDiagramArray[j].Name := 'CCFrame'+IntToStr(j);
     FrameCCDiagramArray[j].Top := 10;
     FrameCCDiagramArray[j].Left := 10;
     FrameCCDiagramArray[j].Height :=  TabSheetCCDiagramsArray[j].Height-5;
     FrameCCDiagramArray[j].Width  :=  TabSheetCCDiagramsArray[j].Width -20;
     FrameCCDiagramArray[j].TIndex := j;

     // 3. create and setup diagrams within diagram container frames
     FrameCCDiagramArray[j].CreateDiagram;
     ShowData(j);   // immer zuerst logarithmisch darstellen
     FrameCCDiagramArray[j].CCDiagram.AutoMinMax;

     FrameCCDiagramArray[j].CCDiagram.GF3 := False;
     FrameCCDiagramArray[j].CCDiagram.EpmLocked := False;
     FrameCCDiagramArray[j].CCDiagram.F1mLocked := False;
     FrameCCDiagramArray[j].CCDiagram.ValidResults := False;

     FrameCCDiagramArray[j].CCDiagram.Busy  := False;
     FrameCCDiagramArray[j].CCDiagram.Abort := False;


 End;
End;

[SirThornberry]

Dann würde ich doch mal spontan tippen das PageControlCCDiagrams zum Zeitpunkt der Zuweisung = nil ist

[triangulum]

Der scheint tatsächlich nil zu sein, zumindest versagt er bei
writeln(PageControlCCDiagrams.Name); Links in der IDE schreibt er für das ganze 'self' ebenfalls nil , und für alle Objekte den Wert ^nicht verfügbarer Wert. . Für den Schleifenzähler j schreibt er 0.

[triangulum]

Dieser Fehler wurde jetzt behoben. Es musste einfach eine "createte" Instanz vom Frame, das diese Funktion beherbergt, benutzt werden.

Die Jagd geht aber weiter ... diesmal nach einem EInvalidPointer