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).

beleza programador, o negocio é o seginte exemplo: tenho 2 edits, um vai receber o cnpj da cooperativa e o outro recebera a sigla; lá no arquivo TXT vai mostrar assim: (5241547854;cooperfarma), como faço para mostrar os mesmos valores que foram inseridos em outros dois edit's.

e ai beleza programador, é tipo assim, exemplo, tenho CNPJ,SIGLA,RAZÃO SOCIAL E ESTADO, insiro estes valores em um arquivo TXT, quero que quando a pessoa fechar e abrir o sistema novamente estes valores inseridos apareçam nos seus respectivos campos caso ela queira alterar, pois posteriormente nesta sequencia que aparece lá no arquivo txt(CNPJ,SIGLA,RAZÃO SOCIAL E ESTADO) será inserido em uma base de dados interbase.Se você tiver tambem uma rotina de exportação e importação ira me ajudar muito, grato pela atenção.

TUDO BEM PESSOAL, PRECISO DE UMA ROTINA QUE ME EXIBA EM QUATRO EDIT'S, QUATRO VALORES QUE ESTÃO ARMAZENADOS NUM ARQUIVO TXT(EM ORDEM DE POSICIONAMENTO), E UMA ROTINA DE ALTERAÇÃO, OU A ROTINA DE ALTERAÇÃO FUNCIONA DA MESMA MANEIRA QUE A DE INSERIR REGISTROS NO TXT, GRATO PELA ATENÇÃO. E-MAIL:JADSONLEAO@POP.COM.BR MESSENGER:NOSDAJ@HOTMAIL.COM

Programador me diz uma coisa, tudo aquilo que eu te disse que queria fazer utilizando o CSV é possível com o TXT.

Programador, grato pela suas dicas, mas me diz uma coisa você já mecheu com csv(CAMPO SEM VIRGULA), pois o antigo sistema que será mudado pelo que estou fazendo utiliza o csv, onde segue a mesma lógica do txt. Este sistema gera arquivos csv criptografados que são exportados para uma base(SISTEMA ESTADUAL) onde eles são importados para dentro do sistema, armazenando no banco. Desculpe por esta duvida em usar o txt ou o csv, é porque sou novo em desenvolvimento em delphi e dando uma olhada vi que no antigo sistema utilizaram o CSV, não sei qual dos dois seria mais viável de implementar, espero sua dica, obrigado.

Amigo programador, tenho forms de cadastro de cooperativas, diretores, funcionários, associados e etc, para cada form deste quero gerar uma tabela em txt referente a cada form com os dados armazenados(nos EDIT'S), pois quando estes arquivos forem exportados quero que sejam inseridos nas tabelas em uma base de dados interbase. Onde cada tabela em txt seja referente a uma tabela no interbase..

Programdor obrigado pela dica, me diz uma coisa neste exemplo de gerar os arquivos txt, no meu caso não se utiliza banco de dados, só se tem edit's, onde os dados dos edit's quero armazenar em um txt e posteriormente pegar estes arquivos txt e armazena-los em banco de dados interbase.

e ai galera, preciso enviar só o meu EXE(PARA VARIOS LUGARES) sem uma base de dados, onde os usuários ao inserir as informações atraves dos formularios disponibilizados pela aplicação, armazenasseM estas informações em arquivos txt, pois este arquivos txt por sua vez seriam exportados, e seriam armazenados em uma base de dados unica, grato pela atenção. e-mail:jadsonleao@pop.com.br messenger: nosdaj@hotmail.com

tudo bem pessoal, estou precisando utilizar frames em minha aplicação, onde tenho um frameMenu que chama outros frames para que eles possam aparecer no centro do form na hora da chamada atraves do frameMenu, grato pela atenção. e-mail: jadson.leao@sescoop.org.br messenger : nosdaj@hotmail.com

beleza galera consegui resolver a resposta estava neste endereço http://delphi.about.com/library/weekly/aa040803a.htm