Si te refieres a los errores del BDE.
Código Delphi
[-]
La lista de errores del BDE, la podemos obtener investigando un poco en el fichero bde.int
Ahí veremos que los códigos de error se componen de un valor 'base' y de un offset.
Aqui tienes un invento para generar tu listado de errores del BDE:
Incluye 'dbiprocs' en el uses de tu form
Pon un TRichEdit (RE1)
Y pon esto en el OnClick de un TButton:
procedure TForm1.Button1Click(Sender: TObject);
const
Bases:array [1..24] of integer=(
0,$2100,$2200,$2300,$2400,$2500,$2600,$2700,$2800,
$2900,$2A00,$2B00,$2C00,$2D00,$2E00,$2F00,$3000,
$3100,$3200,$3300,$3400,$3500,$3E00,$3F00);
var
ErrorCod:integer;
ErrorTexto:array [0..DBIMAXMSGLEN+1] of char;
i,n:integer;
begin
for i:=1 to 24 do
for n:=0 to 255 do
begin
ErrorCod:=Bases[i]+n;
DbiGetErrorString(ErrorCod,ErrorTexto);
If ErrorTexto<>'' then
Re1.Lines.Add('$'+IntToHex(ErrorCod,4)+' ('+
IntToStr(ErrorCod)+') = '+ErrorTexto);
Application.ProcessMessages;
end;
end;
No recuerdo de donde lo saqué..
Un Saludo.