Re: [delphi-br] Duvida de Iniciante
--- Anderson RB escreveu: Pessoal, tenho uma duvida que é a seguinte Qual a melhor maneira de se configurar DecimalSeparator ThousandSeparator ShortDateFormat: Hoje eu uso dessa maneira DecimalSeparator:= '.'; ThousandSeparator:= ','; ShortDateFormat:= 'dd/mm/'; Mas ai na visualizacao dos valores eu uso uma mascara assim: '###,###,##0.00' e se for quantidade eu uso assim ##,###,##0.000. Mas nao sei se esta é a melhor maneira. [--x--] [Welson] Essas configurações são pegas diretamente da configuração do Windows. A forma como você passa pela máscara tá certo, porque é a formatação americana. E depois isso é traduzido para a formatação que estiver em seu Windows. Só uma observação: quando tratar de quantidade, como sendo de números inteiros, passe somente como ###,###,##0, porque daí não terá o ponto de casa decimal. []s. = O que me preocupa não é o grito dos maus. É o silêncio dos bons. Martin Luther King. = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.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] 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] Duvida de Iniciante
Boa Tarde,
O que pode fazer tbm seria desta forma
procedure ou function...
var
fs: TFormatSettings;
begin
GetLocaleFormatSettings(0, fs);
fs.DecimalSeparator := '.';
fs.ThousandSeparator := ',';
//para ponto flutuante
FormatFloat('00.00',StrToFloat(editPreco.Text),fs);
// ou ainda pode alterar direto na conversão da variável
StrToFloat(editPreco.Text,fs);
end;
com o código acima consegue configurar facilmente a suas variáveis da forma que
deseja.
Também tem o formato Date, entre outros.
Abraço
Marco Aurélio Gerônimo
- Original Message -
From: Welson Avelar
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 05, 2006 10:41 AM
Subject: Re: [delphi-br] Duvida de Iniciante
--- Anderson RB escreveu:
Pessoal, tenho uma duvida que é a seguinte
Qual a melhor maneira de se configurar
DecimalSeparator
ThousandSeparator
ShortDateFormat:
Hoje eu uso dessa maneira
DecimalSeparator:= '.';
ThousandSeparator:= ',';
ShortDateFormat:= 'dd/mm/';
Mas ai na visualizacao dos valores eu uso uma mascara assim:
'###,###,##0.00' e se for quantidade eu uso assim ##,###,##0.000. Mas nao
sei se esta é a melhor maneira.
[--x--]
[Welson] Essas configurações são pegas diretamente da configuração do Windows.
A forma como você passa pela máscara tá certo, porque é a formatação
americana.
E depois isso é traduzido para a formatação que estiver em seu Windows.
Só uma observação: quando tratar de quantidade, como sendo de números
inteiros,
passe somente como ###,###,##0, porque daí não terá o ponto de casa decimal.
[]s.
=
O que me preocupa não é o grito dos maus. É o silêncio dos bons.
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
www.geminisistemas.com.br
Juiz de Fora - Minas Gerais
=
___
Você quer respostas para suas perguntas? Ou você sabe muito e quer
compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/
[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
[delphi-br] Duvida de Iniciante
Pessoal, tenho uma duvida que é a seguinte Qual a melhor maneira de se configurar DecimalSeparator ThousandSeparator ShortDateFormat: Hoje eu uso dessa maneira DecimalSeparator:= '.'; ThousandSeparator:= ','; ShortDateFormat:= 'dd/mm/'; Mas ai na visualizacao dos valores eu uso uma mascara assim: '###,###,##0.00' e se for quantidade eu uso assim ##,###,##0.000. Mas nao sei se esta é a melhor maneira. ___ 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
[delphi-br] Duvida de iniciante
Ola Gente como coloco a opção no delphi para quando copilar o projeto e no tempo de execulssao da um erro mas ele não travar? e como saber em tempo de execulssao a linha do bug??? valeu [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] Duvida de iniciante
1) O tratamento de exceções deve ser feito dentro do seu programa, usando o bloco try..except. O bloco try..except faz parte do alicerce da linguagem Object Pascal usada pelo Delphi, e permite que vc faça o devido tratamento no seu programa para que ele tome ações quando uma exceção ocorrer. Informe-se sobre ele no próprio help do Delphi, ou então procure por apostilas básicas sobre Delphi na Internet (isso tem a botão); 2) Em tempo de EXECUÇÃO (e não de execulssao!) você até teria como conseguir essa informação, mas vc vai precisar saber conhecer a estrutura de um arquivo especial que pode ser gerado na hora que vc faz um build de uma aplicação Delphi. Trata-se do arquivo .MAP, que é um arquivo texto que possui a referência de memória de todos os objetos, procedures, functions, classes, etc. que sua aplicação usa. Sabendo tratar esse arquivo, e tendo o endereço onde ocorreu a exceção, em tempo de EXECUÇÃO (e não de execulssao!) você pode descobrir qual a unit, qual rotina e linha onde ocorreu a exceção. Fica pra vc pesquisar isso na Internet tb. Conselho: aprendizado vem com muito esforço e dedicação. É só assim que vc vai aprender. Não pegue as coisas prontas, isso não vai fazer valer o seu aprendizado nesta maravilhosa ferramenta. Muitos vão te aconselhar a buscar por componentes. Mas a melhor maneira de aprender é indo atrás da informação como ela deve ser, para que vc estude, aprenda e aperfeiçoe seus conhecimentos. Boa sorte! Sds. From: Hudson [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Duvida de iniciante Date: Thu, 6 Apr 2006 21:29:52 -0300 Ola Gente como coloco a opção no delphi para quando copilar o projeto e no tempo de execulssao da um erro mas ele não travar? e como saber em tempo de execulssao a linha do bug??? valeu [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.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
Re: [delphi-br] Duvida de iniciante
boa noite gente, alguem pode me dizer ond estou errando na query abaixo?
o programa acha o valor certo mas não grava qdo mando dar o update.grata
begin
//1-pegar arquivo texto deve ser c alguma coisa
//*
lstArquivo := TStringList.Create;
// Aqui vc criou o TStringList !!!
if OpenDialog1.Execute then
begin
lstArquivo.LoadFromFile(OpenDialog1.FileName);
header:=lstarquivo[0];
// NOMEPORT:= copy(header,5,40);
rodape:=(lstarquivo[lstarquivo.count -1]);
if lstArquivo.Count 0 then
begin
for i := 1 to lstArquivo.Count - 2 do // Ignora última linha
begin
sLinhaTxt := lstArquivo[i];
//
With cdslocal do //JGANDO NA TAB AUXILIAR
begin
Append;
//
//***ESTES CAMPOS EU USO NA TABELA TITULOS POR ISSO GRAVO + TARDE
//***NA OUTRA TABELA TBLTIT
FieldByName('protocolo').AsString := Copy(sLinhaTxt, 1, 10);
FieldByName('data').Asstring := Copy(sLinhaTxt, 11, 9);
FieldByName('nome').AsString := Copy(sLinhaTxt, 20, 45);
FieldByName('pracapagto').AsString := Copy(sLinhaTxt, 65, 20);
FieldByName('nossonum').AsString := Copy(sLinhaTxt, 86, 14);
Post;
end;
end;
end;
end;
lstArquivo.Free;
//
erros := TStringList.Create;
with cdslocal do
begin
while not eof do //se ñ estiver no final
begin
cond := True; //Marcar a condição de fazer UPDATE como TRUE (Atualização
Liberada)
edit1.text:=cdslocalnossonum.asstring;
DM1.qrytit.CLOSE;
dm1.qrytit.selectSQL.Clear;
dm1.qrytit.selectSQL.Add('Select * from titulos');
dm1.QRYtit.selectSQL.Add('where nossonum='+chr(39)+EDIT1.Text+chr(39));
dm1.qrytit.open;
if not cond then // ou seja, se cond=false...
begin
erros.add('Registro tal'+cdslocalnossonum.AsString+' não passou na
critica por isso ou aquilo');
end else begin
dm1.qrytit.close;
dm1.qrytit.modifysql.clear;
dm1.qrytit.modifysql.add('update titulos set');
dm1.qrytit.modifysql.add('protocolo='+chr(39)+cdsLocalprotocolo.Asstring+chr(39));
//
dm1.qrytit.modifysql.add(',nossonum='+chr(39)+cdsLocalnossonum.AsString+chr(39));
//
dm1.qrytit.modifysql.add(',sacado='+chr(39)+cdsLocalnome.AsString+chr(39));
//
dm1.qrytit.modifysql.add(',pracapagto='+chr(39)+cdsLocalpracapagto.AsString+chr(39));
//
dm1.qrytit.selectsql.add(',dtentrada='+chr(39)+strtodatetime(cdsLocaldata.asstring)+chr(39));
showmessage('update');
try // tente...
dm1.qrytit.open;
//dm1.qrytit.execsql;
except //Se deu erro na hora de gravar então.:
erros.Add('Registro tal'+cdslocalnossonum.AsString+' falta dados no
campo XX');
end;
end;
next;
end;
//Acabou... vc executou todos os registros !!!
end;
uso delphi5 e qrytit é um ibdataset
[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
