Oi pessoal,
desculpem a pergunta basica.
Alguem sabe se o Delphi tem alguma funcao para transformar Zeros em Zero;
Ou seja
'.00' in 0
'0.00IN 0
'.' IN 0
claro que é possivel eu fazer uma funcao para isso, mas se tiver alguma
coisa propria
é sempre mais veloz.
rss coitado
www.nextcorp.com.br
nextc...@terra.com.br
0xx-(51)-3037-6605
###
- Original Message -
From: Marcio mar...@sulfabril.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 17, 2009 10:17 AM
Subject: [delphi-br] funcao para zeros
Oi pessoal,
desculpem a pergunta basica.
Alguem
Hein?! Não entendi!
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcio
Enviada em: sexta-feira, 17 de julho de 2009 09:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] funcao para zeros
Oi pessoal,
desculpem a pergunta basica.
Alguem
@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Marcio
Enviada em: sexta-feira, 17 de julho de 2009 09:18
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] funcao para zeros
Oi
boa tarde pessoal
Alguém conhece uma função do Delphi que retorne todas as strings depois
do ';', seria o seguinte:
na String ID;PRODUTO;CUSTO a função retornaria:
ID
PRODUTO
CUSTO
Se no Delphi não tiver, será que alguém conhece algo parecido ?
já tentei de tudo e não estou conseguindo.
na String ID;PRODUTO;CUSTO a função retornaria:
ID
PRODUTO
CUSTO
Use um TStringList.
var
s: TStringList;
begin
s := TStringList.Create;
s.Delimiter := ';';
s.DelimitedText := 'ID;PRODUTO;CUSTO';
for i := 0 to s.Count - 1 do
ShowMessage(s[i]);
end;
Jackson Gomes
ToolsComps -
!
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 29 Oct 2008 18:21:01 +
Subject: [delphi-br] funcao no Delphi para retornar conteudo de strings
boa tarde pessoal
Alguém conhece uma função do Delphi que retorne todas as strings depois
do
Enviadas: Quarta-feira, 29 de Outubro de 2008 15:21:01
Assunto: [delphi-br] funcao no Delphi para retornar conteudo de strings
boa tarde pessoal
Alguém conhece uma função do Delphi que retorne todas as strings depois
do ';', seria o seguinte:
na String ID;PRODUTO;CUSTO a função retornaria:
ID
: [delphi-br] funcao no Delphi para retornar conteudo de strings
Olá pessoal,
Tente isso:
var
StrTemp:
TStringList;
begin
StrTemp := TStringList.Create;
try
ExtractStrings([';'], [], ‘ID;PRODUTO;CUSTO’, StrTemp);
ShowMessage(StrTemp.Text);
finally
FreeAndNil(StrTemp);
end;
end
Dá uma olhada no TStringList. Ele tem uma propriedade Delimiter que você
informará o ';' e depois basta capturar os trechos da linha.
Ex:
vObjString := TStringList.Create;
vObjString.Delimiter:= ';';
vObjString.DelimitedText := 'AAA;BBB;CCC;DDD'
grupo1 := vObjString[0];
grupo2 :=
outra ocasião.
Brother, fica com Deus e esquece o que falei em outra ocasião. (Risos)
De: Rubem Nascimento da Rocha [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 29 de Outubro de 2008 15:31:35
Assunto: RE: Res: [delphi-br] funcao
2008 11:47:30 -0700
Subject: Res: Res: [delphi-br] funcao no Delphi para retornar conteudo de
strings
Olá pessoal,
É isso aí Rubem, eu estou aprendendo a programar na tora, tenho 26 e estou na
ativa já há dois anos (sou iniciante mesmo, Risos), utilizo um monte de dicas
suas, eu estava
Se entendi direito, 'casa' retornaria 'a', 'c', e 's'.
É isso que vc precisa?
2008/6/3 Ioney Hotmail [EMAIL PROTECTED]:
eu tenho um edit e nele esta digitado 'casa', tem alguma funcao pra saber
QUAIS LETRAS ou NUMEROS foram digitado no edit?
--
Timeo hominem unius libri
Cogito ergo sum -
eu tenho um edit e nele esta digitado 'casa', tem alguma funcao pra saber QUAIS
LETRAS ou NUMEROS foram digitado no edit?
[As partes desta mensagem que não continham texto foram removidas]
Boa tarde pessoal,
Estou com dificuldades em converter numeros hexadecimais grandes em
decimais.
todas as funcoes que peguei na net e que fiz quando tem mais de 7
digitos nao funciona, verifico se esta certo pela calculadora do
windows.
alguem pode me ajudar estou precisando muito dessa
use a função strtoint64... assim:
caption := inttostr(strtoint64('$C5E57F15'))
- Original Message -
From: alineri
To: delphi-br@yahoogrupos.com.br
Sent: Monday, August 27, 2007 5:35 PM
Subject: [delphi-br] funcao hexadecimal para inteiro para acima de 7 digitos
Boa
Alineri,
Tente com StrToInt ou StrToInt64.
Veja no help do Delphi como usa-los com numeros hexadecimais
[ ]´s
Moacir
alineri escreveu:
Boa tarde pessoal,
Estou com dificuldades em converter numeros hexadecimais grandes em
decimais.
todas as funcoes que peguei na net e que fiz quando
alineri wrote:
Boa tarde pessoal,
Estou com dificuldades em converter numeros hexadecimais grandes em
decimais.
todas as funcoes que peguei na net e que fiz quando tem mais de 7
digitos nao funciona, verifico se esta certo pela calculadora do
windows.
alguem pode me ajudar estou
@yahoogrupos.com.br
Sent: Monday, April 23, 2007 12:39 PM
Subject: Re: [delphi-br] Funcao para criar e executar form
Segue minha procedure, é simples mas reduziu bastante o código
//Cria um Form
procedure ShowForm( TFrm:TFormClass; Frm:TForm );
begin
try
if not Assigned( Frm
@yahoogrupos.com.br
Sent: Monday, April 23, 2007 12:39 PM
Subject: Re: [delphi-br] Funcao para criar e executar form
Segue minha procedure, é simples mas reduziu bastante o código
//Cria um Form
procedure ShowForm( TFrm:TFormClass; Frm:TForm );
begin
try
if not Assigned( Frm ) then
Frm
depois transformar
em form ...
Abraço
- Original Message -
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 23, 2007 12:39 PM
Subject: Re: [delphi-br] Funcao para criar e executar form
Segue minha procedure, é simples mas reduziu
Subject: Re: [delphi-br] Funcao para criar e executar form
Segue minha procedure, é simples mas reduziu bastante o código
//Cria um Form
procedure ShowForm( TFrm:TFormClass; Frm:TForm );
begin
try
if not Assigned( Frm ) then
Frm := TFrm.Create( Application );
Frm.ShowModal;
finally
Tem como vc me passar ?
Abraço.
- Original Message -
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Friday, April 20, 2007 6:17 PM
Subject: Re: [delphi-br] Funcao para criar e executar form
tem sim, ha um tempo atraz alguém aqui da lista fez,
so
: [delphi-br] Funcao para criar e executar form
tem sim, ha um tempo atraz alguém aqui da lista fez,
so que pra criar e exibir o form apenas pelo nome, todos os forms da sua
aplicação terão que ser registrados pelo método RegisterClass( ), só assim
a rotina funcionava,
eu criei uma rotina
Gostaria de criar uma funcao para criar e executar um form
Eu mandaria como parametro STRING o nome do form (EX: CADCLI) e a funcao
criaria e o executaria
Tem Como ?
Abraço
Doretto.
[As partes desta mensagem que não continham texto foram removidas]
tem sim, ha um tempo atraz alguém aqui da lista fez,
so que pra criar e exibir o form apenas pelo nome, todos os forms da sua
aplicação terão que ser registrados pelo método RegisterClass( ), só assim
a rotina funcionava,
eu criei uma rotina generica pra min onde passo dois parametros:
Amigos,
Alguem tem alguma função ou procedure que tenha a mesma função do vbtab no
visual basic (faz tabulação). Pois preciso fazer uma importação de dados de um
arquivo texto e o mesmo vem com os dados todos embaralhados no qual a função
tipo tabulacao me ajudaria a fazer isto para fazer
dentro do seu código em Delphi com o valor do caracter TAB, assim:
const
CHR_TAB = #9
Sds.
From: Rodrigo Magno [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Funcao TAB
Date: Mon, 8 Jan 2007 05:13:49 -0800 (PST)
Amigos
Oi gente,
Poderiam me ajudar não sei o que estou fazendo de errado mas da erro na
funcao floattostrf.
Agradeço ajuda
Jenifer
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT SUM(CASE WHEN (OPERACAO = ''D'') THEN -1 *
VALORMOVIMENTO WHEN (OPERACAO = ''C'') THEN
Jenifer, qual é o erro exatamente? Tenho quase certeza de que vc está
esquecendo de passar mais um parâmetro pra função FloatToStrF. Já olhou no
help?
Sds.
From: Jenifer [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Funcao
Reply-To: delphi-br@yahoogrupos.com.br
To:
Subject: [delphi-br] Funcao floatToStrF
Date: Fri, 31 Mar 2006 08:12:42 -0300
Oi gente,
Poderiam me ajudar não sei o que estou fazendo de errado mas da erro na
funcao floattostrf.
Agradeço ajuda
Jenifer
IBQuery1.SQL.Clear;
IBQuery1
@yahoogrupos.com.br
Assunto: RE: [delphi-br] Funcao floatToStrF
Prioridade: Alta
Jenifer, qual é o erro exatamente? Tenho quase certeza de que vc está
esquecendo de passar mais um parâmetro pra função FloatToStrF. Já olhou no
help?
Sds.
From: Jenifer [EMAIL PROTECTED]
Reply-To: delphi-br
Salve amigos da lista. Tudo na boa ?!
Eu tou bem... espero que vocês também estejam.
Bom, a minha dúvida é a seguinte:
Preciso exportar um banco de dados em formato TXT.
Acontece que tenho que alinhar as colunas dos campos
da tabelas quando mandar pro arquivo, sacam ??
Exemplo:
NOMEENDERECO
Quero saber se no Delphi tem alguma função
pra isso. Tirar espaço ele tira, mas e escrever ??
Com esta funcao vc pode preencher X vezes com qualquer caracter.
function Fill(cByte:Char; qtd:integer): string;
begin
result := stringOfChar(cByte,qtd);
end;
Alencar
: [delphi-br] Funcao para escrever espaco - Duvida
Quero saber se no Delphi tem alguma função
pra isso. Tirar espaço ele tira, mas e escrever ??
Com esta funcao vc pode preencher X vezes com qualquer caracter.
function Fill(cByte:Char; qtd:integer): string;
begin
result := stringOfChar
Em 02/12/05, Walter Alves Chagas Junior[EMAIL PROTECTED] escreveu:
Meu, não é melhor usar diretamente o stringOfChar(cByte,qtd) do que usar uma
função que vai chamar outra função pra fazerem ambas a mesma coisa? Isto irá
gerar duplo empilhamento.
Sem duvidas, Walter.
É tudo questao de
:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Funcao para escrever espaco - Duvida
Em 02/12/05, Walter Alves Chagas Junior[EMAIL PROTECTED] escreveu:
Meu, não é melhor usar diretamente o stringOfChar(cByte,qtd) do que usar
uma
função que vai chamar outra função pra fazerem ambas
passar os parametros: texto - é o texto e tamanho é a quantidade de
espaço q vc quer adicinar a variavel texto.
- Original Message -
From: Welson Avelar
To: Delphi-BR
Sent: Wednesday, November 30, 2005 10:53 PM
Subject: [delphi-br] Funcao para escrever espaco - Duvida
Estou desenvolvendo layout e preciso que um campo de Valor moeda
Seja inserido no arquivo texto alinhado a esquerda e sem virgula, alguém tem
algo referente a isto
Desde já agradeço!
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO
@yahoogrupos.com.br
Sent: Friday, February 25, 2005 2:48 PM
Subject: [delphi-br] Funcao linha esquerda e virgula
Estou desenvolvendo layout e preciso que um campo de Valor moeda
Seja inserido no arquivo texto alinhado a esquerda e sem virgula, alguém tem
algo referente a isto
Desde já agradeço
Bom galera como ja ouvi falar disso uns tempos
atras e dessa vez precisei pois strcomp nao
funcionava perfeitamente entaum fiz uma funcao
para comparar dois valores reais:
funciona igual strcomp
Se result 0 o primeiro Valor e maior
Se for = 0 Sao iguais
Se for 0 O segundo Valor e maior oks...
Segue funcao para clarear ou escurecer a cor de um ponto da imagem. Mais
abaixo um exemplo de como usa-la.
function MarcaDagua (Cor: TColor; Valor: Integer): TColor;
var R, G, B: Integer;
begin
//Captura valores RGB para numeros inteiros
R := StrToInt('$' + Copy(IntToHex(Cor, 6), 5,
Bom Dia pessoal,
Estou utilizando a funcao Table1.GetFieldNames(ListBox1.Items) para
carregar o nome dos campos de uma tabela para dentro de um ListBox.
Estou utilizando o Banco de dados Informix aqui na empresa.
Aqui funciona tudo perfeitamente correto, busca os
43 matches
Mail list logo