Verwenden von Pointern

[Getox]

Was ich eigentlich vorhabe ist, dass ich in den Units in denen sich Formulare befinden so weinig wie möglich Code habe.

Mein Hauptprogramm habe ich eigentlich in einer Unit ohne Formular. Dieses habe ich als Klasse geschrieben. Ich will nun onCreate von Form1 eine instanz dieser Klasse erstellen, auf Welche dann alle Forms zugreifen. Dreh- und Angelpunkt ist somit also nicht mehr die unit mit Form1, sondern mein Objekt.

Innerhalb dieses Objektes sind dann halt verschiedenste methoden und Variablen (unter anderem auch ein record) auf die aber alle forms irgendwann dann mal zugreifen.

Inwiefern das nun sinnvoll ist, kann ich nicht einschätzen, aber auf jeden Fall übt es mich im Umgang mit der Objektorientierung.

Wie ich mein Problem nun löse: Ich schreibe einfach in allen Units, wo es erforderlich ist meine Unit, in der ich das Objekt erstellt habe in USES. Dann kann ich das ja direkt über Form1.Core ansprechen, egal in welcher Unit ich dann bin

Aber danke für die vielen Vorschläge, das hat mich wieder etwas schlauer gemacht.

[stahli]

Dein Ansatz ist sehr sinnvoll, da Du so eine gute Trennung zwischen Businesslogik und GUI erhältst.

Schau Dir mal weiter obden den Hinweis zum Singleton an.
Damit kannst Du immer genau eine Instanz einer Klasse sicher stellen.

Wie Du es genau realiseren kannst hängt auch von Deiner Delphiversion ab und ob Di die Instanz Deiner Klasse schon zur Designtime benötigst, z.B. um irgendwelche Einstellungen im Objketinspektor vorzunehmen.

Du könntest z.B. in der Unit Deiner Klasse eine öffentliche Variable MyObjekt definieren und dieser in Deinem Constructor "Self" zuweisen und im Destructor nil.
Sofern Du nur eine Instanz Deiner Klasse erzeugst, würde das funktionieren.

[Bjoerk]

Ich würde den Constructor der entsprechenden Forms überschreiben (die Klasse als Parameter mitschicken), also diese Forms nicht von der dpr-Datei verwalten lassen.

Delphi-Quellcode:

type
  TFormA = class(TForm)
   ..
  private
    FKlasse: TKlasse;
  end;

..

procedure TFormA.FormCreate(Sender: TObject);
begin          
  FKlasse:= TKlasse.Create;
  FormB:= TFormB.Create(Self, FKlasse);
end;

procedure TFormA.FormDestroy(Sender: TObject);
begin
  FKlasse.Free;
  FormB.Free;
end;

Delphi-Quellcode:

type
  TFormB = class(TForm)
    ..
  private
    FKlasse: TKlasse;
  public
    constructor Create(AOwner: TComponent; const Klasse: TKlasse); reintroduce; overload;
  end;

constructor TFormB.Create(AOwner: TComponent; const Klasse: TKlasse);
begin
  inherited Create(AOwner);
  FKlasse:= Klasse;
end;

[hoika]

Hallo,

warum jetzt wieder die Klasse im Form ???
Eine globale Unit mit Singleton !

Heiko

[Bjoerk]

Zitat von hoika:

Hallo,
warum jetzt wieder die Klasse im Form ???
Eine globale Unit mit Singleton !
Heiko

Aha. Und wieso erklären wir dann in jedem 3. TE, so wenig global wie möglich? BTW, das IST ein Singleton.

[Klaus01]

..ein Singleton hat den Charme, dass davon nur eine Instanz erstellen kann.
Von einer globalen Klasse können jede Menge Instanzen erstellt werden.

Grüße
Klaus