Eigene Fehlercodes / Fehlermeldungen erstellen/verwalten

[thkerkmann]

Hi,

schreib eine Funktion:

Delphi-Quellcode:

function ErrorMessage(errorcode:integer):string;
begin
  case errorcode of
    ERR_NO_CONFIG_FILE    : result := 'Keine Konfigurationsdatei vorhanden';
    ERR_EMPTY_CONFIG_FILE : result := 'Nix drin in der Konfigurationsdatei';
  ... 
  end;
end;

und die tust du in deine Unit mit den Konstanten - fertig.

Gruss