Форум: "Основная";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];
Внизgetlasterror Найти похожие ветки
← →
kvi (2006-07-06 17:39) [0]Как получить таблицу расшифровки кодов
к ошибкам для getlasterror ?
Заранее благодарен
KVI.
← →
BiN © (2006-07-06 17:44) [1]{ System error messages }
function SysErrorMessage(ErrorCode: Integer): string;
var
Buffer: array[0..255] of Char;
{$IFDEF MSWINDOWS}
var
Len: Integer;
begin
Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_ARGUMENT_ARRAY, nil, ErrorCode, 0, Buffer,
SizeOf(Buffer), nil);
while (Len > 0) and (Buffer[Len - 1] in [ #0..#32, "."]) do Dec(Len);
SetString(Result, Buffer, Len);
end;
{$ENDIF}
{$IFDEF LINUX}
begin
//Result := Format("System error: %4x",[ErrorCode]);
Result := strerror_r(ErrorCode, Buffer, sizeof(Buffer));
end;
{$ENDIF}
(c) Sysutils
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c