AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Wie mit dem Fehler in einer Klasse umgehen?
Thema durchsuchen
Ansicht
Themen-Optionen

Wie mit dem Fehler in einer Klasse umgehen?

Ein Thema von Popov · begonnen am 13. Apr 2015 · letzter Beitrag vom 13. Apr 2015
 
Popov
(Gast)

n/a Beiträge
 
#8

AW: Wie mit dem Fehler in einer Klasse umgehen?

  Alt 13. Apr 2015, 17:06
Ich glaube ich kann damit etwas anfangen.

Im Grunde minte ich sowas in der Art. Ich hab die Aussagen oben durch den Code überprüft und es stimmt - es wird sofort der Destroy aufgerufen
Delphi-Quellcode:
type
  TErrorTest = class
    Wert: Integer;
    constructor Create;
    destructor Destroy; override;
  end;

constructor TErrorTest.Create;
var
  a: Integer;
begin
  a := 0;
  Wert := 1 div a;
end;

destructor TErrorTest.Destroy;
begin
  ShowMessage('Es hat Bum gemacht.');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  o: TErrorTest;
begin
  o := TErrorTest.Create;
  try
    ShowMessage('Der Wert ist: ' + IntToStr(o.Wert));
  finally
    //o.Free;
  end;
end;
Für die zweite Frage habe ich auch eine Lösung. Die Schleife wird in einem Try Except Block ausgeführt. Gibt es einen Fehler, geht es raus.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz