Nosdaj

Feliz Ano Novo pessoal, gostaria de saber como pegar do windows a data no formato 31/12/2004, valeu até mais. :yeah:

tudo bem ! use o componente VCLZIP ou o ABBREVIA, procure pelo abbrevia na internet que vem com varios exemplos.

Tudo bem pessoal! Tenho um arquivo txt que separa os registros por virgula, exemplo: forum;web;com;br - Eu gostaria de uma rotina que me jogasse estes quatro registros em quatro edit's, tenho tentando aqui mas sem sucesso utilizando está rotina. Grato pela atenção. procedure teste; var ArqTxt : TextFile; linha : string; begin AssignFile(ArqTxt,'c:\teste.txt'); Reset(ArqTxt); i := 0; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); edit1.Text := copy(linha,1,pos(';',linha)-1); edit2.Text := copy(linha,pos(';',linha)+1,length(linha)); edit3.Text := copy(linha,1,pos(';',linha)-1); edit4.text := copy(linha,pos(';',linha)+1,length(linha)); end; Linha := ''; Closefile(ArqTxt); end;

tudo bem acho que isto ai vai servir qyRegiao.cancel; // cancela qualquer operação da query qyRegiao.close; // fecha a query qyRegiao.sql.clear; // limpa o sql da query qyRegiao.sql.add('SELECT NMREGIAO FROM TBUF,TBREGIAO'); qyRegiao.sql.add('WHERE IDREGIAO =('''+uma variavel qualquer+''')'); qyRegiao.open; cbxRegiao.Items.Add(qyRegiao.FieldByName('NMREGIAO').AsString); se tiver mais alguma duvida posta ai, até mais.

ele compacta mas não descompacta, da erro, mesmo assim valeu.

http://www.guiadodelphi.com.br/area.php?ca...nentes&pagina=4

Se não me engano no www.delphi.eti.br tem.

Agora é pra inserir um em baixo do outro dentro do arquivo TXT? Ficando em linhas assim: nome endereço telefone e por ai vai aquele código seu só funciona se estiver um em baixo do outro. grato por sua ajuda!

como eu posso inserir pra que ele leia daquela maneira linha por linha, no código que você mandou? ficando desta maneira no arquivo txt nome sigla endereço um em baixo do outro? pois testei o código que você mandou e deu certo só que funciona se estiver um em baixo do outro.

beleza pessoal, preciso que o meu sistema compacte arquivos, isto em uma unidade, e lá na central este arquivo compactado possa ser descompactado pelo sistema.

desculpe por não ter entendido, sim o número de linhas será fixo, no caso 6 edit's

o que eu acho engraçado programador é que naquele código que você me deu, se tiver lá por exemplo jadson;leao;silva , ele não traz nada nos edit's mas se eu coloco jadson; leao; silva um em baixo do outro ele traz o silva no primeiro edit

programador não sei porque não da certo aqui, mas me diz uma coisa, não seria melhor eu usar sem virgula colocando cada valor inserido um em baixo do outro. Exemplo: coopfarma 393 uldlld nosdaj programadot Ai no caso ele contaria como linhas, uma em baixo da outra, se você tiver o código de inserção assim e o código para exibir novamente nos edit's sem a preocupação com o tamanho do que é inserido, acho que será mais fácil pra mim implementar, valeu pela força.

porque será que não esta funcionando? Não aparece nada, o outro exemplo aparecia mas sem ser em ordem. procedure TFrameCadastro.BitBtn4Click(Sender: TObject); var ArqTxt : TextFile; linha, virgula : string; i, nx, tam : integer; begin AssignFile(ArqTxt,'c:\cooperativa\cooperativas.txt'); Reset(ArqTxt); Readln(ArqTxt, Linha); while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); i := Length(Linha); for nx:=1 to i do begin virgula := Copy(Linha,nx,1); if virgula = ';' then tam := nx; end; edtCNPJ.Text := Copy(Linha,1,tam-1); edtSigla.Text := Copy(Linha,tam+1,i); end; Linha := ''; Closefile(ArqTxt); end;

programador, tem jeito de eu pegar qualquer tamanho ate o final da virgula ai pula a virgula e pega o tamanho do outro registro ate a virgula e assim consecutivamente, sem depender de tamanho conforme o seu exemplo Edit1.Text := Copy(Linha,1,10); porque os dos edit's poderiam ser (524;farma).