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.