Foros Club Delphi - Ver Mensaje Individual

krlosrp · #4 02-12-2010

Yo haría algo como:

Código Delphi [-]if(FileExists(DirecOrigen.Text+'\profesional.dbf'))then 
begin
   dbf2.FilePathFull:= DirecOrigen.Text;   
   dbf2.TableLevel:=7;   
   dbf2.TableName:= 'profesional.dbf';   
   dbf2.Active:= true; 
end else 
  MessageBox('¡Vefique la ruta del archivo!');

Así evitas provocar errores sobretodo en lazarus porque a veces algunas cosas no funcionan como uno estaba acostumbrado en delphi, debe ser por que todavía está en versión beta.