Fehlerliste in Eigener Unit

[sirius]

Was ist denn das für ein Konzept? Wieso einen Thread?

Man könnte es so machen

Delphi-Quellcode:

Unit Fehlermeldungen;
//hier stehen nur die Fehlerstrings drin.

interface

const 
   Fehler01='Du Idiot, kannst du nicht aufpassen?';
   Fehler02='Komm mir nicht zu nahe!';
   ...

//Jetzt könnte man noch in der Fehlerunit eigene Exceptions deklarieren.
  type myException=class(Exception);

implementation

end;

Auf jeden Fall könnte man es dann so weiter machen:

Delphi-Quellcode:

procedure Connect;
begin
  if Fileexists (Grunddaten) then   //FileExists? Bist du dir sicher?
       begin 
         Verbindung.Grunddaten.LoginPrompt                      := False; 
         Verbindung.Grunddaten.Connected                        := True; 
          if Verbindung.Grunddaten.Connected = False then 
           raise myOwnException.Create(Fehler01);
end;

Aber ich habe das Gefühl, du hast noch mehr vor, als ich dir jetzt beschreiben konnte.