Re: [delphi-br] Como Implementar o Sintegra
Celio, Aqui voce encontrara toda a documentação necessária: http://www.sintegra.gov.br/ [ ]´s Moacir Celio Ricardo escreveu: Ola, colegas... Estou precisando implementar o SINTEGRA em meu sistema, mas nao tenho ideia de como faze-lo. Sei que o sintegra é um arquivo com posiçoes padronizadas de cada dado a ser inserido. Vi que existe um projeto facilitando o trabalho (www.projetosultan.org), mas para fazer o download é necessario cadastro, que nao esta funcionando. Baixei alguns convenios, mas continuo com algumas duvidas. Minhas duvidas sao: 1)Meu cliente é um distribuidor de produtos alimenticios, em SP, ele nao fabrica, apenas revende os produtos, nao usa CEF, imprime as nota s na matricial. Qual tipo de registro devo usar (somente o registro 50)? 2)Onde encontrar o layout, ou seja, a regra de padronizaçao para criar o arquivo. Fiz uma busca no forum e procurei nos sites indicados, mas sem sucesso. Agradeço a ajuda, e se eu conseguir resolver meu problema, posto aqui como consegui. Ricardo
Re: [delphi-br] Remover espaços
Leonardo,
Use StringReplace para isto:
MinhaString:=StringReplace(MinhaString,' ','',[rfReplaceAll]);
[ ]´s
Moacir
ps.:
Em caso de nostalgia:
Function AllTrim( str : string ) : string;
begin
Result := StringReplace(str,' ','',[rfReplaceAll]);
end;
;)
Leonardo Quinino escreveu:
TESTEI do seu jeito, mas tem algo errado algumas vezes retira outras não,
porque vc incrementa o iCont antes de fazer o delete na string vazia (#32)
reescrevi ficou mais ou menos assim
//o nome alltrim foi só para relembrar os velhos tempos do clipper rs :)
Function AllTrim( str : string ) : string;
var
iCont: Integer;
sStr: String;
begin
sStr := str;
iCont := 1;
while iCont = Length(sStr) do
begin
if sStr[iCont] = #32 then
begin
Delete(sStr, iCont, 1);
while sStr[iCont] = #32 do
Delete(sStr, iCont, 1);
end;
Inc(iCont);
end;
Result := sStr;
end;
Em 16/05/07, Malomar Alex Seminotti [EMAIL PROTECTED] escreveu:
Dá uma olhada se isso é o que vc precisa.
procedure OneSpace;
var
iCont: Integer;
sStr: String;
begin
inherited;
sStr := Trim(' TESTE DE VÁRIOS ESPAÇOS ');
iCont := 1;
while iCont = Length(sStr) do begin
if sStr[iCont] = #32 then begin
Inc(iCont);
while sStr[iCont] = #32 do
Delete(sStr, iCont, 1);
end;
Inc(iCont);
end;
ShowMessage(sStr);
end;
--
[]'s
Malomar Alex Seminotti
Erechim - RS
Ricardo César Cardoso escreveu:
Não me leve a mal, mas eu tinha citado isso, veja atentamente o exemplo
que eu passei.
Sds,
Ricardo.
BandaLemuel [EMAIL PROTECTED] bandalemuel%40yahoo.com.br
escreveu: Ou somente Trim(string);
Ele tira os espaços do Inicio e do Fim..
Wesley
- Original Message -
From: Ricardo César Cardoso
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Tuesday, May 15, 2007 8:48 AM
Subject: Re: [delphi-br] Remover espaços
bem... vc teria que usar a função Trim para isso.
Um exemplo:
TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption := Trim(Edit1.Text);
// Variações:
// TrimLeft - tira os espaços à esquerda da string
// TrimRight - tira os espaços à direita da string
End;
Agora é só adaptar pra tua necessidade.
Sds,
Ricardo.
Diego Dmitruk Maturana [EMAIL PROTECTED] diego%40dlmnet.com.br
escreveu: Olá, tenho no Delphi um campo DBEdit, e gostaria que quando a
pessoa clicar em SALVAR, ele removesse mais de um espaço, caso a pessoa
tenha digitado mais de um. EX: A pessoa digita Delphi BR, mas quero que ele
filtre e salve como Delphi Br (somente com um espaço.)
Se alguém puder ajudar agradeço.
Diego.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF TOPIC] Ferramenta de backup para MySQL - Linux
Pessoal, Desculpem o OFF !! Estou precisando de uma ferramenta de backup para banco de dados MySQL para uso em ambiente Linux e que possa ser programada a sua execução no cron, preferencialmente FREE ;) [ ]´s Moacir
Re: [delphi-br] Ajuda com Label
Procure pelo componente ALabel, é free e com fontes. [ ]´s Moacir xdlegal escreveu: Bom dia pessoal, estou precisando colocar o Label na vertical alguem sabe como me ajudar??? Desde ja agradeço.
Re: [delphi-br] Re: PDT para TX T em Delphi, alguém conhece alguma maneir a de fazer ?
Netto, De uma olhada no FoxIt, ele transforma de pdf em texto. www.foxitsoftware.com [ ]´s Moacir netto35 escreveu: --- Em delphi-br@yahoogrupos.com.br, Gerson Machado [EMAIL PROTECTED] escreveu Preciso ler um arquivo PDF e transforma-lo em arquivo TXT para leitura e atualização de uma tabela, alguém poderia dar um dica de como fazer ? Obrigado. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] *** Minha primeira ajuda aqui não vai te realizar, trabalho com saude, com laudos e fichas de historicos de pacientes, alguns pedem a impressão em pdf porque não da para fazer nada, apenas visualizar. Recebi esses dias tabelas do sus, (infelizmente comprei), mas ninguém me disse que era pdf, infelizmente acho qu sem chance. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvida simples DBCtrlGrid
Fabricio, Faça um Append e não um Insert. [ ]´s Moacir Fabricio Venancio escreveu: Ola amigos Não achei na doc. a propriedade que eu altero pra, ao inserir um registro, sempre criar a linha no fim do grid... Parece-me que o default é logo acima da linha corrente...alguem sabe onde mudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo texto: Ve rificar se está sendo usado.
Mauro, Emprego esta rotina para 'falar' com uma aplicação em java. No nosso caso funciona assim: - O aplicativo A gera o arquivo com um nome e somente apos terminar de grava-lo renomeia para o nome definitivo. Ex.: Cria como _Arquivo.txt e após terminar de gravar renomeia para Arquivo.txt - O Aplicativo B pega o arquivo gerado Arquivo.txt e renomeia para @@Arquivo.txt. Se conseguiu, abre e le conteudo. Depois elimina o mesmo. Usamos um bloco try except end Espero ter ajudado. [ ]´s Moacir 'Mauro escreveu: Colegas, Tenho uma aplicação que conversa com um txt , onde envia dados para consulta de um outro soft. Raramente temos o problema de nós dois ao mesmo tempo tentarmos acessar o arquivo, o que dá basicamente um erro de violação. Alguem tem alguma rotina/dica para tratamento deste problema? Saudações Mauro Paes Correa www.gnx.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Salvar JPEG no Firebird
Marcelo,
Coloque a unit jpeg na clausula 'uses' do form
[ ]´s
Moacir
Marcelo escreveu:
Amigos da lista, venho, desesperadamente, solicitar a ajuda de vcs.
Estou tentando salvar um JPEG no Firebird + está dando o seguinte erro:
Bitmap image is not valid
O código como base que peguei está em:
http://www.delphi.eti.br/ver_dica.php?id=6672
Na nossa lista, eu achei assuntos referente, peguei os exemplos mas
também deu o mesmo erro. Por isso estou vindo até os amigos da lista. Se
alguém puder me ajudar eu agradeço.
Estou usando o Firebird 1.5 - IBO 4.2.Ga - Delphi 6 Professional
O campo no banco de dados está como Blob - Binary
O campo na Query está como: BlobType - ftParadoxOle
segue abaixo o código:
const
OffsetMemoryStream : Int64 = 0;
para abrir e salvar a foto:
var jpg1 : TJpegImage;
if OPPicture.execute then
image1.Picture.LoadFromFile(OPPicture.FileName);
if OPPicture.FileName '' then
begin
jpg1 := TJpegImage.Create;
jpg1.LoadFromFile(OPPicture.FileName);
Dm1.TbPro.FieldByName('FotoPro').Assign(jpg1);
jpg1.Free;
end;
para carregar a foto:
var MemoryStream: TMemoryStream;
Jpg: TJpegImage;
if not(Dm1.TbPro.IsEmpty) and
not((Dm1.TbPro.FieldByName('FotoPro') as TBlobField).IsNull) then
try
MemoryStream:= TMemoryStream.Create;
Jpg := TJpegImage.Create;
(Dm1.TbPro.FieldByName('FotoPro') as
TBlobField).SaveToStream(MemoryStream);
MemoryStream.Position := OffsetMemoryStream;
Jpg.LoadFromStream(MemoryStream);
Image1.Picture.Assign(Jpg);
finally
// Jpg.Free;
MemoryStream.Free;
end
else
Image1.Picture := Nil;
end;
Desde já agradeço a todos.
[delphi-br] [OFF TOPIC] - Arquivos Clarion (tps) com senha
Pessoal, Alguem ai já conseguiu abrir algum arquivo do Clarion que tivesse senha ?? Existe uma senha padrão, tipo o paradox ?? Eu tenho o topscan, preciso saber como passar pela senha ;) Qualquer dica é bem vinda.
Re: [delphi-br] Re: Dúvida sobre cobrança
Jeferson, Eu cobro 6,5 % do valor final do projeto. [ ]´s Moacir Jefferson - Fórum escreveu: Aproveito a dúvida do colega, pra perguntar uma coisa, a vocês. Claro que cada sistema tem seu valor financeiro, mas como vocês fazer para chegar a um valor de manutenção, como fica na prática, a cobrança desse valor de manutenção? Se não for pedir demais, dar um exemplo de cobrança que é feito por algum sistema que vocês tenham feito. Valeu! Jefferson - Original Message - From: Murillo Proença To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 25, 2007 9:15 AM Subject: [delphi-br] Re: Dúvida sobre cobrança Toda a rotina que você desenvolve deve ter um período estipulado em contrato de garantia, ou seja, você instala e ele testa e faz uma verificação durante o tempo previsto, ocorrendo erros você corrige dentro da garantia. Acabou este período, mesmo que ocorram erros você não é obrigado a corrigir de graça, a menos que ele te pague a manutenção mensal. Tudo dependende do contrato que você fizer com o cliente. Abraço Murillo Proença --- Em delphi-br@yahoogrupos.com.br, Auriston Lopes [EMAIL PROTECTED] escreveu Tenho alguns clientes que não pagam manutenção, e estou tendo problemas em cobrar as atualizações, interpretei que se não há manutenção, então seria correto ele pagar pelas melhorias e ou correções que eu fizer, afinal tempo é dinheiro, Se alguém está passando por esta situação me dê uma dica de como contornar essa situação. sds auriston __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Descobrir o nome de todos os formulários da Aplicação
PessoALL, Gostaria de listar o nome de todos os formulários presentes no projeto, em tempo de execução. Alguma dica ?? [ ]´s Moacir
Re: [delphi-br] [OFF-TOPIC] - Trial delphi for php
Andreano, E a criação de componentes (será este o nome neste caso ??) no D4PHP ?? Como funciona ?? Já tenho algumas classes que uso nos meus projetos. Poderei integra-las ao D4PHP ?? [ ]´s Moacir ps.: Acabei de adquiri-lo, mas demora uns 15 dias ainda pra chegar e estou super curioso a respeito ;) Andreano Lanusse escreveu: No futuro talvez venhamos a suportar HTML no designer. Colocar apenas um designer HTML ao invés do conceito de componentes tornaria o produto muito inferior, no caso do Designer da VCL, basicamente você não precisa ser um expert em HTML. Mas o smarty funcionaria perfeitamente integrado com o que você utiliza hoje e traz uma separação muito clara do que é PHP e do que HTML. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Marcos André Sent: Tuesday, April 03, 2007 7:03 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] [OFF-TOPIC] - Trial delphi for php Andreano, eu estava na apresentação aqui no Rio de Janeiro, gostei muito do que foi porposto, mas imaginei que a ferramenta visual seria igual a do dreamweaver por exemplo, naum um arquivo XML como pude percer... e quanto ao smarty nunca usei e não estava pretendendo usar, costumo criar minhas imagens no fireworks e depois exportar para o HTML como slices, formatando os espaços com div e tables, sentia maior liberdade de desenvolver desta forma. O Delphi for PHP, como te disse no envento, é um grande lançamento, mas pq não pensaram de se editar o VISUAL como no dreamweaver? Este ao meu ver é o melhor editor visual para designer, peca em código. eu tentei pegar um layout do site que desenvolvi em frame mas msm assim não funcionou mto bem, tem algumas horas que o frame cria barras de rolagem n desejadas... Bom espero melhoras, e estou disposto a dar sugestões se tiver um canal para isto ao qual sejamos ouvidos. abraço Marcos André Em 03/04/07, SEOB [EMAIL PROTECTED] mailto:seob.listas%40gmail.com escreveu: nao faça isso =) , acredito q deve sair um trial de 30 dias, como o pessoal tava comentando no forum, essa trial de um dia deve ter sido feita pra quem tava correndo atraz do desconto q foi ate o dia 30/03. abração []'s SEOB Anderson de S. Dominoni Gomes [EMAIL PROTECTED] mailto:seob%40allline.com.br seob%40allline.com.br www.allline.com.br MSN: [EMAIL PROTECTED] mailto:seob%40allline.com.br seob%40allline.com.br GTalk: [EMAIL PROTECTED] mailto:seobbr%40gmail.com seobbr%40gmail.com ICQ 57094184 SKYPE seob_br - Só depois que o último rio estiver seco, a última árvore for derrubada, e o último peixe contaminado, VOCÊS ENTENDERÃO QUE DINHEIRO NÃO SE COME. Pensamento de um chefe indígena americano - Original Message - From: Gerhard Roger Nack To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, April 03, 2007 9:59 AM Subject: RES: [delphi-br] [OFF-TOPIC] - Trial delphi for php Cabe apenas um observação sobre essa licença de 1 dia. Fiz meu cadastro no final da tarde e recebi o email com a licença. Comecei a baixar a instalação, mas a conexão estava muito lenta e caiu. Então tentei baixar novamente no outro dia cedo + o site da codegear estava muito lento, só consegui baixar no inicio da tarde, ou seja a licença já venceu e nem se quer consegui instalar o produto. E obviamente não consigo gerar outra licença. Certamente não serei eu que irei recomendar esse produto (Delphi PHP). [ ] s Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br ginho%40mult.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Escrever texto em uma imagem
PessoALL, Preciso, usando uma rotina em delphi, escrever um texto em uma imagem já existente. Qualquer dica ou sugestão é bem vinda ! [ ]´s Moacir
Re: [delphi-br] Só retorna uma linha!
Voce esqueceu de informar o dataset no componente quick report.. Quando isto acontece ele lista somente o registro atual.. [ ]´s Moacir Renan Nucci - CSM Soft escreveu: Ele provavelmente esta mostrando o ultimo ou o primeiro registro, certo? Se for o ultimo verificque se os seus componentes estão na aba certa (detalhes). Se for apenas o primeiro deve ser espaço que vc deixou ou a query que nao esta sofrendo um next... * Renan S. Nucci * * Desenvolvedor * * CSM Software * - Original Message - From: Alcistemas Informática To: delphi-br@yahoogrupos.com.br Sent: Monday, March 19, 2007 8:55 PM Subject: Re: [delphi-br] Só retorna uma linha! Vc deve ter setado a query nos campos e esquecido de setar a query utilizada no relatório, click sobre uma parte vazia do report, digo o form do report mesmo, fora dos campos, F11, sete o dataset a tabela que vc está utilizando. Acredito que resolva. - Original Message - From: Sergio To: delphi-br@yahoogrupos.com.br Sent: Monday, March 19, 2007 1:55 PM Subject: [delphi-br] Só retorna uma linha! Boa Tarde. Dúvida de pouca prática. Estou testando um relatório no Delphi 5 com QuickReport extraindo com SQL do Paradox e me retorna somente 1 linha. Ex: Select Codigo,Nome,Assunto from Tabela_tst where Codigo=Codigo_informado; Obs: Existem 5 ocorrências p/ código 300 e só printa 1. Alguém pode me dar uma dica de onde estou falhando? Sérgio [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Clarion
Higor, Estou na mesma sinuca de bico. Consegui o drive ODBC para acesso ao TPS, mas não consegui faze-lo funcionar. Caso tenhas sucesso ai, por favor, divida conosco a solução. Grande Abraço, Moacir Higor (Yahoo) escreveu: Pessoal, boa tarde!! Na empresa onde trabalho tem um sistema feito em Clarion - Topspeed, portando tenho vários TPS, porém, estamos fazendo nosso próprio sistema, esse que existe é de terceiro, e queríamos aproveitar a base, portanto, gostaria de saber se vocês poderiam me ajudar, dando dicas de como ler arquivos TPS e importando para meu banco, que no caso é Firebird. Obrigado desde já!! Higor [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conectar a base de dados do Clarion (tps)
PessoALL, Preciso conectar em uma base de dados do Clarion para importar alguns dados. Alguem já passou por isto ?? Sabe de alguma ferramenta de conexão ou de exportação de dados do Clarion ?? Qualquer dica é bem vinda ;) [ ]´s Moacir
Re: [delphi-br] Delphi Tour Brasil - Delphi 2007 for Win32 e Delphi for PHP
Andreano, Tour Delphi em Porto Alegre: Com certeza estarei lá !! Gostei do selo Powered by Delphi 2005 - Beta Version.. ;o) Lazarus: Continua valendo aquilo que já disse: - Agora com outras palavras: Lazarus para evoluir a passos largos depende de TODOS nós querermos isto e participarmos ativamente. A tua posição já sabemos (Josir - na mosca !!). Será que continuará a mesma caso a Borland te meta um pé no traseiro ?? [ ]´s Moacir Andreano Lanusse escreveu: Meus caros, vai começar o Tour de Delphi pelo Brasil, de 20 à 30 de Março. 15 cidades (Porto Alegre, Curitiba, Rio de Janeiro, Campinas, Belo Horizonte, São Paulo, Vitória, Salvador, Brasília, Goiânia, Natal, Cuiabá, Recife, Ribeirão Preto, Fortaleza) Gratuito, basta se inscrever. As inscrições já estão abertas, acessem http://dn.codegear.com/br Abraços, Andreano Lanusse | CodeGear Product Line Manager Latin America | phone. +1-(831) 431-5051 | mobile. +1 (831) 332-5100 CodeGear Where Developers Metter http://www.codegear.com http://www.codegear.com Artigos: http://dn.codegear.com/br http://dn.codegear.com/br Blogs: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sobre Lázarus
Andreano, Quanto custa uma licença de Delphi e quanto custa a licença para o Lazarus ?? Esquecestes que o Lazarus é de graça ?? Quantos aqui contribuem ativamente no seu desenvolvimento ?? Se refletirmos um pouco sobre isto, acredito que encontraremos o motivo de ..existe a muito tempo e não evoluir quase nada... Forte abraço, Moacir Andreano Lanusse escreveu: depois disso tudo, você ainda acham que é bom? recomendam? Lazarus existe a muito tempo e não evolui quase nada... []'s Andreano [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar Matriz 4 col e 2 lin.
Huberto, Tente assim: procedure TForm1.Teste (t : array of [0..3, 0..3] of LongInt; linha : Integer); [ ]´s Moacir humbertogrupos escreveu: Obrigado Sr. sabe-tudo, mas não funcionou. Vou esclarecer mais o caso: Tenho uma procedure que recebe como parâmetro esse array Seria algo assim: procedure TForm1.Teste (t : array[0..3, 0..3] of LongInt; linha : Integer); Porém não funciona, diz q era esperado um of, mas encontra [ Em C está assim: void Teste(long t[4][4], int linha) Alguém? -- Cabeçalho original --- De: delphi-br@yahoogrupos.com.br Para: delphi-br@yahoogrupos.com.br Cópia: Data: Tue, 20 Feb 2007 11:44:48 + Assunto: RE: [delphi-br] Criar Matriz 4 col e 2 lin. Ora, simples! var t: array [1..4, 1..4] of tipo_de_dado; Maiores esclarecimentos, sugiro consultar o excelente help do Delphi. Isso é Object Pascal básico! Sds. From: humbertogrupos [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br delphi-br@yahoogrupos.com.br Subject: [delphi-br] Criar Matriz 4 col e 2 lin. Date: Tue, 20 Feb 2007 08:19:05 -0300 Bem, estou transpassando um algorítmo em C para Delphi. Me deparei com o seguinte array: t[4][4] Como fazer isso no Delphi? Vlw. _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] Criar Matriz 4 col e 2 lin.
Humberto,
Na verdade vc precisa declarar um tipo para isto:
Veja como:
Na declaração de Types do teu form coloque:
Types
//-- Inclua esta linha
MeuArray = array [0..3,0..3] of integer;
TForm1 = class(TForm)...
Na declaração da função:
public
{ Public declarations }
function teste(t: MeuArray):integer;
end;
.
function TForm1.teste(t: MeuArray):integer;
begin
end;
[ ]´s
Moacir
humbertogrupos escreveu:
Obrigado Sr. sabe-tudo, mas não funcionou.
Vou esclarecer mais o caso:
Tenho uma procedure que recebe como parâmetro esse array
Seria algo assim:
procedure TForm1.Teste (t : array[0..3, 0..3] of LongInt; linha : Integer);
Porém não funciona, diz q era esperado um of, mas encontra [
Em C está assim:
void Teste(long t[4][4], int linha)
Alguém?
-- Cabeçalho original ---
De: delphi-br@yahoogrupos.com.br
Para: delphi-br@yahoogrupos.com.br
Cópia:
Data: Tue, 20 Feb 2007 11:44:48 +
Assunto: RE: [delphi-br] Criar Matriz 4 col e 2 lin.
Ora, simples!
var
t: array [1..4, 1..4] of tipo_de_dado;
Maiores esclarecimentos, sugiro consultar o excelente help do Delphi. Isso é
Object Pascal básico!
Sds.
From: humbertogrupos [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Criar Matriz 4 col e 2 lin.
Date: Tue, 20 Feb 2007 08:19:05 -0300
Bem, estou transpassando um algorítmo em C para Delphi.
Me deparei com o seguinte array: t[4][4]
Como fazer isso no Delphi? Vlw.
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] Gerenciador Remoto
Eduardo, Voce poderiam colocar aqui um exemplo de zip com as configurações ?? O que deverá estar nele.. tipo imagem, arquivos textos, etc.. [ ]´s Moacir Eduardo Silva dos Santos escreveu: você ta enganado, acabei de gerar um novo, entre na pagina http://sc.uvnc.com/cgi-bin/upload3.pl o usuario é: foo a Senha é: foobar vc faz o upload do zip com as configurações e ele te retorna o exe. Em 16/02/07, Desenvolvimento (Anderson) [EMAIL PROTECTED] escreveu: Eduardo, qdo eu fui fazer o novo .exe, vi q tavam cobrando pra fazer... mas obrigado pela dica... pessoal, recomendo q todos usem esse serviço, porque é muito mais fácil dar suporte com essa ferramenta. abração a todos and - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, February 16, 2007 9:02 AM Subject: Re: [delphi-br] Gerenciador Remoto *Anderson,* A pagina pra gerar o exe do single vnc não ta fora do ar, so mudaram o endereço, o novo é http://sc.uvnc.com/cgi-bin/upload3.pl Em 16/02/07, Desenvolvimento (Anderson) [EMAIL PROTECTED]desenvolvimento%40sisponto.com.br escreveu: a ultravnc disponibilizou uma página no seu site para fazer isso... agora, tirou do ar, mas eu baixei os arquivos q gera esse instalador. assim, eu gero o .exe aqui mesmo. é um criador de ULTRAVNC. se quiser ver o modelo, acesse: www.sisponto.com.br/conecta.exe ... o legal é q dá pra colocar imagem, textos e até o ícone do .exe. antes, uma empresa de informática q gerava esse .exe pra gente... cobrava 65 reais para modificar ou gerar esse .exe... daí eu corri atrás e descobri essa facilidade. eu criei uma rota de conexão interna na nossa rede, passando pelo modem adsl... assim, um cliente q não tenha conexao com ip válido, é possível conectar sem depender de rotas dentro da sua rede... conectamos até em clientes com linha discada. Nosso suporte é muito eficiente graças a essa ferramenta. Todos os problemas são solucionados quase imediatamente, sem a necessidade de ir um tecnico no local. []´s and - Original Message - From: Adriano Santos - Direção de Arte To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Friday, February 16, 2007 9:25 AM Subject: Re: [delphi-br] Gerenciador Remoto Um executável servidor pro UltraVNC? Como? -- *Adriano Santos* Desenvolvimento (Anderson) respondeu: usamos o ultravnc. e crio um .exe para o cliente, onde vai até nosso logotipo no programa... :P and [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 17:40 __ Informação do NOD32 IMON 2064 (20070215) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2065 (20070216) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Gerenciador Remoto
Eduardo, Muito obrigado, só depois de pedir o help é que vi que já tinha outra resposta. Grato, Moacir Eduardo Silva dos Santos escreveu: *Moacir, * voce baixa os fontes em http://www.uvnc.com/addons/singleclick.html faz as alterações, compact e compila em http://sc.uvnc.com/cgi-bin/upload3.pl user: foo senha: foobar e pronto, seu single vnc esta pronto. so lembrando que vcs devem pesquiser pq nao basta criar o exe, tem que colocar o VNCView para rodar em modo Listening... Em 16/02/07, Moacir - Prisma [EMAIL PROTECTED] escreveu: Eduardo, Voce poderiam colocar aqui um exemplo de zip com as configurações ?? O que deverá estar nele.. tipo imagem, arquivos textos, etc.. [ ]´s Moacir Eduardo Silva dos Santos escreveu: você ta enganado, acabei de gerar um novo, entre na pagina http://sc.uvnc.com/cgi-bin/upload3.pl o usuario é: foo a Senha é: foobar vc faz o upload do zip com as configurações e ele te retorna o exe. Em 16/02/07, Desenvolvimento (Anderson) [EMAIL PROTECTED]desenvolvimento%40sisponto.com.br escreveu: Eduardo, qdo eu fui fazer o novo .exe, vi q tavam cobrando pra fazer... mas obrigado pela dica... pessoal, recomendo q todos usem esse serviço, porque é muito mais fácil dar suporte com essa ferramenta. abração a todos and - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Friday, February 16, 2007 9:02 AM Subject: Re: [delphi-br] Gerenciador Remoto *Anderson,* A pagina pra gerar o exe do single vnc não ta fora do ar, so mudaram o endereço, o novo é http://sc.uvnc.com/cgi-bin/upload3.pl Em 16/02/07, Desenvolvimento (Anderson) [EMAIL PROTECTED] desenvolvimento%40sisponto.com.br desenvolvimento%40sisponto.com.br escreveu: a ultravnc disponibilizou uma página no seu site para fazer isso... agora, tirou do ar, mas eu baixei os arquivos q gera esse instalador. assim, eu gero o .exe aqui mesmo. é um criador de ULTRAVNC. se quiser ver o modelo, acesse: www.sisponto.com.br/conecta.exe ... o legal é q dá pra colocar imagem, textos e até o ícone do .exe. antes, uma empresa de informática q gerava esse .exe pra gente... cobrava 65 reais para modificar ou gerar esse .exe... daí eu corri atrás e descobri essa facilidade. eu criei uma rota de conexão interna na nossa rede, passando pelo modem adsl... assim, um cliente q não tenha conexao com ip válido, é possível conectar sem depender de rotas dentro da sua rede... conectamos até em clientes com linha discada. Nosso suporte é muito eficiente graças a essa ferramenta. Todos os problemas são solucionados quase imediatamente, sem a necessidade de ir um tecnico no local. []´s and - Original Message - From: Adriano Santos - Direção de Arte To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoog rupos.com.brdelphi-br%40yahoog rupos.com.br Sent: Friday, February 16, 2007 9:25 AM Subject: Re: [delphi-br] Gerenciador Remoto Um executável servidor pro UltraVNC? Como? -- *Adriano Santos* Desenvolvimento (Anderson) respondeu: usamos o ultravnc. e crio um .exe para o cliente, onde vai até nosso logotipo no programa... :P and [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.18.0/689 - Release Date: 15/2/2007 17:40 __ Informação do NOD32 IMON 2064 (20070215) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2065 (20070216) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] off topic: usando gmail como filtro anti spam de todos seus emails
Thunderbird na veia !! Outlook é lixo !! [ ]´s Moacir Adriano Santos (Yahoo) escreveu: Em tese não, precisa testar. Agora uma perguntinha também em off, rsrs. Vc usa qual cliente de recebimento de e-mails? Outlook? Cara uso o Thunderbird e o anti-spam integrado dele é matador. Muito loko mesmo e ainda tem uma pancada de recursos. *Adriano Santos* Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. pelebr respondeu: como o gmail tem um filtro porrada anti spam pensei em dar forward de todas as minhas contas de email para o gmail e me livrar de centenas de anuncios e phishings de uma so vez. mi nha duvida eh a seguinte se eu der forward das mensagens recebidas por [EMAIL PROTECTED] mailto:meuemail%40dominio.com.br para o gmail incluindo os spams o gmail ira acusar meu dominio como enviador de spams? ou o forward message mantem o enviador original do spam e nunca corro risco de sofrer bloqueios? nao quero queimar o filme de meu dominio hehe No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.39/686 - Release Date: 14/2/2007 07:54
[delphi-br] Endereço de Download do Zeos
PessoALL, Preciso do link de download da versão atual (estavel) do ZEOS. Esta versão suporta a versão 5.x do mySQL ?? [ ]´s Moacir
Re: [delphi-br] duvidas com html
1º descubra qual o nome do parametro da pagina e depois atribua o valor a ele. Ex.: Supondo que o nome do parametro é 'teste': 1) Crie uma variavel chamada url 2) url := 'site.com.br?teste='+Edit1.Text; 3) passe a url para o webbrowser e seja feliz ;) [ ]´s Moacir Hudson escreveu: Ola... Gente esteou fazendo um conexão ao uma pagina na internet usando o webbrowser... mas preciso colocar o texto a uma input text e não estou sabendo ja tentei algumas coisas, como: site.com.br?nomedoinput=texto site.com.br?form1.nomedoinput.value=texto mas não deu certo? alguem pode me ajudar? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Identificação do de ban co de dados
fsfilho03, Em primeiro lugar voce deverá utilizar uma ferramenta de ftp ou um editor de fontes (tais como Rapid PHP, html-Kit, etc) para acessar os arquivos fontes do php. Quanto a conexão com o banco de dados voce deverá procurar por palavras como Mysql_connect (MySQL), ibase_connect (Interbase/Firebird) entre outras. Espero ter ajudado. Moacir fsfilho03 escreveu: Olá, Uma empresa me solicitou consultoria a respeito da substituição de um software atualmente em produção. O programa roda no navegador no endereço //10.0.0.1/pasta/index.php. Preciso identificar qual o banco de dados que está sendo utilizado e uma forma de acesso. A empresa que implantou o sistema não dá mais manutenção e não tenho contato com ela. Ao tentar acessar a pasta do sistema, pelo windows explorer, na barra de endereço, ao digitar //10.0.0.1/pasta, é carregado automaticamente o arquivo index.php. Como impedir este comportamento, isto é, entrar no conteúdo da pasta sem carregar index.php? Se o sistema foi desenvolvido em php, posso deduzir o banco de dados utilizado? Qualquer dica é bem vinda, desde já agradeço. Florentino S. Filho Goiânia-GO
Re: [delphi-br] Re: Delphi, ainda compensa ? Tem futuro - Kylix
Fellipe, Concordo em gênero, número e grau !! Temos que buscar alternativas que não nos deixe na mão da m$, borland, ou seja lá o que for. Gostaria de deixar uma pergunta ao Andreano: - Se a Borland não tem mais interesse comercial no Kilyx, porque não libera o código fonte para a comunidade ?? Os acionistas (leia-se M$) não deixam ?? [ ]´s Moacir Fellipe Henrique escreveu: Amigos, só entrando no assunto, e sem puxar a sardinha pra nenhum lado... Todos falam que o Java é Free.. e tals... mas quem sabe até quando?!? Alguém tem o fonte dele, além da Sun? Eu só acredito em um ferramenta free, sendo esta Open, pois se a empresa resolver voltar atras, com o codigo fica fácil pra comunidade continuar... Imagina agora a Sun, resolver cobrar pelo Java? O que vai acontecer? Os programadores em Java deverão pagar por ele, ou mudar de linguagem... Temos aí o exemplo do interbase, que a Borland liberou o código, e depois viu a burrice que tinha feito, e resolveu voltar atrás... mas já era tarde d+.. e muito melhor pra nós que temos o Firebird, bom e gratuito... O que eu quero dizer é o seguinte, linguagem que tem vida eterna, é a linguagem Opensource, em que a comunidade nao deixa morrer, a partir do momento em que uma empresa tem o codigo de alguma linguagem esta está fadada à empresa, ou seja, se a empresa quiser matar a linguagem ela pode. Agora, eu fico preocupado com o rumo das coisas, pelo visto o Win32 está com os dias contatos, e pelo que pude ver do .NET, EU não gostei opinião pessoal. []s Fellipe H. Em 15/11/06, Rodrigo [EMAIL PROTECTED] escreveu: Boa tarde galera, Só contribuindo com um pouco do meu conhecimento. tenho bastante experiência com Adm. de Redes faço acessoria em Redes (Window e Linux) trabalho com eles ja faz uns 7 anos de 2002 pra cá tive como conquista profissional e pessoal sair sempre da mesmice...ja gostava de programaçãoafinal todo Adm. de Rede, precisa conhecer um pouco disso também. Programo em PHP (Nível Av. OOP) e Delphi (Intermediário OOP) não sou faixa preta nele mas me viro, faço analise...e tudo que o mercado exige...boa documentação..padronização... e uso de ferramentas controle de versao/projeto...blabla Irei falar um Pouco do Linux, conheço muitos feras e amigos meus...também e todos nós temos essa convicção: Tem muitas empresas que vão para Linux/Windows por que querem econimizarja começa não valorizando seu serviçoafinalestão querendo cortar gastos...e não vem me dizer que é para não depender de fornecedoresde produtos nãoque a grande parte dos karamadas que conheço falam a mesma coisa, querem economizar e PONTO. A administração de usuários no Linux é muito fraca...nivel de ferramentas, nenhuma empresa se compromete a desenvolver uma ferramenta de administração igual o AD da Microsoft entre outras ferramentas da microsoft são muito superiores do que as do Linux. Adm. de Rede precisa de produtividade...facilidades, não de ter que ficar abrindo confs..de arquivos para arrumar o que o modo visual não fez direito...e não ficar criando scripts bashpara administrar o Adm. precisa de facilidades...produtividade... falar que uma ferramenta é melhor que outra...eu acho subjetivo. um exemplo é: O cara ia fazer um furo na parede, ele escolheu um PARAFUSO E UM MARTELO, ele vai conseguir colocar o PARAFUSO NA PAREDE? vai sim, vai ficar legal? não. Qual seria a solução para ele? Martelo e Prego. Ou seja cada ferramenta tem seu espaço, cada um deve usar para resolver seu problema de maneira mais produtiva e viável... soh um aviso. Microsoft esta em contato com a Zend Developera que escreveu o parse do PHP...e fez a melhor IDE de desenvolvimento para PHP. Microsoft lançara produtos para rodar em Linux, a Microsoft vai para de querer combater o uso do Linux.viu que por mais de 15 anosnão conseguiu...agora ela vai usar a plataforma para ganhar dinheiro...Inteligente elesnão.. então galera, na hora do projeto, pesquise e veja qual a melhor farramenta irá solucionar seu problema. Não seja Xiita, não faz bem para sua carreira. Abs, Rodrigo Mota. - Original Message - From: Valfrid-Ly Silva Couto To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Wednesday, November 15, 2006 3:01 PM Subject: Re: [delphi-br] Re: Delphi, ainda compensa ? Tem futuro - Kylix Só colocando mais uma pergunta para acrescentar as do Josir: 3) Se o Delphi é tão superior e coisa e tal, porque a Borland foca/focou tanto esforço no JBuilder. Eu lembro do lançamento do Delphi 6 onde, no evento de São Paulo a parte da manhã foi para o Delphi e a tarde para o JBuilder e o palestrante falou que lá fora, se fala Java. Josir Gomes [EMAIL PROTECTED] josir%40globo.com escreveu: Olá pessoal, a questão não é Windows, Linux ou produtividade. A questão com a Borland é justamente de confiança! Se os caras já abandonaram o
Re: [delphi-br] Delphi .NET
Na verdade, davam suporte ao Acess, agora dão suporte ao MSDE... [ ]´s Moacir Rodrigo escreveu: Oi da uma vasculhada melhortodos que eu conheço da suporte ao ACCESS LocaWeb - HostNet e outros por ai o que mais tem eh suporte pra ACCESS. Abs. Rodrigo Mota. - Original Message - From: Lucelio Domingos do Nascimento To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 16, 2006 2:10 PM Subject: [delphi-br] Delphi .NET Olá pessoal, estou com um tremendo problema: Estou desenvolvendo uma aplicaçãozinha em ASP.NET do Delphi 2006. Localmente consigo manipular normalmente o Banco de dados (Access) porém, quando procurei um seridor para hospedar a aplicação, nenhum dá suporte ao Access e o mais barato que achei só dá suporte ao MySQL. Tentei migrar para utilização do MySQL mas não consegui. Alguém teria uma receita de bolo pra eu utilizar o MySQL e conhece algum servidor em que possa hospedar minha aplicação? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Trocar enter por nulo
Use a função Delete: if pos(#13, ls_temp) 0 then delete(#13,ls_temp,1); if pos(#10, ls_temp) 0 then delete(#10,ls_temp,1); [ ]´s Moacir Henry Maltz escreveu: Pessoal, como o subject já diz, hehehe, alguém sabe como trocar enter por nulo? tentei assim, mas está colocando um espaço e queria simplesmente sumir com aquela casa: if pos(#13, ls_temp) 0 or pos(#10, ls_temp) then ls_temp[ll_pos] := #0; obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi, ainda compensa ? Tem futuro - Kylix
Andreano, Acredito que com a tua resposta a primeira pergunta tenha ficado claro a todos se existe ou não comprometimento da Borland com a M$. Abraços, Moacir Andreano Lanusse escreveu: 1) Já, como parte de um acordo em que a Borland iria continuar desenvolvendo ferramentas de desenvolvimento para Windows, no dia seguinte as açòes compradas pela Microsoft que não tinha direito a voto foram todas vendidas. 2) O código da CLX é aberto, assim como o da VCL, qualquer coisa além disso é decisão da direção da empresa que neste momento não tende para este lado. []'s Andreano Lanusse IDE, Product Line Sales Manager CodeGear a new company born of Borland blocked::BLOCKED::blocked::BLOCKED::http://info.borland.com.br/borcon Tel.: +55 (11) 2165 - 8000 / Mobile: +55 (11) 8196-5912 blocked::BLOCKED::blocked::BLOCKED::http://info.borland.com.br/borcon Blogs: http://blogs.borland.com/andreanolanusse blocked::BLOCKED::blocked::BLOCKED::http://blogs.borland.com/andreanolanusse Artigos: http://bdn.borland.com blocked::BLOCKED::blocked::BLOCKED::http://bdn.borland.com/ From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Moacir - Prisma Sent: Thursday, November 16, 2006 2:55 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Delphi, ainda compensa ? Tem futuro - Kylix Andreano, 1) Ok, a M$ não é acionista da Borland.. Mas já injetou dinheiro na Borland. Ou estou errado ?? 2) Abram o código, como foi feito com o Interbase, e ai poderemos comprovar se existe ou não interesse. [ ]´s Moacir Andreano Lanusse escreveu: Moacir, já começou errado, MS não é acionista da Borland. Esse lance de liberar código fonte é uma longa história, já se criou um projeto no sourceforge para evoluir a CLX, mas o interesse foi baixo. Andreano Lanusse System Engineer CodeGear a new company born of Borland blocked::BLOCKED::blocked::BLOCKED::http://info.borland.com.br/borcon http://info.borland.com.br/borcon Tel.: +55 (11) 2165 - 8000 / Mobile: +55 (11) 8196-5912 blocked::BLOCKED::blocked::BLOCKED::http://info.borland.com.br/borcon http://info.borland.com.br/borcon Blogs: http://blogs.borland.com/andreanolanusse http://blogs.borland.com/andreanolanusse blocked::BLOCKED::blocked::BLOCKED::http://blogs.borland.com/andreanolanusse http://blogs.borland.com/andreanolanusse Artigos: http://bdn.borland.com http://bdn.borland.com blocked::BLOCKED::blocked::BLOCKED::http://bdn.borland.com/ http://bdn.borland.com/ From: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] On Behalf Of Moacir - Prisma Sent: Thursday, November 16, 2006 8:43 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Re: Delphi, ainda compensa ? Tem futuro - Kylix Fellipe, Concordo em gênero, número e grau !! Temos que buscar alternativas que não nos deixe na mão da m$, borland, ou seja lá o que for. Gostaria de deixar uma pergunta ao Andreano: - Se a Borland não tem mais interesse comercial no Kilyx, porque não libera o código fonte para a comunidade ?? Os acionistas (leia-se M$) não deixam ?? [ ]´s Moacir Fellipe Henrique escreveu: Amigos, só entrando no assunto, e sem puxar a sardinha pra nenhum lado... Todos falam que o Java é Free.. e tals... mas quem sabe até quando?!? Alguém tem o fonte dele, além da Sun? Eu só acredito em um ferramenta free, sendo esta Open, pois se a empresa resolver voltar atras, com o codigo fica fácil pra comunidade continuar... Imagina agora a Sun, resolver cobrar pelo Java? O que vai acontecer? Os programadores em Java deverão pagar por ele, ou mudar de linguagem... Temos aí o exemplo do interbase, que a Borland liberou o código, e depois viu a burrice que tinha feito, e resolveu voltar atrás... mas já era tarde d+.. e muito melhor pra nós que temos o Firebird, bom e gratuito... O que eu quero dizer é o seguinte, linguagem que tem vida eterna, é a linguagem Opensource, em que a comunidade nao deixa morrer, a partir do momento em que uma empresa tem o codigo de alguma linguagem esta está fadada à empresa, ou seja, se a empresa quiser matar a linguagem ela pode. Agora, eu fico preocupado com o rumo das coisas, pelo visto o Win32 está com os dias contatos, e pelo que pude ver do .NET, EU não gostei opinião pessoal. []s Fellipe H. Em 15/11/06, Rodrigo [EMAIL PROTECTED] mailto:rodrigo%40respec.com.br mailto:rodrigo%40respec.com.br escreveu: Boa tarde galera, Só contribuindo com um pouco do meu conhecimento. tenho bastante experiência com Adm. de Redes faço acessoria em Redes (Window e Linux) trabalho com eles ja faz uns 7 anos de 2002 pra cá tive como conquista profissional e pessoal sair sempre da mesmice...ja gostava de
Re: [delphi-br] Off-Topic... Boa Tarde Pessoal
Bom retorno Tamara.. Seja bem vinda novamente ! [ ]´s Moacir Tamara Clemente escreveu: Oi povo, td bom? Desculpem pelo off-topic logo de cara, mas eu ja andei recebendo algumas msg no orkut perguntando sobre minha volta... então estou mandando este e-mail como ALOW pra vcs ai dizendo: estou de volta...rs... infelizmente ñ com td a força de antes (ainda), pq só poderei ver as msgs do grupos em determinados horários, mas logo isso será resolvido... Mas tow ai, estava sentindo falta de vcs... Teh mais.. Tamara Clemente - Lembram de mim???rs [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi 7 x Win 2003 Server
Andre, Isto aconteceu a muito tempo comigo. O problema estava relacionado a um componente da RX. Não lembro exatamente o que era, mas tinha relação com um arquivo ini não muito bem definido neste componente. Espero ter ajudado ! [ ]´s Moacir Andre Mesquita escreveu: Pessoal, Descobri um problema que tem me atormentado bastante. Tenho uma aplicação que roda num Servidor Win 2003 Server com uns 30 usuários a executando. Existe um erro que vêm acontecendo sempre: Access violation at address 7C9324B2 in module 'ntdll.dll'. Read of address 0001 Achei uma única referência sobre esse endereçamento de memória. Em um forum sobre PHP na Alemanha, descobri que isso acontece porque o programa está acessando algum recurso e não possui permissão para isso. Alguém já passou por isso e tenha alguma idéia de como descobrir isso? Obrigado, [ ]'s, Andre -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Indignação: A Borland se omite ...... -Andreano Lanus se
Falou, falou, mas não disse nada !! Respostas concretas aos questionamentos não houveram !! [ ]´s Moacir Andreano Lanusse escreveu: Edison, o filtro anti-spam da borland tem políticas corporativas que valem no mundo todo, mas também de acordo com o uso de cada usuário tem comportamento diferente. Existem diversos e-mail da lista que ficam no anti-spam, não são todos que passam, por isso temos o cuidado de verificar periodicamente nossa caixa. Não há interesse nenhum da Borland em não atender seus clientes. Infelizmente temos que utilizar este filtro, eu tenho em média 150 e-mails por dia parados no anti-spam, sendo que 90% é SPAM mesmo, certamente vamos continuar com este filtro para evitar problemas maiores em nosso equipamentos Enfim, como disse anteriormente temos a política de registro devido ao alto número de cópias piratas, assim você que tem sua cópia legalizada sofre este incomodo, mas infelizmente os certos acabam pagando pelo erro de outros.. Grato, Andreano Lanusse System Engineer - Development Tools blocked::BLOCKED::blocked::BLOCKED::http://info.borland.com.br/borcon Tel.: +55 (11) 2165 - 8000 / Mobile: +55 (11) 8196-5912 blocked::BLOCKED::blocked::BLOCKED::http://info.borland.com.br/borcon [EMAIL PROTECTED] blocked::BLOCKED::blocked::BLOCKED::mailto:[EMAIL PROTECTED] - www.borland.com.br blocked::BLOCKED::blocked::BLOCKED::http://www.borland.com.br/ Blogs: http://blogs.borland.com/andreanolanusse blocked::BLOCKED::blocked::BLOCKED::http://blogs.borland.com/andreanolanusse Artigos: http://bdn.borland.com blocked::BLOCKED::blocked::BLOCKED::http://bdn.borland.com/ From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Edison DRP Sent: Tuesday, October 17, 2006 12:07 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Indignação: A Borland se omite .. -Andreano Lanusse Prezado Andreano Lamento não poder aceitar os seus argumentos de filtros anti-spam pelas seguintes razões: 1 - O email que enviei a Borland ( e que segundo você não chegou lá), foi enviado para o mesmo endereço que me solicitaram enviar o email para a licença ( e que chegou lá perfeitamente); 2 - Se tal filtro anti-spam existe, acredito que em respeito aos clientes, a Borland deveria reve-los, uma vez que os emails que enviei não continham nada que o mais exigente filtro pudesse classificar como spam, e finalmente 3 - Embora com os emails que enviei a você não tenha ocorrido isto, o email que enviei ao outro membro da Borland ( que não cito o nome por não ter ele se manifestado) foi respondido por um email automático, informando algo como estar fora do escritório até o final da semana, demonstrando desta forma ter passado pelos filtros anti-spam Ou seja: 1 - A Borland recebeu sim meu email e não respondeu; 2 - A você não tenho porque recusar sua explicação (embora já tenha colocado minha opinião sobre o fato, ao qual aproveito para acrescentar a pergunta: Se o email é tão protegido, porque você o divulga no rodapé de seus emails ao grupo sabendo que o material eventualmente enviado a ele não chegará ao seu destino? Na minha opinião isto é muito prejudicial à voce, pois pode passar aos menos avisados, uma imagem de mal educado ou desatencioso) 3 - Quanto ao outro membro na Borland, que enviou resposta automática, fico até preocupado. Aconteceu alguma coisa com ele ? Passados os quase 20 dias, êle já retornou ao escritório ? Alguem procurou por ele? Agora só um pequeno comentário: Será que a Borland realmente acha que criando estas barreiras aos seus usuários registrados está realmente tomando alguma medida concreta contra a pirataria? 1 - O pirata não vai nem tentar registrar seu produto (em geral ele já está crackeado!) 2 - Como disse no meu email a você, estou pronto a liberar à Borland o acesso paraverificar nº de processador etc.. de forma a se proteger; 3 - Minhas cópias dos produtos Borland que possuo nunca sairam de minha casa, nunca foram emprestadas, copiadas, cedidas etc etc etc e portnato não podem estar em nenhuma lista negra. E por fim, minha atual vontade é deixar de colaborar com este grupo, do qual sou um dos moderadores, por uma única razão: Gastamos bastante tempo esquadrinhando todas as msg e senão impedindo, pelo menos reduzindo em muito as tentativas de pirataria que raramente surgem, ou seja, colaborando (e de graça!) com a Borland e outra Cias. Ou seja, em minha opinião pessoal, fazemos aqui um trabalho muito mais eficiente do que esta lambança que faz a Borland com seus clientes registrados. Minha pergunta é: a Borland merece este meu tempo? Como não poderia passar a fazer vista grossa à pirataria, ainda não decidi se vale continuar o trabalho aqui e tentar esquecera Borland (enquanto ela não me irritar de novo), ou realmente deixar de ser um
[delphi-br] OFF TOPIC: Provedores que hospedam Firebird
PessoALL, Um cliente novo esta me pedindo informações sobre provedores que hospedam firebird. Alguém teria uma lista para me passar, se possível com url. Acredito que seja de interesse de todos aqui. [ ]´s Moacir -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OnChange, como evitar???
Luis, No Evento OnChange verifique se a tabela ou query esta ativa: If not Tabela.active then exit; [ ]´s Moacir Luis Carlos Quinhone escreveu: Pessoal, tenho algumas instruções no OnChange de dbgrid, dblookup, mas quando o form é aberto todos os eventos onChange são disparados, dando erro tabela não está no modo edit ou insert, tem como eu evitar que esses eventos sejam disparados na abertura do Form? Att Luis carlos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ajuda Drástica com o Quic k Report 3 !!!!
Flavio,
Voce deve zerar a variavel antes de imprimir. Faça assim:
{ * Procedimento para mostrar o número total de ítens
* doados. O componente qrlQtdTotalDoados recebe esse
* valor. }
procedure TfRelatorioPatrimonio.bndSummaryBeforePrint(
Sender: TQRCustomBand; var PrintBand: Boolean);
begin
// o componente qrlQtdTotalDoados é um QRLabel
qrlQtdTotalDoados.Caption := IntToStr(QtdTotalDoados);
//-- AQUI AQUI AQUI -
QtdTotalDoados := 0;
end;
[ ]´s
Moacir
Flavio escreveu:
Olá pessoal,
realmente está praticamente finalizado o sistema, mas há uma coisinha
bastante estranha acontecendo no momento de impressão do relatório.
é o seguinte:
o sistema permite filtrar uma busca e jogar no relatório. Imprime alguns
dados contidos no banco Interbase 6 numa detail band. Existe também uma
summary band que fornece o número de ítens encontrados na detail band, o
valor total dos itens e o número de ítens doados (no caso,se o ítem é doado,
então seu campo doado tem uma string, caso não seja, o campo é nulo.
Portanto coloco um if para verificar se é doado ou não).
Esses são os procedimentos do form do Relatório:
{ * Procedimento para incrementar a variável pública da
* classe TfRelatorioPatrimonio. }
procedure TfRelatorioPatrimonio.bndDetailBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
// O incremento da variável só se dá quando o campo doado
// da query for diferente de nulo, logicamente.
if(dmBaseDados.IBQuery1.FieldValues['doado'] null) then
QtdTotalDoados := QtdTotalDoados + 1;
end;
{ * Procedimento para mostrar o número total de ítens
* doados. O componente qrlQtdTotalDoados recebe esse
* valor. }
procedure TfRelatorioPatrimonio.bndSummaryBeforePrint(
Sender: TQRCustomBand; var PrintBand: Boolean);
begin
// o componente qrlQtdTotalDoados é um QRLabel
qrlQtdTotalDoados.Caption := IntToStr(QtdTotalDoados);
end;
O problema é o seguinte: Vamos supor q a qtd de itens doados seja 12. No
preview do relatório é mostrado o valor 12, porém, quando imprimo o
documento, o valor desse campo é impresso na folha como sendo 24 (ou seja, o
dobro).
Será que alguem sabe me dizer o que está acontecendo !?!??!?!?!??!?!?
Obrigado pela atenção!
Flávio
-
O Yahoo! está de cara nova. Venha conferir!
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Off Topic - Aprender inglês e m casa.
Luis, Uma boa opção é o curso gratuito da BBC. Voce aprende ao mesmo tempo que se informa e tem até um forum para os alunos trocarem ideias. http://www.bbc.co.uk/portuguese/learningenglish/ [ ]´s Moacir Luis Carlos escreveu: Pessoal, Meu inglês da pro gasto, e quando não dá recorro ao tradutor, mas neste segundo semestre decidi aprender de verdade o inglês, portando, gostaria de algumas sugestões para aprender o idioma em casa (estudando sozinho), se alguêm já fez isso, por favor, me indiquem algum curso, na internet está cheio deles, gostaria estudar um que alguêm já o estudou e aprovou. Obrigado. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [Off- Topic] Aparência de S oftware
Luiz, E´isto mesmo, mas o que ela quer é isto, bonitinho no Xp e sem problemas no W98 !! Se vc usar o XPManifest fica bonitinho no XP e uma mer.., digo, feinho no W98, hehehe.. [ ]´s Moacir Luiz Escobar escreveu: Fala Moacir... bom o efeito pratico.. é o seguinte... no 98 vai ficar com cara de 98 no XP vai ficar com quase cara de XP.. isso ai é para os DELPHI´s que não tem o componente XPManifest... D2, D3, D4, D5 e D6 MAS, alguns componentes não assumem as caracteriscas do XP diferente do que acontece com o XPManifest, PORQUE? ainda não sei, não parei pra olhar isso... Luiz Escobar - Segue mensagem original! - De: Moacir - Prisma Data: Wed, 05 Jul 2006 18:28:35 -0300 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [Off- Topic] Aparência de Software Tamara, Voce pode ainda usar as caracteristicas do proprio XP para resolver o problema sem perda de qualidade no 98. Tirei a dica de um site da net e naum tenho mais o link, mas estou usando e funciona 100%. Copie o texto abaixo num arquivo txt (via notepad ou qq outro editor) nomeando-o com o nome da sua aplicação + '.manifest': ex.: MinhaAplicacao.exe.manifest Caso vc queira pode tambem colocar a descrição sucinda da sua aplicação na tag (qual o efeito pratico ?? não tenho a menor ideia !) ---Inicio version=1.0.0.0 processorArchitecture=X86 name=Microsoft.Windows.SysInfo type=win32 / Descricao da sua aplicacao type=win32 name=Microsoft.Windows.Common-Controls version=6.0.0.0 processorArchitecture=X86 publicKeyToken=6595b64144ccf1df language=* / --Fim [ ]´s Moacir Moked - Tamara (Brazil) escreveu: Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Pessoal, Os sistemas da empresa são feitos no WinXP, claro q, para dar um toque a mais neles usamos o XPManifest do Delphi(2005). O Sietma fica lindo, maravilhoso no XP, porém, ao rodar o sistema no Win98 por exemplo, a aparência não dica tão boa. Já era de se esperar que não ficasse igual, exatamente por causa do XPManifest, porém, quando tiro o componente do sistema, no XP ele ainda fica bom. Pq há tamanha diferença do XP pro 98 com relação à gráficos? Passou-nos a idéia de colocar no 98 uma dll do XP a gdiplus. Ainda ñ tivemos a oportunidade de testar se tal procedimento dará certo e se dará o resultado esperado. Vcs q entendem mais de SO, saberiam me dizer se este procedimento seria válido? É possivel? daria resultado? É esta dll msm a responspavel por tal comportamento? E mais: alguém tem alguma sugestão???rs Obrigada, Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000 Serviços prestados no Brasil na área de segurança pessoal e empresarial: Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [Off- Topic] Aparência de S oftware
Tamara, Voce pode ainda usar as caracteristicas do proprio XP para resolver o problema sem perda de qualidade no 98. Tirei a dica de um site da net e naum tenho mais o link, mas estou usando e funciona 100%. Copie o texto abaixo num arquivo txt (via notepad ou qq outro editor) nomeando-o com o nome da sua aplicação + '.manifest': ex.: MinhaAplicacao.exe.manifest Caso vc queira pode tambem colocar a descrição sucinda da sua aplicação na tag description (qual o efeito pratico ?? não tenho a menor ideia !) ---Inicio ?xml version=1.0 encoding=UTF-8 standalone=yes? assembly xmlns=urn:schemas-microsoft-com:asm.v1 manifestVersion=1.0 assemblyIdentity version=1.0.0.0 processorArchitecture=X86 name=Microsoft.Windows.SysInfo type=win32 / descriptionDescricao da sua aplicacao/description dependency dependentAssembly assemblyIdentity type=win32 name=Microsoft.Windows.Common-Controls version=6.0.0.0 processorArchitecture=X86 publicKeyToken=6595b64144ccf1df language=* / /dependentAssembly /dependency /assembly --Fim [ ]´s Moacir Moked - Tamara (Brazil) escreveu: http://www.moked.com.br/ Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] www.moked.com.br http://www.moked.com.br/ Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de Prioridade: Alto Médio Baixo Destinatário/s: Lista de divulgação - Pessoal, Os sistemas da empresa são feitos no WinXP, claro q, para dar um toque a mais neles usamos o XPManifest do Delphi(2005). O Sietma fica lindo, maravilhoso no XP, porém, ao rodar o sistema no Win98 por exemplo, a aparência não dica tão boa. Já era de se esperar que não ficasse igual, exatamente por causa do XPManifest, porém, quando tiro o componente do sistema, no XP ele ainda fica bom. Pq há tamanha diferença do XP pro 98 com relação à gráficos? Passou-nos a idéia de colocar no 98 uma dll do XP a gdiplus. Ainda ñ tivemos a oportunidade de testar se tal procedimento dará certo e se dará o resultado esperado. Vcs q entendem mais de SO, saberiam me dizer se este procedimento seria válido? É possivel? daria resultado? É esta dll msm a responspavel por tal comportamento? E mais: alguém tem alguma sugestão???rs Obrigada, Tamara A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000 Serviços prestados no Brasil na área de segurança pessoal e empresarial: Consultoria e Assessoria | Diagnósticos e Projetos | Curso e Treinamentos | Auditoria e Sindicância | Software de Gestão | Help-desk 24hs O emitente da mensagem é o responsável por seu conteúdo e divulgação, proibindo sua reprodução sem a prévia autorização do mesmo. Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o comprometimento com os Custo envolvidos! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Como detecta r um novo arquivo em um diretório
Fernando / Tamara,
Na revista CLube Delphi de nº 31 tem um artigo do Bruno Sonnino (GRANDE
BRUNN ONDE ANDA VC ??): 'Monitoração de Diretorios' baseado na API
do Windows.
Vou ver se acho a revista aqui.
Me parece ser exatamente o que voce precisa.
[ ]´s
Moacir
Moked - Tamara (Brazil) escreveu:
Eu tenho uma função q pega a data de mofidicação e outra com a data de
criação de um arquivo se eu ñ me engano, só passar o nome do arquivo... mas ñ
sei se funciona em tds versões de win, aliás preciso até testar...rs se
ajudar e vc quiser elas... soh falar...
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
Fernando - Hotforms
Enviada em: terça-feira, 4 de julho de 2006 05:01
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Como detectar um novo arquivo em um diretório
Acho que o ideal seria usar um TIMER programado para checar a cada X tempo.
Acho que assim vc alivia o uso da CPU!
E tem também um componente JEDI que verifica se um novo arquivo entrou
em um diretório.
Não me recordo o nome dele agora, mas ele foi citado a poucos dias na
lista. De uma olhada no histórico pelo site.
Abraços,
Fernando dos Santos Sousa
Edison Garcia escreveu:
Estou precisando fazer uma rotina que detecte que um novo arquivo
(provavelmente TXT) foi gravado em um determinado diretório. Será
utilizada para troca de dados entre um sistema delphi e um sistema
feito em mumps. Deverá ser independente da versão do Windows rodando na
máquina. A rotina abaixo funciona
repeat
if fileExists('c:\arquivo.txt') then
begin
break;
end;
until timeOut;
mas eu preferiria utilizar algo sem colocar em loop e sem ser obrigado
a sair por timeout. Alguem teria uma sugestão ?
obrigado
Edison
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Pesquisa Utilizando Like
Cleiton,
Voce pode fazer de, pelo menos, duas maneiras distintas:
1)
with MinhaQuery do
begin
Close;
SQL.Text:='select cod_fornec, razao_social from fornecedor' ;
SQL.Add( 'where razao_social Like ' + QuotedSTr(Edit1.Text +'%'));
Open;
end;
2)
with MinhaQuery do
begin
Close;
SQL.Text:='select cod_fornec, razao_social from fornecedor' ;
SQL.Add( 'where razao_social like :Parametro');
ParamByName('Parametro').AsString := Edit1.Text +'%';
Open;
end;
Dependendo do banco que vc esta usando voce pode substituir o like por
Containing ou Starting.
IMPORTANTE: Voce conhece bem o Like ??
--
Seleciona tudo que começa com Mo = Campo like 'Mo%' //-- Moeda, Moacir,
Moda, etc..
Seleciona tudo que contem Mo = Campo like '%Mo%' //-- Moeda, Moacir,
Moda, amor, ramo, etc..
Seleciona tudo que termina com Mo = Campo like '%Mo' //-- cimo, mimo,
remo, demo, etc..
[ ]´s
Moacir
Higor escreveu:
Cleiton eu n faço a consulta com parâmetr não mas mesmo assim vou mandar a
maneira que faço p ver se ajuda!
with Nome_Da_Qrery do
begin
Close;
SQL.Clear;
SQL.Add( 'select cod_fornec, razao_social from fornecedor' );
SQL.Add( 'where razao_social like ''' + Edit1.Text + '%''' );
Open;
end;
Essa é a maneira que faço veja ae se pode ajudar!!
Flw
Em 30/06/06, Cleiton [EMAIL PROTECTED] escreveu:
Olá pessoal... estou com um pequeno problema e acredito que alguém da
lista poderá me ajudar. O que acontece é o seguginte:
Estou fazendo uma pesquisa no banco da seguinte forma:
select cod_fornec, razao_social
from fornecedor
where razao_social like 'A%';
Até aí, tudo bem, sem problemas.
O problema vem ao colocar essa instrução dentro do sistema, utilizando
parâmetro.
Na query estou fazendo da seguinte forma:
select cod_fornec, razao_social
from fornecedor
where razao_social like ':paramentro%';
Aí coloquei uma paramentro na query chamado parametro e faço a chamada
da query assim:
query.ParamByName('parametro').AsString:=(Edit.Text);
query.Active:=true;
Só que simplesmente não acontece nada. É dessa forma mesmo que se faz?
Onde posso estar errando?
Tambem tentei assim:
query.param[0].AsString:=(Edit.text) mas tambem nao funciona
Um grande abraço
Cleiton
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] [OFF-TOPPIC] Máquina do tem po
Naum esqueça do Bruno Sonnino !! E provavelmente mais uma duzia de feras que acabaram esquecidas :) [ ]´s Moacir Vandinei Santos escreveu: Muito tempo, Walter. Sou daquele tempo também. Tempo do Fernando Anselmo, Adenilton Rodrigues, Martins, Walter Campello e outras feras daquela época. Muita gente boa! Por onde andarão? []s Vandinei - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 30, 2006 5:40 PM Subject: RES: [delphi-br] [OFF-TOPPIC] Máquina do tempo Pessoal, falando em máquina do Tempo... Agosto agora eu faço 10 anos de delphi-br. Sou lá dos tempos do servidor softex. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Vandinei Santos Enviada em: sexta-feira, 30 de junho de 2006 16:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo É a turma dos quarenta e...risos E quem não se lembra do Apple II e seus 64KB com mais uma plaquinha de memória de 16KB, podíamos rodar o CPM80 e com isso rodar Cobol, Pascal, Fortran, VisiCalc, Lotus 123, etc... Os melhores games utilizavam disquetes de 5 1/4 e era preciso mudar de lado para continuar o game. Era um milagre em tão poucos KBs e criar-se tantos recursos... Curioso é que não existia travavamentos, nem era preciso reinicilizar. Tudo era na hora. Meu primeiro micro foi um NE-Z8000, um kit de micro lançado pela Revista Nova Eletrônica em 1979. Eu transcodifiquei a TV para reproduzir as cores do Apple II que era no sistema NTSC. Eu tinha ali um raríssimo monitor colorido e ainda levava o som do micro para a TV. Hj todas essas entradas estão na mão, prontinhas de fábrica. Depois de aprender Basic, comecei na Faculdade a estudar Pascal e utilizava o Turbo Pascal 3 da Borland em 1986 Tempo saudosos... []s Vandinei - Original Message - From: Campus [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 30, 2006 4:15 PM Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo Nossa. Passei por +/- isso tb, só que antes do XT um itautec (na época da reserva de mercado), eu trabalhei com um CP500 da prológica, já rodando o CPM, antecessor do DOS. Luiz, o micro da Gradiente não se chamava MSX ? Comecei trabalhando com Basic em CPM, Dbase II e III, C, Cobol, Clipper...até chegar no Delphi. E pensar que em Basic e Cobol, o maior programa executável não podia passar de 64K. Alguém lembra do exe2bin, um soft que transformava .exe em .com ? Como o tempo passa, comecei a lidar com computadores em 1983, num sysdata jr, bons tempos aqueles... - Original Message - From: Luiz Escobar [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, June 30, 2006 2:39 PM Subject: Re: [delphi-br] [OFF-TOPPIC] Máquina do tempo AH, já que é assim... hehehehehehe... eu tenho: um TK2000 (meu primeiro filho... heheheh) onde fiz um mini-LOTUS123, com direito a formulas de + - / * respeitando ( ) hehehehehe o problema era as fitas K7 jesusis... ehheheh bom ai começei profissionalmete... num MSN da gradiente... ehehhe.. fiz um programa para controlar os clientes de um FOTO 3x4, rapaiz... o duro era indexar os clientes... se me lembro bem, eram 2 caixas de sapato, tamanho 40.. ehhehehe de diskette de 51/4 put´s... levava o maior tempão, claro eu fiz o programa o dono que indexava ai fui trabalhar num banco COBRA-210 diskette de 8, maravilha, parecisa um gelatina fina... ehhehehe modem de 2400bps, bps e não Kbps... transmitindo pra fortaleza e recebendo, toda noite moviemnto de um banco bom ai veio XP, programando em dBASEIII-PLUS, é olha só que chique... PLUS hehehhehehehe ai 286... opa... 16Bit´s furacão... hehehhhe, vamos comerçar no Turbo Pascal Clipper SUMMER. 386DX RAHA fera... animal... windows 3.1 WORKGROUP hehehe 486DX2... maravilha clipper 5.0. blz... hehehehhehe windows P100 widnows 95 DELPHI 1.0 P133... P200... P233 ta ficando bom P233... Windows 98 primeira edição que desgr*ç* volta pro 95 Win98SE a agora sim P3.. P4 Delphi 2.0, 3.0, 4.0 e finalmente 6.0 ta ficando bom. agora to pensando em ir pro P4-HT Duo Core... 3.0Ghz 1GB-RAM Delphi 2006 vamos ver no que vai dar... hehehehhee e olha com 36 anos e 16 de experiencia... a coisa mudou MUITO e cada vez mas rápido... imagine daqui mais 16 hehehehhehe Luiz Escobar - Original Message - From: Fernando Nomellini To: delphi-br@yahoogrupos.com.br Sent: Friday, June 30, 2006 9:42 AM Subject: Re:
Re: [delphi-br] ENC: e ...
Romário, Com todo o respeito que voce e todos da lista merecem: Então, 'Kika' o cara !! (para usar uma linguagem que fique clara para ele) Abraços, Moacir Romario (Listas) escreveu: Tem sim. 7 (sete) moderadores administram essa lista. O fato de vocês não terem visto um moderador repreender uma pessoa na lista, não quer dizer que este ficou impune. As mensagens, repreensões e sanções aplicadas ao infrator são feitas em particular, cabendo somente aos moderadores e ao infrator ter conhecimento da punição aplicada. Trocando em miúdos, TODAS as infrações são analisadas e julgadas pelos moderadores e, em cima da decisão, são aplicadas as sanções. Como diria Arnaldo Cezar Coelho: A regra é clara. Sds, Romario Fernando Nomellini escreveu: Tem moderador nesta lista? Fernando Nomellini ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Function retornando Array
Fernando,
Tente assim:
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs;
type
MeuArray = Array of String ; // AQUI
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Function Minha_Funcao(sDados:String):MeuArray; // AQUI
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function TForm1.Minha_Funcao(sDados:String):MeuArray ; // AQUI
Var Teste : MeuArray; // AQUI
Begin
Teste[1]:='teste';
Teste[2]:='teste2';
Result:= Teste;
End;
end.
-
[ ]´s
Moacir
Fernando Luiz Bortolanzza escreveu:
Ola pessoal, estou com uma duvida cruel
Como faço no Delphi para fazer 1 função que receba alguns parâmetros e
retorne um array de strings?
Tentei assim mas não deu.
Alguém sabe como fazer?
==
Function Minha_Funcao(sDados:String):Array;
Function Minha_Funcao(sDados:String):Array;
Var Teste : Array[1..2] of String;
Begin
Teste[1]:=’teste’;
Teste[2]:=’teste2’;
Result:= Teste;
End;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] PDF no Report Builder 9.01
Anderson, Pra isto vc precisa do ExtraDevices ! Um componente a parte para uso com o RB. Veja em: http://www.waler.com/textradevices.htm Eu uso e recomendo, muito bom mesmo !!! [ ]´s Moacir Anderson Furtilho escreveu: Olá amigos!!! Algum amigo que usa o Report Builder 9.01 para D7 sabe habilitar a opção de impressão para PDF. É que ao trazer a visualização do relatório em tela clico para imprimir e vou em imprimir para arquivo e lá não mostra a opção de PDF. Sei como imprimir direto para PDF sem trazer a visualização em tela !!!. Resumo: Trazer a opção de imprimir para arquivo em PDF na visualização de um relatório. Desde já antecipo meus agradecimentos Anderson Furtilho ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] PDF no Report Builder 9.01
Anderson, Tenho aqui o ED 2.92 para o D7, naum instalei ainda mas pelo que me foi dito ele funciona na versão 9. Queres dar uma testada ?? tem 678 kb .. [ ]´s Moacir Anderson Furtilho escreveu: Valeu amigo, Eu usava o Extra Device quando era RB 7, agora estou usando o RB9 e nele mesmo vem uma opção de PDF. O bom do Extra Device é que ele exporta para diversos formatos. Mas infelizmente não tenho ele para o RB9.01 --- Moacir - Prisma [EMAIL PROTECTED] escreveu: Anderson, Pra isto vc precisa do ExtraDevices ! Um componente a parte para uso com o RB. Veja em: http://www.waler.com/textradevices.htm Eu uso e recomendo, muito bom mesmo !!! [ ]´s Moacir Anderson Furtilho escreveu: Olá amigos!!! Algum amigo que usa o Report Builder 9.01 para D7 sabe habilitar a opção de impressão para PDF. É que ao trazer a visualização do relatório em tela clico para imprimir e vou em imprimir para arquivo e lá não mostra a opção de PDF. Sei como imprimir direto para PDF sem trazer a visualização em tela !!!. Resumo: Trazer a opção de imprimir para arquivo em PDF na visualização de um relatório. Desde já antecipo meus agradecimentos Anderson Furtilho ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Demora para atualizar banco de dados mysql
Francisco,
Elimine o teste para ver se existe o registro, por exemplo:
Try
starttransaction
//-- Tenta Alterar
// Aqui vai a rotina de alteração
If query1.RowsAffected=0 then
begin
//- Não existe, Faz a inserção
//-- aqui a rotina de inserção
end;
commit
except
rollback;
end;
[ ]´s
Moacir
Daniel Bastos escreveu:
Reparei que na sua rotina vc usa table...
talves a lentidão não seja na hora de gravar e sim na hora de ler o conteudo
da table... Já ví isso acontecer quando um outro projeto (que não era o meu)
lia uma quantidade grande de registros localizados em um .dbf em uma máquina
remota...
não sei como está o seu projeto... é só uma sugestão... tomara que ajude
abraço
Em 26/06/06, Francisco Carlos de Andrade [EMAIL PROTECTED]
escreveu:
Ola pessoal, estou aqui com um problema serio, tenho 1 arquivo que sempre
esta sendo atualizado com inclusoes e ou alteracoes de dados, acontece que
qdo vou atualizar uma determinada quantidade de registros ele demora
muito,
exemplo digamos que eu tenha que atualizar 2000 registro fazendo a rotina
de
ver se cada registro ja esta inserido no arquivo caso esteja eu atualizo o
registro e caso nao eu insiro o novo registro, com essa qtde de registro a
serem verificadas esta demorando aproximadamente 2 horas e meia.
Minha rotina :
Table1.First;
While not Table1.Eof do begin
Application.ProcessMessages;
If tmpvenda.Active = True then tmpvenda.Active := False;
Tmpvenda.Sql.Clear;
Tmpvenda.Sql.Add('select dataemis,registro,cgce,modelo,especie,serie
numero,aliquota,cnpjempresa from ntfvenda where ');
Tmpvenda.Sql.Add('(Cgce='+Edit5.Text+') and (Modelo='+Table1MODELO
Text+') ');
Tmpvenda.Sql.Add('and (Especie='+Table1ESPECIE.Text+') and (Serie=
+Table1SERIE.Text+') ');
Tmpvenda.Sql.Add('and (Numero='+Table1NUMERO.Text+') and (Aliquota=
+Table1ALIQUOTA.Text+') ');
Tmpvenda.Active := True;
If tmpvenda.RecordCount = 0 then begin
LSaida := 'insert into ntfvenda (Modelo,Cgce,CnpjEmpresa';
If length(Table1NO_MAQUINA.Text) 0 then LSaida :=
LSaida+',No_Maquina'
If length(Table1ESPECIE.Text) 0 then LSaida := LSaida+',Especie';
// faco a comparacao dos campos
LSaida := LSaida+') values ('+Table1MODELO.Text+','+Edit5.text+',
+Copy(Edit5.Text,1,8)+Copy(Edit5.Text,10,4)+Copy(Edit5.Text,15,2)+'';
if length(Table1NO_MAQUINA.Text) 0 then LSaida := LSaida+',
+Table1NO_MAQUINA.Text+'';
if length(Table1ESPECIE.Text) 0 then LSaida := LSaida+',
+Table1ESPECIE.Text+'';
LSaida := LSaida+')';
if Zntfvenda.Active = True then Zntfvenda.Active := False;
Zntfvenda.Sql.Clear;
Zntfvenda.Sql.Add(LSaida);
if length(Table1DATAEMIS.Text)0 then Zntfvenda.ParamByName('d1')
AsDateTime := Table1DATAEMIS.AsDateTime;
if length(Table1VRCTB.Text) 0 then Zntfvenda.ParamByName('v1')
AsFloat := Table1VRCTB.Value;
// comparacao dos campos para parametros
Zntfvenda.ExecSql;
end
else begin
MId := tmpvendaRegistro.Text;
if tmpVendaDataEmis.Text = Table1DataEmis.Text then begin
LSaida := 'Update ntfvenda set
No_Maquina='+Table1NO_MAQUINA.Text+'
Especie='+Table1Especie.Text+',Serie='+Table1SERIE.Text;
LSaida:=LSaida+',Numero='+Table1NUMERO.Text+',DataEmis=:d1,Uf_Dest=
+Table1UF_DEST.Text+',Codctb='+Table1CODCTB.Text;
LSaida:=LSaida+',CodFiscn='+Table1CODFISCN.Text+',VrCtb=:v1
BaseCalc=:v2,Aliquota=:v3,ImpDeb=:v4,Isentas=:v5,Outras=:v6,';
Zntfvenda.ExecSql;
// mesma comparacao mas dessa vez serve para o update
end;
end;
Table1.Next;
end;
Alguem poderia me dar uma ideia de como fazer isso + rapido
-
Francisco Carlos de Andrade
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] RE: Re: Function retornando Array
Fernando,
Troque o array por tstrings !!
Isto deve funcioanr 100% ..
[ ]´s
Moacir
Fernando Luiz Bortolanzza escreveu:
Mais uma peguntinha, e se for uma unit exclusive para funções que é o meu
caso?
Não tenho type .. e se eu colocar esse array (MeuArray = Array of String ; )
embaixo da interface ou uses ele não reconhece, como faria neste caso?
Minha Unit:
=
unit uFuncoes;
interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, FMTBcd, DB, SqlExpr, ImgList,
ComCtrls;
// PROTOTIPAÇÃO DE FUNÇOES
function Formata_Campo(iTipo:Integer; sDados: String): String;
implementation
uses Math, uConexao, uPrincipal;
// FUNÇÕES
function Formata_Campo(iTipo:Integer; sDados: String): String;
begin
end;
Atenciosamente,
Fernando
De: Moacir - Prisma [EMAIL PROTECTED]
Data: Qua Jun 28, 2006 10:41 am
Assunto: Re: [delphi-br] Function retornando Array
Fernando,
Tente assim:
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs;
type
MeuArray = Array of String ; // AQUI
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Function Minha_Funcao(sDados:String):MeuArray; // AQUI
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function TForm1.Minha_Funcao(sDados:String):MeuArray ; // AQUI
Var Teste : MeuArray; // AQUI
Begin
Teste[1]:='teste';
Teste[2]:='teste2';
Result:= Teste;
End;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Imagem (jpeg) do Qreport imprime tudo preto
É coisa do QR.. Já passei por isto e naum lembro ao certo a solução, mas me parece que era algo a ver com o tamanho da imagem.. verifique tambem as propriedades strech, center e autosize.. Deve ser algo por ai.. [ ]´s Moacir delphi6_2005 escreveu: No meu relatório consigo visualizar normal porém quando imprimo o mesmo a imagem (de uma assinatura) é impressa como um quandrado em preto. (Já desmontei a impressora inteira!!!) Agradeço as dicas dos amigos. Paulo. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] *** SQL - Procurar texto em campo MEMO - BLOB - FIREBIRD - DELPHI 7
Use containing para isto: Select Nome From Clientes where Observacao containing 'blablabla' [ ]´s Moacir Eduardo Silva dos Santos escreveu: Eu nunca testei mas tente usar Like pra ver se da certo, exemplo: Select Nome From Clientes where Onservacao like '%Devedor%' utilize %% pq assim ele busca em qualquer parte do campo... nunca fiz esse teste com campo Blob, mas nao custa nada... tente ai... Em 16/06/06, FORUNS - YAHOO [EMAIL PROTECTED] escreveu: Olá pessoal! Podem me dar um exemplo de um SELECT para procurar N registro que CONTEM um determinado texto/palavra que está inserido em 1 campo MEMO - BLOB - TEXT? Utilizo DBExpress. *** SQL - Procurar texto em campo MEMO - BLOB - FIREBIRD - DELPHI 7 ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Passar valor Float como parametro para SQL
Eu uso esta função para isto: -- Function FormataValor(Valor : Currency ; Decimal : Integer = 2) : String; Begin Result:=StringReplace(CurrToStrF(Valor,ffFixed,Decimal),',','.',[rfReplaceAll]); End; -- [ ]´s Moacir Leandro Carbonera escreveu: E ai galera tudo bem Estou com um pipino aki que tá me quebrando a cabeça Tenho um campo Numerico em um clientdataset que tem uma mascara do tipo #,##0.00 e eu preciso passar o valor deste campo para uma instrução SQL, só que no momento que eu passo esse valor, ele converte o '.' decimal para ',' e ai de erro pois ultrapasso o numero de campos da tabela, já que na instrução eu separo os campos com ',' Alguem teria alguma ideia para me dar. ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] QReport(delphi 5) ou Fortes(delphi 7) - (URGENTE)
Uma solução seria trocar o tipo de banda (no QR) de title para header !! O Fortes eu naum conheço.. [ ]´s Moacir Elvis de Oliveira escreveu: E dai Pessoal. Eu queria saber se algum pode me ajudar neste problema, acho que é simples mas eu não estou conseguindo resolver. Eu tenho um relatório que tem uma banda title, uma banda detail e outra banda summary. A história é a seguinte eu tenho 40 registro numa tabela, e queria deixar 30 numa folha e o restante na outra, mas com todas as bandas aparecendo nas duas folhas. Até agora o que eu consegui fazer foi aparecer o na primeira folha o title e o detail numa folha com 30 registro e na outra folha o detail e o summary, mas o que eu queria era que aparece-se as três bandas nas duas folhas. Alguem sabe o que eu tenho que fazer. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] lista de arquivos de uma pasta
Filipe,
Já mandei uma função que faz isto a uns dias atrás !!
Bom ta ai de novo..
Inclua a unit SysUtils
==
Function LocalizaArquivos(FromDir : String='' ;
Mascara : String='' ;
excluir : String=''): TStrings;
var
SearchRec: TSearchRec;
SearchResult: integer;
sArquivos: TStrings;
sExtensao : String;
begin
If excluir'' then
excluir:=UpperCase(excluir);
if (FromDir'') and
(FromDir[Length(FromDir)] '\') then
FromDir:= FromDir + '\';
SearchResult := FindFirst(FromDir + Mascara, faAnyFile,SearchRec);
sArquivos:=TStringList.Create;
sArquivos.Clear;
while (SearchResult = 0) do
begin
if (SearchRec.Attr and faDirectory) = faDirectory then
//-- Faz Nada !!
else
begin
If excluir'' then
Begin
sExtensao:=StringReplace(ExtractFileExt(SearchRec.Name),
'.', '',[rfReplaceAll]);
If Pos(UpperCase(sExtensao),excluir)=0 then
sArquivos.Add(SearchRec.Name);
end
else
sArquivos.Add(SearchRec.Name);
end;
SearchResult := FindNext(SearchRec);
end;
SysUtils.FindClose(SearchRec);
Result:=sArquivos;
end;
Ex. de Uso:
Memo.Lines:=LocalizaArquivos('c:\teste','*.txt','naoquero*.txt');
ou
MinhaStringList := LocalizaArquivos('c:\teste','*.txt','naoquero*.txt');
[ ]´s
Moacir
Luiz Escobar escreveu:
ou vc cria uma variavel, ou põe o componente e coloca tipo TOP:=-5000;
(MENOS CINCO MIL), vai sumir da tela... hehehehhe
Luiz Escobar
- Original Message -
From: Filipe Belchior
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, June 06, 2006 2:18 PM
Subject: [delphi-br] lista de arquivos de uma pasta
olá galera,
como eu consigo, de preferência numa list,
o nome dos arquivos de uma pasta? para windows
pensei em usar o TFileListBox, mas ele é visual,
não to precisando visual.. será q existe alguma
função na unit Windows?
FILIPE BELCHIOR
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e
anti-spam realmente eficaz.
http://mail.yahoo.com.br/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
