Zugriff auf Objekt in Klasse

[TiGü]

Du meinst dieses PDF-Buch?
Naja, da verpasst man jetzt auch nichts.

[FediDelPr]

An meinem letzten Problem stehe ich immer noch an, trotz lesen in
mehreren Büchern.

Im Hauptmodul soll's so aussehen, kein Create:

Code:

VAR
  IMAPClientEx: TEmailCoreObject;
  ...

 BEGIN
   IMAPClientEx.OpenEmail;
   ..
   ..
 
 END;

Das Untermodul (EmailCore) soll so aussehen:

Code:

UNIT EmailCore;

TYPE
  TEmailCoreObject = CLASS(TidIMAP4)
  PRIVATE
    (* Private-Deklarationen *)
    ..
  PUBLIC
    (* Public-Deklarationen *)
    // hier CONSTRUCTOR notwendig ?? Wie genau ?  <---
    PROCEDURE OpenEmail;
    ..
  END;

PROCEDURE TEmailCoreObject.OpenEmail;
 BEGIN
   // Was muss hier eingefuegt werden, damit der Speicher für TEmailCoreObject
   // reserviert wird ?   <---
   ..
   ..
 END;

Kann da jemand konkret weiterhelfen ? Danke

[Klaus01]

warum sträubst Du dich so gegen ein Create?

Delphi-Quellcode:

VAR
  IMAPClientEx: TEmailCoreObject;
  ...

 BEGIN
   IMAPClientEx := TEmailCoreObject.Create;
   try
     IMAPClientEx.OpenEmail;
     ..
     ..
   finally
    IMAPClientEx.Free;
   end;
 
 END;

Wenn Du kein Create haben möchstes musst Du Klassen-Methoden erstellen.
Dann könnte es so gehen.

Grüße
Klaus

[FediDelPr]

Weil das nur ein technisches Problem (endlicher Speicher) ist und nichts mit der eigentlichen
Aufgabe zu tun hat. Es verhunzt die eigentliche Absicht. Die Essenz des Programmes
versinkt in solchen technischen Details. Das Programm ist schlussendlich schlechter lesbar,
es sind mehr Fehler möglich. Natürlich mag das für einen Einzelfall nicht grafierend sein
aber in der Summe.. Eine normale Variable muss man ja auch nicht zuerst kreiieren.

Ich mag diesen Ballast nicht, so ähnlich ist es ja auch mit der Fehlerverarbeitung. Auch die
ist so dominant, obwohl es eigentlich nur um die Ausnahmen geht.

Ich bin da ein Purist und würde sogar soweit gehen, dass dies ein Teil unserer heutigen
Softwarekrise ist.

Um es zu verdeutlichen ein Beispiel - der Zugriff auf eine Festplatte:

- Oeffnen (mit moeglichst wenigen Parametern, oder allenfalls Setup)
- Lesen oder Schreiben
- Schliessen

Das ist die Hauptstruktur, nichts weiter. Und die muss möglichst sichtbar bleiben.
Details dann in tieferen Schichten und auch dort dasselbe.

Ich hoffe du verstehst mich nicht falsch. Ich finde es wird gerade in der
Software-Industrie oft viel zu kompliziert gedacht. Ich könnte jetzt ein weiteres Mal
Einstein zitieren...

Grüsse

FediDelPr

[FediDelPr]

Ah danke noch, dann schau ich mal bei den Klassen-Methoden

[FediDelPr]

Gesetzt den Fall ich verzichte auf das Create im aufrufenden Modul,

Code:

VAR
  IMAPClientEx: TEmailCoreObject;
  ...

 BEGIN
   // IMAPClientEx := TEmailCoreObject.Create(nil);  --> kein Create
   IMAPClientEx.OpenEmail;
   ..

kann ich eine Methode trotzdem erreichen oder nicht ? Ist also der Einsprung trotzdem
garantiert oder geht der Aufruf quasi ins Leere (weil nicht definiert) ?
Beim Debugging war das erfolgreich. Zufall ?

[haentschman]

Moin...

Zitat:

kann ich eine Methode trotzdem erreichen oder nicht

Du kannst doch nicht ein Auto einsteigen (OpenEMail) wenn du es nicht produziert hast (Create)!
Zur dynamischen Verwendung einer Klasse/Objekt gehört immer ein Create/Free. Bei dieser Konstellation hast du die Wahl wann das Objekt im Speicher aufgenommen wird (Create) und wieder entfernt wird (Free).

Zitat:

Beim Debugging war das erfolgreich. Zufall ?

Wenn das so wäre, erzählst du uns nur die Hälfte. Bei diesen obigen Code, ohne Create, bekommst du definiv eine Zugriffsverletzung!

Zitat:

Weil das nur ein technisches Problem (endlicher Speicher) ist und nichts mit der eigentlichen Aufgabe zu tun hat.

Auch deine Main Form, und alle anderen automatisch erzeugten, liegen schon im Speicher. Besser wäre es wenn nur die Formulare erzeugt werden wenn sie gebraucht werden und wieder aus dem Speicher entfernt werden. Alle Forms haben ein Create/Free...nur macht das Delphi im Hintergrund.

Zitat:

versinkt in solchen technischen Details.

...das nennt man programmieren und nicht Klick Bunti.

Zitat:

Eine normale Variable muss man ja auch nicht zuerst kreiieren.

Auch für eine Variable wird Speicher reserviert...im Hintergrund.

Wie schon mehrfach gesagt:

Delphi-Quellcode:

type
  TEmailCoreObject = class(TidIMAP4)
  private
  public
    constructor Create(Owner: TComponent);
    destructor Destroy; override;
    procedure OpenEmail;
  end;


implementation

constructor TEmailCoreObject.Create(Owner: TComponent)
begin
  inherited Create(Owner) // immer erste Zeile -> Erzeugen Vorfahr TidIMAP4
  //
end;

destructor TEmailCoreObject.Destroy;
begin
  //
  inherited; // immer letzte Zeile
end;  
.
.
.
procedure TfoMain.Blubb;
var
  IMAPClientEx: TEmailCoreObject;

begin
  IMAPClientEx := TEmailCoreObject.Create(nil);
  try
    IMAPClientEx.OpenEmail;
  finally
    IMAPClientEx.Free;
  end;
end;

Stell den gesamten Code mal ein.

[TurboMagic]

Zugriff auf nicht erzeugte Objektreferenzen wird eher zeitnah knallen!
Einfach nicht so gegen das Create sträuben!
Du kannst halt auch nicht in der Bibliothek ein Buch ausleihen ohne den Ausleihvorgang irgendwie zu registrieren...

Und was Exceptionbehandlung anbelangt: die ist eigentlich weniger aufdringlich als die klassische
Fehlerbehandlungsmethode.

Warum?

Weil man früher direkt nach jedem Aufruf der schief gehen konnte eine Statusvariable (in Turbo Pascal IOresult,
in SAP's ABAP Sy-Subrc) direkt abfragen musste und dann dort den Fehler gleich behandeln musste weil er sonst
nach dem nächsten Aufruf einer Routine die diese Fehlerbehandlung nutzt überschrieben ist.

Bei Exceptions kann man mitunter auch eine zentrale Behandlung irgendwo implementieren und alle Exceptions
laufen dort auf, egal woher die kommen. Man kann auch Fehler durch unterschiedliche Exception Klassen unterscheiden
und nur die behandeln, die man für relevant hält. Diese Klassen können dann auch zusätzliche Daten die Infos
zur Fehlerursache enthalten bekommen usw. ALles Dinge, die der klassische Ansatz nicht bietet.
Der lenkt vielstärker von der eigentlichen Aufgabe ab als so ein Create Aufruf...