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