Hallo
Ich möchte zur Übersichtlichkeit eine
Unit für die Fehler Meldungen in mein Programm einarbeiten.
jetzt ich habe folgendes Problem
ich habe eine
Unit Fehlerverarbeitung angelegt Folgender Code
Delphi-Quellcode:
unit Fehlerverarbeitung;
interface
uses
Classes, Windows, Messages, SysUtils, Variants, Controls,
Dialogs;
type
Fehlerliste =
class(TThread)
TFehler1501: TTimer;
private
public
procedure Fehler1501();
procedure Fehler1502(Sender: TObject);
procedure Fehlermeldung1501();
procedure Fehlermeldung1502();
var
Fehler15010 :
String;
Fehler15011 :
String;
Fehler15012 :
String;
Fehler15013 :
String;
Fehler15014 :
String;
Fehler15015 :
String;
Fehler15016 :
String;
Fehler15017 :
String;
Fehler15018 :
String;
Fehler15019 :
String;
Fehler15020 :
String;
Fehler15021 :
String;
Fehler15022 :
String;
Fehler15023 :
String;
Fehler15024 :
String;
Fehler15025 :
String;
Fehler15026 :
String;
Fehler15027 :
String;
Fehler15028 :
String;
Fehler15029 :
String;
end;
implementation
// Fehlerliste 1501
procedure Fehlerliste.Fehler1501 ();
begin
if Fehler15010 = '
1'
then
begin
Fehlermeldung1501;
end;
...
procedure Fehlerliste.Fehlermeldung1501;
begin
if Fehler15010 = '
1'
then
begin
Showmessage('
Fehler 15010 ');
end;
und möchte nun z.B. ob eine Datenbank verbindung hergestellt ist das wollte ich so abfragen klappt aber nicht
Delphi-Quellcode:
if Fileexists (Grunddaten) then
begin
Verbindung.Grunddaten.LoginPrompt := False;
Verbindung.Grunddaten.Connected := True;
if Verbindung.Grunddaten.Connected = False then
begin
Fehlerverarbeitung.Fehler15010 := '1'; // Datenbank Grundlagen fehlt
end;
end
Kann mir jemand Helfen?
Mirko