OOP Problem: kein Zugriff auf Prozeduren

[Christian Seehase]

Moin Caesar,

dazu gehört dann auch noch die Freigabe des Objektes:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Obj1: TObjekt1;
begin
  Obj1:=TObjekt1.Create; // Objekt erzeugen
  try
    // Mit dem Objekt arbeiten
    Obj1.WriteTyp('TEST');
    showmessage(Obj1.GetTyp);
  finally
    // Und wieder freigeben, wenn es nicht mehr benötigt wird
    FreeAndNil(Obj1);
  end;
end;

try/finally soll sicherstellen, dass das Objekt wieder freigegeben wird, selbst wenn im Try-Abschnitt ein Fehler (Exception) auftritt.