Kompo dyn. erstellen -> Klappt. Dyn. Kompo benutzen -> Nicht

[Nalincah]

Mit diesem Code erstelle ich ein paar Komponenten:

Globale Variablen:

Delphi-Quellcode:

var anzSQL:Integer = 0;
    Sheet : array of TTabSheet;
    SQLMemo : array of TSynMemo;
    SQLSyn : array of TSynSQLSyn;

Komponenten erstellen:

Delphi-Quellcode:

procedure TFrameDB.ButtonSQLNeuClick(Sender: TObject);
begin
  SetLength(Sheet, anzSQL + 1);
  SetLength(SQLMemo, anzSQL + 1);
  SetLength(SQLSyn, anzSQL + 1);
  // TabSheet erstellen
  Sheet[anzSQL] := TTabSheet.Create(PageControlSQL);
  Sheet[anzSQL].Parent := PageControlSQL;
  Sheet[anzSQL].PageControl := PageControlSQL;
  Sheet[anzSQL].Caption := '(Unbenannt)';
  // SQLMemo erstellen
  SQLMemo[anzSQL] := TSynMemo.Create(Sheet[anzSQL]);
  SQLMemo[anzSQL].Parent := Sheet[anzSQL];
  SQLMemo[anzSQL].Align := alClient;
  SQLMemo[anzSQL].RightEdge := 80;
  // SQLSyn erstellen
  SQLSyn[anzSQL] := TSynSQLSyn.Create(nil);
  SQLMemo[anzSQL].Highlighter := SQLSyn[anzSQL];
  // PageControl auf erstellen TabSheet stellen
  Inc(anzSQL);
  PageControlSQL.ActivePageIndex := PageControlSQL.PageCount - 1;
end;

Das klappt auch alles. Kompos werden erzeugt ohne Fehler

Wenn ich aber das ausführe, wird nichts geladen:

Delphi-Quellcode:

procedure TFrameDB.ButtonSQLLoadClick(Sender: TObject);
begin
  if OpenDialogSQL.Execute then
  begin
    TSynMemo(SQLMemo[PageControlSQL.ActivePageIndex]).Lines.LoadFromFile(OpenDialogSQL.FileName);
    TTabSheet(Sheet[PageControlSQL.ActivePageIndex]).Caption := OpenDialogSQL.FileName;
    TTabSheet(Sheet[PageControlSQL.ActivePageIndex]).Font.Style := [];
  end; // if OpenDialogSQL.Execute then
end;

Woran kann das liegen?????

[Christian Seehase]

Moin Sebastian,

ich kann Dir jetzt zwar keine Lösung sagen, aber Du kannst die Typecasts (TSynMemo(...), TTabSheet(...)) weglassen, da die entsprechenden Angaben ja schon vom entsprechenden Typ sind.

[Nalincah]

Achso. Aber wo liegt der unterschied? Bzw. wofür benutzt man TTabSheet[Sheet.....

[Christian Seehase]

Moin Sebastian,

das brauchst Du, wenn der übergebene Typ oberhalb des gewünschten angesiedelt ist.
Ein, auch hier, häufig anzuwendender Fall ist die Verwendung von FindComponent. Hier ist der Rückgabetyp TComponent, und i.d.R. benötigt man Eigenschaften / Methoden eines von TComponent abgeleiteten Typs. Um diese nun ansprechen zu können, muss man einen Typecast durchführen.
Besser als TDatentyp(ObjektBezeichner) ist übrigens (Objektbezeichner as TDatenTyp) da in letzterem Falle der Compiler schon eine Typprüfung vornimmt, so dass ungültige Typcasts schon zur Compilierzeit erkannt werden können. In ersterem Falle (TDatenTyp(...)), übernimmt der Entwickler die Verantwortung dafür, dass das angegebene Objekt auch wirklich so angesprochen werden kann.

[Nalincah]

Verstanden...Aber wirklich weitergebracht hat mich das jetzt nicht

[Christian Seehase]

Moin Sebastian,

also einen Fehler kann ich nicht entdecken.
Hast Du mal einen Breakpoint auf diese Zeile

TSynMemo(SQLMemo[PageControlSQL.ActivePageIndex]).Lines.LoadFromFile(OpenDialogSQL.FileName); gesetzt und überprüft, ob das Programm dort ankommt?

Andere Möglichkeit:
Hast Du mal die TabSheets durchgeklickt, ob die Datei eventuell in einem anderen Memo angezeigt wird?

noch eine:
Stehen in der Datei eventuell Binäre Nullen (z.B. wenn es sich um Unicode Dateien handelt)? Dann wird das Laden bei der ersten davon beendet.

[Nalincah]

Zitat von Christian Seehase:

Moin Sebastian,

also einen Fehler kann ich nicht entdecken.
Hast Du mal einen Breakpoint auf diese Zeile

TSynMemo(SQLMemo[PageControlSQL.ActivePageIndex]).Lines.LoadFromFile(OpenDialogSQL.FileName); gesetzt und überprüft, ob das Programm dort ankommt?

Andere Möglichkeit:
Hast Du mal die TabSheets durchgeklickt, ob die Datei eventuell in einem anderen Memo angezeigt wird?

noch eine:
Stehen in der Datei eventuell Binäre Nullen (z.B. wenn es sich um Unicode Dateien handelt)? Dann wird das Laden bei der ersten davon beendet.

Das Programm kommt zu der Zeile, der FileName ist auf gesetzt. Aber im Memo steht nichts. Auch in den anderen nicht. Bei der Datei handelt es zum um ne normale txt-Datei mit nem SQL-Statement drin. Auch andersrum hab ich das problem. Wenn ich den Inhalt aus dem Memo auslesen will, dann ist es immer leer. Komisch

[Christian Seehase]

Moin Sebastian,

kannst Du mal die Datei hier als Attachement anhängen, mit der das nicht funktioniert?

[Nalincah]

Die Unit des Frame, in der ich die Kompos erstelle und benutze

[Christian Seehase]

Moin Sebastian,

ich hatte es geahnt...

Die Textdatei, die nicht so will wie sie soll hatte ich gemeint