Eder

Ola... Beleza? Jonas....eu não observei que.....o if que quero fazer não é da linha e sim da Coluna do aquivo.... eu tenho um aplicativo aqui que faz o if assim: If (Copy(Entrada, 1, 1) = '3') then nesta caso...ele se refere a primeira coluna com apenas um dígito... Este código alguém me passou e eu não me lembro mais este raciocinio do codigo..... este campo UF esta bem no meio dos dados.....ele é o Oitavo campo... Compreendeu???...só gostaria que você me explicasse este if como é a logica dele...como ele pega o valor?? Grato

Eder, se você usar imagem com extensão JPG acontecerá isso que você relatou, use imagem com extensão BMP, por exemplo nomedaimagem.bmp. R.: beleza..desculpa não havia me tocado.. R.: Beleza..Carinha isto mesmo que eu precisava. Grande abraço... :D valeu

R.: Ok....foi o que acabei de fazer.......a tabela agora tem duas colunas com cnpj´s uma sem os caracteres e a outro com os caracteres. :D valeu...t+

Ola.. tenho este codigo abaixo que uso pra importar dados *.csv > paradox: Var ArqLido, ArqSize : Integer; Txt: TextFile; Entrada: String; Linhas: Integer; now_temp: TDateTime;//variavel contadora de tempo begin Update; STATUS.CAPTION:='Convertendo Ddaod'; UpDate; now_temp:=now;//recebe tempo tempo.caption:= '00:00:00'; TABLE1.Active:=TRUE; Assignfile(Txt,'C:\XXXREL\CLIENTES.TXT');//caminho do arquivo TXT Reset(Txt); ArqLido := 0; ArqSize := FileSize(txt) *128; // *** FileSize assume blocos de 128 quando não é arquivo "tipado" gauge1.MaxValue := 104; // *** equivale a 100 +4 valores que você incrementa na mão Linhas := 0; While not Eoln(Txt) do begin Readln(Txt,Entrada); ArqLido := ArqLido +Length(Entrada)+2; //*** este 2 = CR+LN (presumido) Gauge1.Progress := Trunc(ArqLido/ArqSize *100); // *** progress chegará no máximo a 100 (%) // Inc(Linhas); If Linhas > 4 then//aqui verifica e desconcidera AS 4 primeiras linhas do CSV {MAIS UM IF AQUI} begin Table1.Insert;//Abaixo converte pra *.DB..lembrando que antes deve criar o DB no DataBase Desktop. Table1.FieldByName('C').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1); Delete(Entrada, 1, Pos(PathSep, Entrada)); Table1.FieldByName('cliente').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1); Delete(Entrada, 1, Pos(PathSep, Entrada)); EU Precisaria colocar mais um IF ali onde diz {MAIS UM IF AQUI} este If seria pra filtrar a COLUNA UF=SC então ele processaria somentos os clientes do estado de SC. Não sei se fui claro...... como esta hoje não existe filtro por estado ta pegando e convertendo tudo...... Grato

R.: ok...é que como os arquivos são de terceiros acabei importando da maneira como vieram...mas já tou arrumando uma maneira de contornar a situação..e ficar os dois arquivos com os dados iguais(campo cliente)... R.: aqui deu problema pois também existe cpf ...e ai não ta dando certo.. Mas beleza..Micheus...vou ter que mudar o processo mesmo....então deixa quieto.. Grande abraço Grato

Ué...estranho aqui quando tento fazer o download diz que arquivo não existe no servidor... :unsure: ai você consegue fazer o download??

Ola..carinha...beleza? testei....e a imagem...e ela não inverte e volta novamente...simplismente ela quando bate na borda direita....some...não aparecendo mais... :blush: é isto mesmo?? Grato

Ola... Preciso fazer esta consulta sql Paradox: Select Dt_Emissao, Nr_ctrc, Pg_Cnpj, Cnpj_cpf From Ctrc, Clientes Where (Ctrc.Pg_Cnpj = Clientes.Cnpj_Cpf) O problema...é que os dados do campo: Ctrc.Pg_Cnpj estão neste formato: 00.000.000/0000-00 enquanto que o campo Clientes.Cnpj_cpf esta com este formato: 00000000000000 (sem pontos, barras etc) Neste caso, teria uma forma de a consulta funcionar....sem ter que alterar nada nas tabelas?? Grato

R.: ola...Jonas.....os lincks parece estarem quebrados..... :blush: respondendo a pergunta de nosso colega: Carlos R.: não é pra WinXp mesmo.....só gostaria de deixar atualizado. Grato a todos :)

Ola..pessoal. muito Grato pelas ajudas... Gostei muito da dica do Aleksander porém......seguinte.. notei que o carrinho sai da esquerda e vai até a direita...e depois como o Aleksander menciona...ele volta de ré... não teria como ele sair da esquerda e quando chegar na margem direita, ele ir tipo sumindo.....pois senão acho que fica meio esquisito, pois como quando na diteira que ele bica a margem direito, e some rapidinho....... Teria como fazer assim?? valeu...pessoal abraço

R.: eu usei o DatabaseDesktop que vem com o delphi e funcionou.... falou

Ola...procurei no forum e não achei nada .....sei que uma vez aprendi a fazer num curso que fiz a muito tempo, mas não me lembro mais... precisaria fazer uma imagem ficar se movendo na tela......tipo um carrinho que entra no canto esquerdo do form e vai até o direito e depois volte de novo, repetindo o processo.... tentei fazer com imagem1.left dando o valor a ela...num timer, mas não ficou legal. alguém tem um exemplinho? Grato

oba...Jonas esta é a versão que tenho, parece que existe outra versão mais recente mais não acho ela.... :unsure: grato

Ola...pessoal alguém sabe qual a ultima versão do BDE AMINISTRADOR? e aonde posso encontrar para baixar? Abraço

Ok...valeu...vou dar uma estudada.... :) Abraço

Micheus.....Bom Dia! Eu encontrei uma suite que trabalha com o firebird e consegui instalar ela no D4. a suite é chamada de FBLib achei neste endereço: FBLib - Download So que não consegui saber como funciona. procurei na instalação e não achei nenhum manual. só tem um exemplo mais é em Delphi 2006 você por acaso sabe manipular esta Suite? Grato

Micheus.....fiz todo o processo...e não deu certo..não. Li alguns artigos na net e parece que não é muito facil de instalar no D4 não... Mas eu te pergunto.....na suite RxLib não tem nenhum componente que funcione?? porque esta suite tenho instalada. :) Grato

Micheus...Meu delphi 4 já esta com as novas atualizações....tudo certinho...eu já tenho baixado e instalado. quando comecei a utiliza-lo foi a primeira coisa que fiz... Bom....vou tentar refazer todo o processo....e ver se funca.. valeu as dicas... abraço

R.: Micheus.....fiz o que me sugeriu.........e deu erro. Veja a imagem do erro no exato momento que clickei em Compilar/Instalar. Abraço

R.: Ok..Ola Micheus.....desculpa em responder, não havia visto que você havia respondido, tava uma correria nestes dias. R.: Bom vamos lá, eu baixei este acima...ai instalei a versão pra D4 porem não aparece os componentes da suite, ou seja, a suite ta instalada, mas parece que os componentes da suite não... Tem algum segredo ao instalar?? eu fui em <components><Install Packages><add>e ai procurei o arquivo ZCore.bpl dentro da Pasta <...\zeos\packages\delphi4> confirmei e instalei. ai vi no botão <components> que não tem nada dentro da suite.:( Será que estou fazendo corretamente? Grato

Oba...Resolvido. procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin for i:= 0 to ComponentCount - 1 do begin if (Components[i].ClassName = TQrLabel.ClassName) then begin if (TQrLabel(Components[i]).Caption = '0,00') then begin TQrLabel(Components[i]).Font.Style:= [fsbold] end; end; end; end; valeu.. :)

Oba.....carinha....neste caso não uso banco....é apenas um layout de tabelas.. trabalho apenas com Edit´s e Qrlabel´s....e são muitos, por isto precisava de algo que automatizasse a situação em virtude de gde nr de edit´s e qrlabel's. Não poderia ser assim pois daria muito trabalho: if QtValor.caption := '0,00' then Begin QTValor.Font.Color := clred; end else QTValor.Font.Color := clblue; end; end; entende? Teria que ser algo mais prático. Grato

Ola...pessoal Tenho uma tabela de preços feita no quickreport, onde tem mtos qrlabel´s infileirados em colunas e linhas, e estão confundido um pouco a vida de quem esta lendo. Então a idéia seria ....negritar os campos que estão deferente de 0,00 neste caso teria que ser um código com a seguinte lógica. algo assim. alguém poderia me dizer como ficaria ó codigo neste caso, pois parece que é um código bem pequeno onde trato todos os qrlabel´s de uma só vez.....mas não sei como montar. Grato

R.: Bom vou dar uma procurada na net, deve ter algo. mas se alguém sabe algo a respeito por favor em de um toque.... valeu..Kiko muito grato pelas dicas. t+

Ola...K!Ko.. Beleza?? Bdia! R.: carinha....infelizmente não tem esta paleta no meu D4, de um tempo pra cá estou notando o porque que a versão 4 foi liberada. Não tem muitos recursos. O delphi 4 é de 1998, vélhinho .... Meu amigo tem Delphi 5 e neste já tem a Paleta Interbase. Então como no D4 não tem, acredito que não gerencia outro banco diferente do Paradox, será?? Ai é muito ruim, pois fico impossibilitado de avançar........ Bom derepende até rode, vou esperar a opinião de mais alguns colegas... Até aqui muito Grato :)