unit uErrorInfo;

interface

uses System.Generics.Collections;

type
    TErrorInfo=class
        private
            ErrorDictionary:TDictionary<String,String>;//出错提示字典
        public
            constructor Create; virtual;
            destructor  Destroy; override;
            function SwitchError(sError:string):string;
    end;

    function ChangeErrorInfo(sError:string):string;

var
  FErrorInfo:TErrorInfo;

implementation

function ChangeErrorInfo(sError:string):string;
begin
    if FErrorInfo=nil  then
    begin
       FErrorInfo:=TErrorInfo.Create;
    end;
    Result:=FErrorInfo.SwitchError(sError);
end;

constructor TErrorInfo.Create;
begin
  inherited;
  ErrorDictionary := TDictionary<String, String>.Create;
  ErrorDictionary.Add('Error sending data: (12007) 无法解析服务器的名称或地址','連接數據庫服務器失败');
  ErrorDictionary.Add('This serial port already opened','串口已经打开');
  ErrorDictionary.Add('Error opening serial port','串口打开出错');
  ErrorDictionary.Add('File handle is not a comm handle','不是有效的串口句柄');
  ErrorDictionary.Add('Cannot setup comm buffer','不能设置缓存');
end;

destructor TErrorInfo.Destroy;
begin
  ErrorDictionary.Free;
  inherited Destroy;
end;

function TErrorInfo.SwitchError(sError:string):string;
begin
    if not ErrorDictionary.TryGetValue(sError,Result) then
        Result:=sError;
end;

end.