Fórum Manipular Arquivos #380161

27/06/2010

0

Delphi

                                                  Bom dia DELPHI MASTERSSSSSSSSSSS!!!!!!!!!    Bom galera preciso gravar mais de um edit em um txt, tenho o seguinte codigo mas so grava um!!!!!!!!   ajuda ai por favor!!!         Var
F: TextFile; A: TextFile;
Begin
AssignFile(f,'c:\TextoEdit.txt');   AssignFile(a,'c:\TextoEdit.txt');
rewrite(f);                //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha   writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);              //fecha o handle de arquivo
end;
Fernando Alves.

Fernando Alves.

Responder

Posts

27/06/2010

Marco Salles

                                                  Bom dia DELPHI MASTERSSSSSSSSSSS!!!!!!!!!    Bom galera preciso gravar mais de um edit em um txt, tenho o seguinte codigo mas so grava um!!!!!!!!   ajuda ai por favor!!!   Var
F: TextFile; A: TextFile;
Begin
AssignFile(f,'c:\TextoEdit.txt');   AssignFile(a,'c:\TextoEdit.txt');
rewrite(f);                //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha   writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);              //fecha o handle de arquivo
end;
  Porque Duas Variáveis F: TextFile;  A: TextFile;   ??????   Var
F: TextFile;
Begin
AssignFile(f,'c:\TextoEdit.txt');   rewrite(f);                //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha   writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);              //fecha o handle de arquivo
end;
Responder

Gostei + 0

27/06/2010

Fernando Alves.

CARA ACHO QUE ESTOU ERRANDO AI!!!   preciso usar mais do que um edit mas com 2 variaveis nao da, e com uma so tambem nao!!!
  sei la como acrescentar outro componente.
Responder

Gostei + 0

27/06/2010

Marco Salles

CARA ACHO QUE ESTOU ERRANDO AI!!!   preciso usar mais do que um edit mas com 2 variaveis nao da, e com uma so tambem nao!!!
  sei la como acrescentar outro componente.
Tem que ver se ter permissão para escrita   O Windows Vista Por exemplo , acho que usando o Diretorio Raiz não consegue   Mas tente usar um Outro Diretorio   AssignFile(f,'C:\Nova Pasta\TextoEdit.txt');
Responder

Gostei + 0

27/06/2010

Fernando Alves.

pera iiiiiiiii vou tentar!!!!
Responder

Gostei + 0

27/06/2010

Fernando Alves.

Mazaaaaaaaaaaaaaaaaaaaaaa   olha so consegui!!!     Var
F: TextFile;
A: TextFile;
Begin
AssignFile(f,'c:\NOVAPASTA\TextoEdit.txt');
AssignFile(a,'c:\NOVAPASTA\TextoEdit.txt');
rewrite(f);   //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha
writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);//fecha o handle de arquivo
Responder

Gostei + 0

27/06/2010

Marco Salles

Mazaaaaaaaaaaaaaaaaaaaaaa   olha so consegui!!!     Var
F: TextFile;
A: TextFile;
Begin
AssignFile(f,'c:\NOVAPASTA\TextoEdit.txt');
AssignFile(a,'c:\NOVAPASTA\TextoEdit.txt');
rewrite(f);   //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha
writeln(f,Edit2.Text); //escreve no arquivo e pula linha
closefile(f);//fecha o handle de arquivo
..   Mas não precisa de Duas Variáveis né ????
Responder

Gostei + 0

27/06/2010

Fernando Alves.

Cara na verdade prescisa pois exemplo:   cada variavel é um edit entendeu?     F: TextFile; AssignFile(f,'c:\NOVAPASTA\TextoEdit.txt');   e   A:TextFile; AssignFile(a,'c:\NOVAPASTA\TextoEdit.txt');     AGORA PRECISO ACHAR UM JEITO DE CRIAR UMA CONSULTA POR LINHAS USANDO O EDIT!!!!
Responder

Gostei + 0

27/06/2010

Marco Salles

Cara na verdade prescisa pois exemplo:   cada variavel é um edit entendeu?     F: TextFile; AssignFile(f,'c:\NOVAPASTA\TextoEdit.txt');   e   A:TextFile; AssignFile(a,'c:\NOVAPASTA\TextoEdit.txt');     AGORA PRECISO ACHAR UM JEITO DE CRIAR UMA CONSULTA POR LINHAS USANDO O EDIT!!!!
Pode ser que vc esta pensando algo e falando outra coisa que não tem nada a ver   Uma coisa é Gravar Duas Variaveis em Um Arquivo .......Outra é Gravar Uma Variavel em DOIS Arquivos     O Valor do Edit é Gravado nessas Linhas do WriteLen e Não do AssignFile   Então esta confuso... 
Responder

Gostei + 0

27/06/2010

Marcos Silva


  Cara, uma forma bem simples de se gravar o que você quer:

Para gravar:
var    lArquivo:TStringList;begin    lArquivo := TStringList.Create;    lArquivo.Add( 'edit1='+edit1.Text );  // Adiciono o primeiro edit    lArquivo.Add( 'edit2='+edit2.Text );  // Adiciono o segundo edit    lArquivo.Add( 'edit3='+edit3.Text );  // Adiciono o terceiro edit    lArquivo.SaveToFile( 'c:\NOVAPASTA\TextoEdit.txt');    lArquivo.Free;end;


Para ler os arquivos de volta
var    lArquivo:TStringList;begin    lArquivo := TStringList.Create;    lArquivo.LoadFromFile('c:\NOVAPASTA\TextoEdit.txt');    edit1.text := lArquivo.values['edit1'];      edit2.text := lArquivo.values['edit2'];      edit3.text := lArquivo.values['edit3'];      lArquivo.Free;end;




Responder

Gostei + 0

28/06/2010

Fernando Alves.

Bom cara usei seu codigo realmente ficou melhor que o meu, mais organizado!!!!!
vale pela dica!!!
mas tipo preciso de algo para buscar num txt sabe digitar no edit e buscar a linha correspondente,
é complicado e árduo mas ira valer a pena apos ficar pronto!!!
Responder

Gostei + 0

28/06/2010

Marco Salles

so vc usar o IndeOf do TStrings   
Showmessage(Lista.Strings[lista.IndexOf(edit1.text)]);
Responder

Gostei + 0

30/06/2010

Carlos Mazzi

deu certo?
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar