faz como segue abaixo:
procedure TfrmGravar.BBGravarClick(Sender:TObject);
var
Endereco: String;
begin
// NomeArq.Text;
Endereco := Diretorios.Directory + '\' + NomeArq.Text;
AssignFile(Arq, Endereco);
Rewrite(Arq);
FrmInicio.tbIntRatingHH.Close;
FrmInicio.tbIntRatingHH.OPEN; // aqui vc tem abrir a tabela senão nao
funciona...
FrmInicio.tbIntRatingHH.First;
while not FrmInicio.tbIntRatingHH.Eof do begin
write(Arq,AjustaStr(FrmInicio.tbIntRatingHH.FieldByName('CSCODNIV').AsString,
02));
writeln(Arq);
FrmInicio.tbIntRatingHH.Next;
Application.ProcessMessage; // para a tela do programa nao ficar como
se tivessa travado....
end;
CloseFile(Arq);
MessageDLG('Arquivo gerado com sucesso!',mtinformation,[mbok],0);
end;
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
