Ver Mensaje Individual
  #2  
Antiguo 15-11-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita