enum und Strings

[marabu]

Hallo oki,

mag sein, dass mir die Feinheiten deines Ansatzes gerade entgehen, aber ich würde anders vorgehen. Wenn du mit externen String-Ressourcen arbeitest, dann bekommst du die Abbildung von Fehlercodes auf Fehlermeldungen quasi geschenkt.

Füge dein Resource-Script dem Projekt hinzu:

Code:

/* ErrMsg.rc */

STRINGTABLE
BEGIN
  1,   "Error#1"
  2,   "Error#2"
  31,  "Error#31"
  41,  "Error#41"
END

In deinem Programm funktioniert dann das hier:

Delphi-Quellcode:

function AppErrorMessage(msgid: Integer): string;
begin
  Result := LoadStr(msgid);
  if Result = '' then
    Result := 'Application Error #' + IntToStr(msgId);
end;

Empfehlenswert sind noch Konstanten für die Fehlercodes.

Freundliche Grüße