Cícero,
Você pode desenvolver ISAPIs ou então usar o IntraWeb (se não me engano vem
a partir do Delphi 6).
Assim você estaria oferecendo uma solução Delphi que funciona muito bem.
Abraços
Luiz Henrique Severo d Oliveira
RPG Soluções
www.rpgsolucoes.com.br
________________________________________________________________________
Mensagem: 11
Data: Mon, 4 Apr 2005 14:30:38 -0300
De: Cícero <[EMAIL PROTECTED]>
Assunto: RES: Webservice
ahhh,, legal. Eu estava tratando a coisa como uma página na internet que te
desse a possibilidade (única) de alterar, incluir, excluir registro pela
internet. Pelo que você explicou eu esqueci de analisar a questão SERVICE..
beleza brigadão. É que estou com uma demanda do tipo: aplicação para ser
acessada por várias regionais em todo o país e o pessoal da informática só
quer falar de JSP e eu estava tentando oferecer uma outra alternativa que
usasse o delphi. Valeu
-----Mensagem original-----
De: Francisco Thiago [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 12:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Webservice
Porque são conceitos diferenes. O PHP, ASP e Cia vc usa para construir os
sites. O WebService seria algo como "objetos remotos" serializados com
xml...
Tipo, você pede o endereço de uma cidade, um webservice te manda isso...
sacou? E pode ser enviado para qqr programa em qqr plataforma usando qqr
linguagem
Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago
----- Original Message -----
From: "Cícero" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 8:35 AM
Subject: [delphi-br] Webservice
>
> Alguém pode me indicar um endereço para que eu acessar e ver como funciona
> o
> webservice?
>
> Porque exatamente todo mundo está usando webservice e não um ASP, php, JSP
> ?
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> 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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
________________________________________________________________________
________________________________________________________________________
Mensagem: 12
Data: Mon, 4 Apr 2005 14:32:16 -0300
De: "Francisco Thiago" <[EMAIL PROTECTED]>
Assunto: Comparação não funciona (entre duas variaveis do tipo real)
Caros amigos
Meu patrão estava escrevendo código no Delphi5 e me mostrou algo
interessante:
ele tinhas duas variaveis locais do tipo real e atribuia a elas dois valores
digitados (foram informados no banco e passados para essas variaveis).
Quando ele vazia um
if var1 <> de var2 then
showmessage(...
Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2 eram
virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).
Depuramos para ver o valor: Era o mesmo.
Pensei que internamente fosse feita uma aproximação:
120,298863543687436873654
Mas não era.. aparecia 120,3 sempre.
Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)
Mas, se não é a aproximação, o que poderia ser?
Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago
________________________________________________________________________
________________________________________________________________________
Mensagem: 13
Data: Mon, 4 Apr 2005 14:29:23 -0300
De: "Bruno Lichot - Micrologos" <[EMAIL PROTECTED]>
Assunto: Algumas fotos do evento 5DDD
http://200.201.186.169/fotos
[As partes desta mensagem que não continham texto foram removidas]
________________________________________________________________________
________________________________________________________________________
Mensagem: 14
Data: Mon, 4 Apr 2005 14:23:21 -0300
De: Cícero <[EMAIL PROTECTED]>
Assunto: RES: Software de Backup
Se você estiver usando o NT ele tem. Mas eh claro que esse não deve ser o
caso...
-----Mensagem original-----
De: Vinicius da Silva Pinto [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 4 de abril de 2005 13:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Software de Backup
Alguem teria um dica de um software para backup em fita que fosse free??
E que se pudesse ter um bom controle dos arquivos bacapiados.
--
<<<<< 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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
________________________________________________________________________
________________________________________________________________________
Mensagem: 15
Data: Mon, 4 Apr 2005 14:56:26 -0300
De: "Filipe" <[EMAIL PROTECTED]>
Assunto: Re: Comparação não funciona (entre duas variaveis do tipo real)
eu sempre transformo pra string pra comparar...
----- Original Message -----
From: "Francisco Thiago" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 2:32 PM
Subject: [delphi-br] Comparação não funciona (entre duas variaveis do tipo
real)
>
> Caros amigos
>
> Meu patrão estava escrevendo código no Delphi5 e me mostrou algo
> interessante:
>
> ele tinhas duas variaveis locais do tipo real e atribuia a elas dois
> valores
> digitados (foram informados no banco e passados para essas variaveis).
>
> Quando ele vazia um
> if var1 <> de var2 then
> showmessage(...
>
> Sempre mostrava o showmessage, mas acontece que o valor de var1 e var2
> eram
> virtualmente iguais (o cliente digitou no campo da tabela o valor 120.30).
>
> Depuramos para ver o valor: Era o mesmo.
>
> Pensei que internamente fosse feita uma aproximação:
> 120,298863543687436873654
> Mas não era.. aparecia 120,3 sempre.
>
> Resolvemos com um FormatFloat ('0.00',var1) <> FormatFloat('0.00',var2)
>
> Mas, se não é a aproximação, o que poderia ser?
>
>
> Francisco Thiago de Almeida
> Enter&Plug Informática
> Divisão: Desenvolvimento e Banco de dados
> MSN: [EMAIL PROTECTED]
> Skype: enterplug_thiago
>
>
>
>
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
________________________________________________________________________
________________________________________________________________________
Mensagem: 16
Data: Mon, 4 Apr 2005 15:12:19 -0300
De: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
Assunto: Report Builder
Pessoal,
Eu tenho tabelas que possuem relacionamento N x N entre elas e, com base
no identificador da 1ª tabela, eu posso encontrar X itens da segunda tabela
e Y itens da terceira. De posse desses dados, eu gostaria de criar um
relatório utilizando o ReportBuilder com todas essas informações. Estou
utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:
1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )
2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição
3ª tabela:
- PASSOS
-> Identificador
-> Descrição
Existem tb as tabelas que descrevem o relacionamento entre essas
tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para
ser realizada. Então, gostaria de criar o seguinte relatório:
Receita de <Nome>
Autor: <Autor> Tipo: <Tipo>
-------------------------------------------------------
Ingredientes
<Nome>: <Descrição>
-------------------------------------------------------
Passos
<Descrição>
Onde, em ingredientes poderia existir 3 itens, enquanto que em passos
poderiam existir 7 passos, por exemplo:
Receita de Pavê
Autor: Desconhecido Tipo: Doce
-------------------------------------------------------
Ingredientes
Ovos: de granja
Fermento: em pó
Açúcar: mascavo
-------------------------------------------------------
Passos
Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.
Alguém saberia me dizer como fazer isso?
[As partes desta mensagem que não continham texto foram removidas]
________________________________________________________________________
________________________________________________________________________
Mensagem: 17
Data: Mon, 4 Apr 2005 15:19:49 -0300
De: "Filipe" <[EMAIL PROTECTED]>
Assunto: Re: Report Builder
Cria um grupo, no group header vc coloca um bdText com o campo "receita", na
banda detail, vc coloca subreports e tal.... mais ou menos isso...
----- Original Message -----
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 3:12 PM
Subject: [delphi-br] Report Builder
Pessoal,
Eu tenho tabelas que possuem relacionamento N x N entre elas e, com base
no identificador da 1ª tabela, eu posso encontrar X itens da segunda tabela
e Y itens da terceira. De posse desses dados, eu gostaria de criar um
relatório utilizando o ReportBuilder com todas essas informações. Estou
utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:
1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )
2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição
3ª tabela:
- PASSOS
-> Identificador
-> Descrição
Existem tb as tabelas que descrevem o relacionamento entre essas
tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para
ser realizada. Então, gostaria de criar o seguinte relatório:
Receita de <Nome>
Autor: <Autor> Tipo: <Tipo>
-------------------------------------------------------
Ingredientes
<Nome>: <Descrição>
-------------------------------------------------------
Passos
<Descrição>
Onde, em ingredientes poderia existir 3 itens, enquanto que em passos
poderiam existir 7 passos, por exemplo:
Receita de Pavê
Autor: Desconhecido Tipo: Doce
-------------------------------------------------------
Ingredientes
Ovos: de granja
Fermento: em pó
Açúcar: mascavo
-------------------------------------------------------
Passos
Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.
Alguém saberia me dizer como fazer isso?
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
________________________________________________________________________
________________________________________________________________________
Mensagem: 18
Data: Mon, 04 Apr 2005 15:23:00 -0300
De: Oséias Ferreira <[EMAIL PROTECTED]>
Assunto: Re: Como pegar IP em ADSL?
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Eu fiz uma vez, usando o IdHttp.
No meu caso, eu criei um script em php
(é bem besta fazer isto
<? echo getenv ("REMOTE_ADDR"); ?>
),
e dava um GET com o componente, no servidor que estava armazenado o script.
É claro que o script deve estar de fora da LAN, para que você consiga o
IP verdadeiro.
Um outro problema, é que o IP "verdadeiro" (Internet), pode ser apenas
um router ou NAT.
Aí será necessário direcionar as portas corretamente no router, ou
sitema que estiver roteando, a internet para a LAN.
Mas o problema essencial, que era descobrir o IP, é possível fazer assim.
- --
Oséias Ferreira.
Ricardo Mauro escreveu:
>
> Bom dia!
>
> Gostaria de saber se conseguiu resover seu problema, em capturar o ip
externo?
>
> Abracos,
>
> Ricardo Mauro
>
>
> ----- Original Message -----
> From: lixeirod
> To: delphi-br@yahoogrupos.com.br
> Sent: Friday, November 05, 2004 4:03 PM
> Subject: [delphi-br] Re: Como pegar IP em ADSL?
>
>
>
> OK, mas eu precisaria que a aplicação, ao se conectar, eviasse por e-
> mail, ICQ, ou Messenger para mim seu IP diretamente.
> Como implementar isso pelo site?
>
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (MingW32)
iD8DBQFCUYYDHKYDdGAIQkURAn7ZAJ95Y/3kyXfZfzs3pcEHJ2MXcO/PdwCg2+E2
87Jb5YSQC/tNe8gRI3B8+Cg=
=DFRN
-----END PGP SIGNATURE-----
________________________________________________________________________
________________________________________________________________________
Mensagem: 19
Data: Mon, 04 Apr 2005 15:26:06 -0300
De: Oséias Ferreira <[EMAIL PROTECTED]>
Assunto: Re: Comparação não funciona (entre duas variaveis do tipo real)
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
O problema é que string não tem valor absoluto.
Use extended, que a comparação funciona...
var
var1, var2: extended;
begin
var1:=1.36655656565;
var2:=1.36655656564;
if var1 > var2 then
showmessage('var1 é maior');
end;
Filipe escreveu:
> eu sempre transformo pra string pra comparar...
>
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (MingW32)
iD8DBQFCUYa9HKYDdGAIQkURAv69AJ9PPeG7NWcC86H0o4TI1xGhbVF8ZACgtabx
jpkfU9OdEVMgLIY2vm4SzHs=
=//Am
-----END PGP SIGNATURE-----
________________________________________________________________________
________________________________________________________________________
Mensagem: 20
Data: Mon, 04 Apr 2005 15:31:50 -0300
De: Rodrigo Schiavo <[EMAIL PROTECTED]>
Assunto: Verificar se maquina esta na rede
Ola amigos.
Estou precisando verificar se uma máquina esta ativa na rede ou não
antes de tentar estabelecer uma conexão com o SGBD dela, como posso
fazer isso de forma rapida sem que o programa fique travado 30 segundos
até retornar o erro de que o endereço não existe?
[ ]'s Rodrigo
________________________________________________________________________
________________________________________________________________________
Mensagem: 21
Data: Mon, 4 Apr 2005 15:42:03 -0300
De: "Francisco Thiago" <[EMAIL PROTECTED]>
Assunto: Re: Comparação não funciona (entre duas variaveis do tipo real)
Mas com string está funcionando. Não está funcionando quando uso Double :(
Francisco Thiago de Almeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago
----- Original Message -----
From: "Oséias Ferreira" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 3:26 PM
Subject: Re: [delphi-br] Comparação não funciona (entre duas variaveis do
tipo real)
>
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> O problema é que string não tem valor absoluto.
> Use extended, que a comparação funciona...
>
> var
> var1, var2: extended;
> begin
> var1:=1.36655656565;
> var2:=1.36655656564;
>
> if var1 > var2 then
> showmessage('var1 é maior');
>
> end;
>
> Filipe escreveu:
>> eu sempre transformo pra string pra comparar...
>>
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.4.1 (MingW32)
>
> iD8DBQFCUYa9HKYDdGAIQkURAv69AJ9PPeG7NWcC86H0o4TI1xGhbVF8ZACgtabx
> jpkfU9OdEVMgLIY2vm4SzHs=
> =//Am
> -----END PGP SIGNATURE-----
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
________________________________________________________________________
________________________________________________________________________
Mensagem: 22
Data: Mon, 4 Apr 2005 15:57:01 -0300
De: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
Assunto: Re: Report Builder
Adicionei as subreports ao meu relatório, mas na hora da exibição do
relatório, no campo referente aos ingrediente aparece apenas o 1º registro.
Sabe como resolver esse problema?
Mairlo
----- Original Message -----
From: Filipe
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 04, 2005 3:19 PM
Subject: Re: [delphi-br] Report Builder
Cria um grupo, no group header vc coloca um bdText com o campo "receita",
na
banda detail, vc coloca subreports e tal.... mais ou menos isso...
----- Original Message -----
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 3:12 PM
Subject: [delphi-br] Report Builder
Pessoal,
Eu tenho tabelas que possuem relacionamento N x N entre elas e, com
base
no identificador da 1ª tabela, eu posso encontrar X itens da segunda
tabela
e Y itens da terceira. De posse desses dados, eu gostaria de criar um
relatório utilizando o ReportBuilder com todas essas informações. Estou
utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:
1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )
2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição
3ª tabela:
- PASSOS
-> Identificador
-> Descrição
Existem tb as tabelas que descrevem o relacionamento entre essas
tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para
ser realizada. Então, gostaria de criar o seguinte relatório:
Receita de <Nome>
Autor: <Autor> Tipo: <Tipo>
-------------------------------------------------------
Ingredientes
<Nome>: <Descrição>
-------------------------------------------------------
Passos
<Descrição>
Onde, em ingredientes poderia existir 3 itens, enquanto que em passos
poderiam existir 7 passos, por exemplo:
Receita de Pavê
Autor: Desconhecido Tipo: Doce
-------------------------------------------------------
Ingredientes
Ovos: de granja
Fermento: em pó
Açúcar: mascavo
-------------------------------------------------------
Passos
Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.
Alguém saberia me dizer como fazer isso?
[As partes desta mensagem que não continham texto foram removidas]
________________________________________________________________________
________________________________________________________________________
Mensagem: 23
Data: Mon, 4 Apr 2005 16:03:13 -0300
De: "Filipe" <[EMAIL PROTECTED]>
Assunto: Re: Report Builder
vc provavelmente colocou seu dbText em outra banda que naum seja a detail...
verifica isso...
----- Original Message -----
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 3:57 PM
Subject: Re: [delphi-br] Report Builder
Adicionei as subreports ao meu relatório, mas na hora da exibição do
relatório, no campo referente aos ingrediente aparece apenas o 1º registro.
Sabe como resolver esse problema?
Mairlo
----- Original Message -----
From: Filipe
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 04, 2005 3:19 PM
Subject: Re: [delphi-br] Report Builder
Cria um grupo, no group header vc coloca um bdText com o campo "receita",
na
banda detail, vc coloca subreports e tal.... mais ou menos isso...
----- Original Message -----
From: "Mairlo Hideyoshi Guibo Carneiro da Luz" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 04, 2005 3:12 PM
Subject: [delphi-br] Report Builder
Pessoal,
Eu tenho tabelas que possuem relacionamento N x N entre elas e, com
base
no identificador da 1ª tabela, eu posso encontrar X itens da segunda
tabela
e Y itens da terceira. De posse desses dados, eu gostaria de criar um
relatório utilizando o ReportBuilder com todas essas informações. Estou
utilizando o Delphi 6 com o Interbase 6. Segue abaixo um exemplo desse BD:
1ª tabela:
- RECEITAS
-> Identificador
-> Nome
-> Autor
-> Tipo( Doce, Massa etc )
2ª tabela:
- INGREDIENTES
-> Identificador
-> Nome
-> Descrição
3ª tabela:
- PASSOS
-> Identificador
-> Descrição
Existem tb as tabelas que descrevem o relacionamento entre essas
tabelas. Por exemplo, uma receita pode ter N ingredientes e Z passos para
ser realizada. Então, gostaria de criar o seguinte relatório:
Receita de <Nome>
Autor: <Autor> Tipo: <Tipo>
-------------------------------------------------------
Ingredientes
<Nome>: <Descrição>
-------------------------------------------------------
Passos
<Descrição>
Onde, em ingredientes poderia existir 3 itens, enquanto que em passos
poderiam existir 7 passos, por exemplo:
Receita de Pavê
Autor: Desconhecido Tipo: Doce
-------------------------------------------------------
Ingredientes
Ovos: de granja
Fermento: em pó
Açúcar: mascavo
-------------------------------------------------------
Passos
Separar a clara da gema;
Bater a gema;
Deixar a gema descansando;
Misturar o açúcar a gema;
Colocar a mistura no forno por 30 min;
Batar a clara;
Pincelar a clara sobre a mistura.
Alguém saberia me dizer como fazer isso?
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
________________________________________________________________________
________________________________________________________________________
Mensagem: 24
Data: Mon, 4 Apr 2005 16:07:10 -0300
De: Cícero <[EMAIL PROTECTED]>
Assunto: Melhorar um IF
Pessoal,
Estou fazendo uma consulta com like em todos os tedit que tenham um valor
digitado.
Preciso saber:
Se o componente eh TEDIT (JÁ SEI COMO PODE VER ABAIXO)
Agora preciso saber, se o componente tem um valor digitado
if frmConsInbimi.Components[i].Text := '' then
wvazio:='S';
end;
Só que está dando erro no ( .text) como posso resolver isso ? veja a rotina
toda abaixo
if (frmConsInbimi.Components[i] is TEdit then
begin
if frmConsInbimi.Components[i].Text := '' then
wvazio:='S';
end;
é claro que posso perguntar
if teditNome.text = ''
if teditEndereco.text = '' mas são muitos campos e eu quero fazer com uma
rotina legal
Como você pode ver, eu descubro se eh tedit, tcombo, tmask, tmemo e assim
por diante.
________________________________________________________________________
________________________________________________________________________
Mensagem: 25
Data: Mon, 4 Apr 2005 16:02:55 -0300 (ART)
De: "\[> Mutuka <\]" <[EMAIL PROTECTED]>
Assunto: Re: Re: Comparação não funciona (entre duas variaveis do tipo
real)
Já foi discutido isto uma vez e tanto precisei q
tive de desenvolver uma funcao para nao ter mais
problemas até a postei aki...
ai vai novamente caso precise:
funciona igual a strcomp mas com variaveis float
em vez de string
Function Compara(Valor1,Valor2 :Variant)
:Integer;
Var
Pos1, Pos2: Integer;
Aux1, Aux2: Variant;
Begin
Valor1 := FloatToStr(Valor1);
Valor2 := FloatToStr(Valor2);
Pos1 := Pos('.',Valor1);
If Pos1 > 0 Then Aux1 :=
StrToInt(Copy(Valor1,1,Pos1-1))
Else Aux1 := StrToInt(Valor1);
Pos2 := Pos('.',Valor2);
If Pos2 > 0 Then Aux2 :=
StrToInt(Copy(Valor2,1,Pos2-1))
Else Aux2 := StrToInt(Valor2);
If Aux1 - Aux2 < 0 Then Result := -1
Else If Aux1 - Aux2 > 0 Then Result := 1
Else
Begin
If Pos1 <> 0 Then Aux1 :=
StrToInt(Copy(Valor1,Pos1+1,2))
Else Aux1 := 0;
If Pos2 <> 0 Then Aux2 :=
StrToInt(Copy(Valor2,Pos2+1,2))
Else Aux2 := 0;
If Length(IntToStr(Aux1)) = 1
Then Aux1 := Aux1 * 10;
If Length(IntToStr(Aux2)) = 1
Then Aux2 := Aux2 * 10;
If Aux1 - Aux2 = 0 Then Result :=
0
Else If Aux1 - Aux2 < 0 Then
Result := -1
Else If Aux1 - Aux2 > 0 Then
Result := 1
Else Result := 0;
End;
End;
Leandro...
[> Mutuka <]
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
________________________________________________________________________
________________________________________________________________________
--
<<<<< 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] ou [EMAIL PROTECTED]
------------------------------------------------------------------------
Links do Yahoo! Grupos
------------------------------------------------------------------------
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.5 - Release Date: 29/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.5 - Release Date: 29/03/2005
--
<<<<< 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] ou [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
