
(*
/*

CLASS {NATIVE_Errors|_Delphi}, NATIVE,
ABSTRACT:

*/
*)
unit NATIVE_Errors;

interface uses Windows, Classes, SysUtils, AL4;

implementation

(*
/*

    
CONST STR:
    NATIVE_Errors_import = ""

    NATIVE_Reset_errors = @
    "   Reset_errors;"
    
    NATIVE_Count_errors = @
    "   RESULT := Errors_count;"

    NATIVE_Error_by_index = @
    "	if X_Index < Errors_count then"
    "   RESULT := Errors. "
    "           {$IFDEF KOL}    Items[X_Index]"
    "           {$ELSE}         Strings[X_Index]"
    "           {$ENDIF} ;"
    
    NATIVE_Add_custom_error = @
    "	{$IFNDEF NOEXCEPTIONS}"
    "	Add_error_descr(X_E);"
    "	{$ENDIF}"     

    .
    
*/
*)

end .

(*
/*
END
*/
*)
