cria um arquivo txt

Question

Como eu gero um arquivo txt, usando dados de um banco de dados.???...

Pedro Bugim · Answer

primeiro vc deve criar edits na mesma quantidade de campos da tabala em quest�o. Depois, carreg�los com os dados necess�rios.
Ex.

Edit1.text:=Query1.FieldByName(�Codigo�).Asstring;
Edit2.text:=Query1.FieldByName(�Nome�).Asstring; 
Edit3.text:=Query1.FieldByName(�Senha�).AsString;

Depois, antes de Implementation, coloque:

  (...) public
    { Public declarations }
  end;

  Type
  Senha= array[1..50] of record  // Total de 50 registros por exemplo
           Codigo: integer;
           Nome: String[40];
           Senha: String[8]
         end;

var
  FSenha: File of Senha;
  UmaSenha: Senha;
  Cod: Integer;
  Form1: TForm1;

Depois, no evento �OnClick� coloque:

Cod:=StrToInt(Edit1.text);
If FileExists(�Senha.txt�)=true then  // v� se o arquivo j� existe
  begin
    AssignFile(Fsenha, �senha.txt�);
    ReWrite(FSenha);
    UmaSenha[Cod].Codigo:=StrToInt(Edit1.text);
    UmaSenha[Cod].Nome:=Edit2.text;
    UmaSenha[Cod].Senha:=Edit3.text;
    write (FSenha, UmaSenha);
    CloseFile(FSenha);
    ShowMessage(�Os dados foram gravados com �xito!�);
  end
  else  // caso o arqivo n�o exista
  begin
    AssignFile(Fsenha, �senha.txt�);
    ReWrite(FSenha);
    UmaSenha[Cod].Codigo:=StrToInt(Edit1.text);
    UmaSenha[Cod].Nome:=Edit2.text;
    UmaSenha[Cod].Senha:=Edit3.text;
    write (FSenha, UmaSenha);
    CloseFile(FSenha);
    ShowMessage(�Arquivo criado com �xito!�);
  end;

Espero que ajude!
Abra�os,

Pedro Bugim · Answer

P�, foi mal, mas tem um errinho no meu c�digo... :oops:
no caso do arquivo j� existir, deve-se colocar

AssignFile(Fsenha, �senha.txt�);
Append(FSenha);

Pois assim vc estar� abrindo o arquivo para adicionar dados, enquanto que ReWrite(ARQUIVO), faz com que o arquivo seja criado. Caso o arquivo j� exista, e vc usar ReWrite, os dados do mesmo ser�o apagados e reescritos de acordo com o que mandar gravar. Blz?!
Abra�os,

F�rum cria um arquivo txt #215513