Fórum Directory is busy #256408
28/10/2004
0
Estou dando manutenção em um sistema em Paradox, e após eu ter feito várias modificações, está dando esta mendagem de erro: DIRECTORY IS BUSY. Já apaguei as extensões VAL, NET, já reiniciei a máquina, mas continua dando a mesma msg. Quando dá o erro, o cursor para na seguinte linha abaixo:
procedure tfrmIdentificacao.CMFormSetup(var message: tmessage);
begin
update;
cont := 0;
if frmIdentificacao.Tag = 0 then
Application.CreateForm(TDados, Dados);
dados.Usuarios.Open[color=red:ccef47ca41];//AQUI FICA O CURSOR[/color:ccef47ca41]
Edit1.Items.Clear;
edit1.Items.Add(´´);
with dados.usuarios do
begin
first;
while not eof do
begin
IF (DeCript(fieldbyname(´usuario´).asstring, -1) <> ´MASTER´) THEN
edit1.Items.Add(DeCript(fieldbyname(´usuario´).asstring, -1));
next;
end;
first;
end;
end;
end.
O que pode ser?
Paulo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)