RES: [delphi-br] Fluxo de Caixa

[Charlles Ferdinand]

Como trabalhar com os saldos, crio uma tabela de saldos, tem uma forma mais
facil de se conseguir estas informações, coisas desse tipo.



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Roger
Enviada em: sexta-feira, 30 de setembro de 2005 11:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Fluxo de Caixa


Todo sistema comercial (que gira dinheiro) tem que ter caixa...

Acho que quase todos na lista devem fazer isto...
O que você necessita mais precisamente?

Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br

- Original Message -
From: "Charlles Ferdinand" <[EMAIL PROTECTED]>
To: "Delphi-Br" 
Sent: Friday, September 30, 2005 10:33 AM
Subject: [delphi-br] Fluxo de Caixa


Tem alguem na lista que ja tenha trabalhado com oum sistema de caixa, to
tendo que fazer um.


[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











--
<<<<< 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

<*> 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] Fluxo de Caixa

[Charlles Ferdinand]

Tem alguem na lista que ja tenha trabalhado com oum sistema de caixa, to
tendo que fazer um.


[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

<*> 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] Problemas com IF then Else

[Charlles Ferdinand]

Pessoal to precisando fazer uma verificação mas não sei o que esta dando
errado, ja tentei um monte de coisas, mas não to conseguindo.

É o seguinte tenho que fazer uma verificação se existe um determinado
codigo(membro) na tabela se existir verificar qual o codigo(Conta) se for
diferente avisar ao usuario, mas se não for diferente parte para outra
verificação se existe os dados iguais Codigo(conta) e codigo(membro) então
pergunta se deseja desrelacionar(significa apagar da tabela) , se não existe
o codigo(membro) então ele grava as informações.

Peço ajuda de vcs.

procedure TFrmRelac.BitBtn2SalvarClick(Sender: TObject);
Var
R: Integer;
begin
With DM.IBQryConsulta do begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM RELACIONA');
SQL.Add('WHERE CODMEMBRO =' + QuotedStr(DBEdit4CodMembro.Text));
SQL.Add('AND CODCONTA =' + QuotedStr(DBEdit1CodConta.Text));
end;
DM.IBQryConsulta.Open;


  if DM.IBQryConsulta.FieldByName('CODMEMBRO').AsString = '' THEN

  IF  DM.IBQryConsulta.FieldByName('CODCONTA').AsString <> '' THEN


begin
 Application.MessageBox('Membro Já Relacionado em Outra Conta',
'ESICON - Adm. de Sistemas', 48);
 DBEdit1CodConta.SetFocus;
 Exit;
end ELSE

//END;

 With DM.IBQryConsulta do begin
 Close;
 SQL.Clear;
 SQL.Add('SELECT * FROM RELACIONA');
 SQL.Add('WHERE CODMEMBRO =' + QuotedStr(DBEdit4CodMembro.Text));
 SQL.Add('AND CODCONTA =' + QuotedStr(DBEdit1CodConta.Text));
 Open;
end;

   if DM.IBQryConsulta.FieldByName('CODMEMBRO').AsString = '' Then
begin
 R := Application.MessageBox('Deseja Confimar o Relacionamento?',
 'ESICON - Adm. de Sistemas', 36);

   if R = 6 Then

   DM.IBDSetRelacFLAG.AsString := 'S';
   DM.IBDSetRelac.Post;

end

else
begin
R := Application.MessageBox('Deseja Confirmar o
Desrelacionamento?',
'ESICON - Adm. de Sistemas', 36);

  if R = 6 Then
   BEGIN
   DM.IBDSetRelac.Cancel;
   DM.IBDSetRelac.Delete;
   END;




   end;
DM.IBTransac.CommitRetaining;
DM.IBDSetRelac.Refresh;
DM.IBDSetRelac.Insert;
DBEdit1CodIgreja.SetFocus;
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] 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

 

RES: [delphi-br] Re: Plano de Contas

[Charlles Ferdinand]

Silveira, estou montando um sistema de caixa e misturando com contabilidade,
mas to apanhando para construir o plano de contas, mas como vc fez eu não
conheço o sistema de trabalho do UDF.

Estava querendo o seguinte, cadastrar numa tabela o formato das contas, o
que chamamos de mascara contábil e conforme esta informação esteja ao
cadastrar a conta ele separar os niveis da conta

Exemplo

Mascara ContábilResultado
X.X.XX.XX.  1.1.11.11.

X.X.XXX.XXX.XXX 1.1.111.111.111

Será que teria disponibilidade para me ajudar?


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de crsilveira
Enviada em: segunda-feira, 5 de setembro de 2005 10:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Plano de Contas


Olá, eu montei usando a udf PlnCtaUDF.

--- Em delphi-br@yahoogrupos.com.br, "Charlles Ferdinand"
<[EMAIL PROTECTED]> escreveu
> Pessoal, tem alguem que ja montou um sistema de contabilidade ou
parecido,
> para poder trocar umas ideias sobre a contrução de plano de contas.
>
>
> Atenciosamente
>
>
> Charlles Ferdinand
>
>
> [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










-- 
<<<<< 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

 

[delphi-br] Plano de Contas

[Charlles Ferdinand]

Pessoal, tem alguem que ja montou um sistema de contabilidade ou parecido,
para poder trocar umas ideias sobre a contrução de plano de contas.


Atenciosamente


Charlles Ferdinand


[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

<*> 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] Banco de Dados

[Charlles Ferdinand]

Pessoal, alguem conhece esse banco FlashFiler

Sabem como posso acessar os dados do BD?

Charlles Ferdinand

[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

<*> 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

 

RES: [delphi-br] Formularios

[Charlles Ferdinand]

como fazer um form transparente?


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de FILIPE - GURU
Enviada em: segunda-feira, 8 de agosto de 2005 16:28
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Formularios


vc pode fazer um form transparente com um TShape nele



- Original Message -
From: "Anderson" <[EMAIL PROTECTED]>
To: "Grupo Delphi" 
Sent: Monday, August 08, 2005 1:23 PM
Subject: [delphi-br] Formularios


Aes galera...

Querendo sair um pouco do padrão daqueles formulários quadrados, existe
algum jeito de criar um formulário redondo??

Anderson
Rio Claro-SP

[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













--
< 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

<*> 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

 

RES: [delphi-br] OnExit e Setfocus

[Charlles Ferdinand]

tente

if  BitBtn.focused Then
   Exit;

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Cândido Luís Dias Ferreira
Enviada em: segunda-feira, 8 de agosto de 2005 16:12
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] OnExit e Setfocus


Povo

Tenho um edit com código no OnExit.
Esse código somente não pode ser executado quando um Bibtn for clicado.
Alguém sabe como eu faço para definir qual componente recebe o foco
antes de executar o código do OnExit?
Isso é possível?

Atenciosamente

Cândido Luís Dias Ferreira




--
< 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

<*> 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] Problemas no SQL

[Charlles Ferdinand]

Pessoal, to com um problema e como não conheço muito do firebird to pedindo
ajuda de vcs.

é o seguinte, tenho uma verificação numa dbedit com sql, mas se dou um
cancelar para sair da tela ta dando a seguinte mensagem.

conversion error from string ''''


podem me dizer o que fazer.

Abraços

Charlles Ferdinand
Analista Contábil


[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

<*> 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] Mostrar somente determinados Campos na DBGRID

[Charlles Ferdinand]

Pessoal, to querendo mostrar numa dbgrid, somente alguns campos da tabela
que esta setada, mas não pode ser um em tempo de projeto, eu adicionar os
datafields, tem que ser de acordo com a tabela acessada, é porque tenho um
form somete para este dbgrid, e tenho diversas outras telas que acessam este
mesmo dbgrid e dependendo de que tela vem o comando para mostrar os dados o
dbgrid acessa determinada tabela.


estou querendo algo mais automatico do que isto.

if Key = VK_F9 Then
  begin
if FrmAlterar = Nil Then
  Application.CreateForm(TFrmAlterar, FrmAlterar);

  FrmAlterar.DSAlterar.DataSet := DM.IBDSetMembro;
  FrmAlterar.DBGridAlterar.DataSource := FrmAlterar.DSAlterar;
  DM.IBDSetMembro.Refresh;

  With FrmAlterar.DBGridAlterar.Columns do begin
  Items[0].Title.Caption := 'Igreja';
  Items[1].Title.Caption := 'Congregação';
  Items[2].Title.Caption := 'Codigo';
  Items[3].Title.Caption := 'Nome';
  Items[4].Title.Caption := 'Nome do Pai';
  Items[5].Title.Caption := 'Nome da Mãe';
  Items[6].Title.Caption := 'Data de Nascimento';
  Items[7].Visible := False;
  Items[8].Visible := False;
  Items[9].Visible := False;
  Items[10].Visible := False;
  Items[11].Visible := False;
  Items[12].Visible := False;
  Items[13].Visible := False;
  Items[14].Visible := False;
  Items[15].Visible := False;
  end;


Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


[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

<*> 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] Mostrar somente determinados Campos na DBGRID

[Charlles Ferdinand]

Pessoal, to querendo mostrar numa dbgrid, somente alguns campos da tabela
que esta setada, mas não pode ser um em tempo de projeto, eu adicionar os
datafields, tem que ser de acordo com a tabela acessada, é porque tenho um
form somete para este dbgrid, e tenho diversas outras telas que acessam este
mesmo dbgrid e dependendo de que tela vem o comando para mostrar os dados o
dbgrid acessa determinada tabela.


estou querendo algo mais automatico do que isto.

if Key = VK_F9 Then
  begin
if FrmAlterar = Nil Then
  Application.CreateForm(TFrmAlterar, FrmAlterar);

  FrmAlterar.DSAlterar.DataSet := DM.IBDSetMembro;
  FrmAlterar.DBGridAlterar.DataSource := FrmAlterar.DSAlterar;
  DM.IBDSetMembro.Refresh;

  With FrmAlterar.DBGridAlterar.Columns do begin
  Items[0].Title.Caption := 'Igreja';
  Items[1].Title.Caption := 'Congregação';
  Items[2].Title.Caption := 'Codigo';
  Items[3].Title.Caption := 'Nome';
  Items[4].Title.Caption := 'Nome do Pai';
  Items[5].Title.Caption := 'Nome da Mãe';
  Items[6].Title.Caption := 'Data de Nascimento';
  Items[7].Visible := False;
  Items[8].Visible := False;
  Items[9].Visible := False;
  Items[10].Visible := False;
  Items[11].Visible := False;
  Items[12].Visible := False;
  Items[13].Visible := False;
  Items[14].Visible := False;
  Items[15].Visible := False;
  end;


Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]



[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

<*> 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] Sistema de contabilidade

[Charlles Ferdinand]

Será que alguem conhece um forum sobre desenvolvimento de sistemas de
contabilidade.


Atenciosamente


Charlles Ferdinand
Analista Contabil


[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

<*> 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] Não Executar Consulta

[Charlles Ferdinand]

Pessoal, como posso fazer para que se ao teclar esc, uma consulta não seja
realizada, na saida do edit.

Vou colocar abaixo

procedure TFrmCadCongregacao.DBEdit2CodigoExit(Sender: TObject);
begin
if BitBtn3Cancelar.Focused Then
   Exit;

With DM.QryConsulta do Begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM CONGREGACAO');
SQL.Add('WHERE CODIGO ='   + '''' + DBEdit2Codigo.Text+ '''');
SQL.Add('AND COD_IGREJA =' + '''' + DBEdit1CodIgreja.Text + '''');
Open;
end;
if DM.QryConsulta.FieldByName('CODIGO').AsString <> '' Then
begin
 Application.MessageBox('Igreja já cadastrada', 'ESICON', 16);
 DBEdit2Codigo.SetFocus;
end;

procedure TFrmCadCongregacao.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_F12 Then
  begin
   DM.QryCongreg.Cancel;
   FrmCadCongregacao.Close;
  end;
end;

Estou querendo evitar a consulta do DBEdit2CodigoExit.

Obrigado

Charlles Ferdinand


[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

<*> 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

 

RES: [delphi-br] Abrir MDIForm já criado

[Charlles Ferdinand]

no botão que chama a aplicação coloque desta forma

if Form = Nil Then
Application.CreatForm(Tform, Form);

no Close do do form coloque

Action := caFree;
Form := Nil;

se tiver um botão para chamar o fechamento coloque

form.close;


Veja se funciona.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Charlles Ferdinand
Enviada em: segunda-feira, 18 de abril de 2005 13:51
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Abrir MDIForm já criado



Quando fechar o form tente com o seguinte comando.
 Action := caFree;
 form.close;



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de moacirponti
Enviada em: segunda-feira, 18 de abril de 2005 13:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir MDIForm já criado




Olá.

   Estou desenvolvendo uma aplicação com forms no estilo MDI. Todos
os MDI deixo em Available Forms (e não em Auto-create). Quando tenho
de abrir um form, geralmente faço assim:

  // Início do código
   try
  fmForm.Show;
   except
  fmForm:= TfmForm.Create(Application);
  try
 fmForm.Show;
  except
 ShowMessage('Formulário não foi criado');
 Abort;
  end;
   end;
  // Fim do código


  Mas acho ruim porque toda vez ele gera um erro para depois criar o
form. Tem alguma forma de saber se já foi criado e apenas exibi-lo?
  Já tentei usar um (if fmForm <> nil), funciona bem da primeira vez
(ele percebe que é nil e cria o form), mas quando fecho e abro o
mesmo formulário, ele dá a mensagem: "Abstract Error" ou um Access
Violation.

  Obrigado,

  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] 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










-- 
<<<<< 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

 

RES: [delphi-br] Abrir MDIForm já criado

[Charlles Ferdinand]

Quando fechar o form tente com o seguinte comando.
 Action := caFree;
 form.close;



-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de moacirponti
Enviada em: segunda-feira, 18 de abril de 2005 13:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir MDIForm já criado




Olá.

   Estou desenvolvendo uma aplicação com forms no estilo MDI. Todos
os MDI deixo em Available Forms (e não em Auto-create). Quando tenho
de abrir um form, geralmente faço assim:

  // Início do código
   try
  fmForm.Show;
   except
  fmForm:= TfmForm.Create(Application);
  try
 fmForm.Show;
  except
 ShowMessage('Formulário não foi criado');
 Abort;
  end;
   end;
  // Fim do código


  Mas acho ruim porque toda vez ele gera um erro para depois criar o
form. Tem alguma forma de saber se já foi criado e apenas exibi-lo?
  Já tentei usar um (if fmForm <> nil), funciona bem da primeira vez
(ele percebe que é nil e cria o form), mas quando fecho e abro o
mesmo formulário, ele dá a mensagem: "Abstract Error" ou um Access
Violation.

  Obrigado,

  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] 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

<*> 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] DBNavegator Personalizado

[Charlles Ferdinand]

Pessoal, Bom Dia,

Estou presisando de uma ajuda de vcs, pois estou querendo implementar uma
rotina no meu projeto.

É o seguinte, coloquei 4 EspeedButton para controlar o posicionamento na
tabela, como acontece no dbnavegator (primeiro, anterior, proximo e último),
mas estou querendo fazer uma verificação.

TfrmDependentes.click(Sender...);

If Dm.QryDependentes.Last Then
SpeedButtonProximo.Enabled := DataSourceControle.State In [dsinactive];

Resumo estou querendo que ao se clicar no speed próximo, ele corra uma
posição dentro da tabela e verifique se é o ultimo registro, se for
(verdadeiro) então speedproximo e speedultimo fique inativo, como funciona o
dbnavegator.

Atenciosamente
Charlles Ferdinand
Analista Contábil


[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

<*> 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

 

RES: [delphi-br] DBLookupComboBox recebe resultado de sql

[Charlles Ferdinand]

Pessoal ja consegui resolver o problema, agradeço desde ja a atenção.

Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


-Mensagem original-
De: Charlles Ferdinand [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 31 de março de 2005 13:10
Para: Delphi-Br
Assunto: [delphi-br] DBLookupComboBox recebe resultado de sql



Pessoal, bom dia, to precisando de uma ajuda de vcs,
como faço para jogar numa dblookupcombobox o resultado de uma query?

vou explicar,

tenho 3 tabelas; igreja, congregação e membros.

TBIGREJATBCONGREGACAO
MEMBROS
CODIGO "PK"   CODIGO_CONGREG "PK"
CODIGO_IGREJA"PK"
NOMECODIGO_IGREJA"FK"
CODIGO_CONGREG  "PK"
NOME_CONGREG
CODIGO_MEMBRO"PK"

Então acontece que quando quero cadstrar um determinado membro, informo qual
a igreja a que ele pertence, e numa outra dbedit informo qual a congregação
dele, mas tava querendo levar somente as congregações cadastradas para
aquela determinada igreja.

Exemplo
IGREJA CONGREGACAO
1)IGREJA ASSEMBLEIA   1) MATRIZ ASSEMBLEIA
1)IGREJA ASSEMBLEIA   2) CENTRO DA CIDADE
1)IGREJA ASSEMBLEIA   3) INTERIOR DA CIDADE
2)IGREJA BATISTA1) MATRIZ
2)IGREJA BATISTA2) CIDADE GRANDE
2)IGREJA BATISTA3) CIDADE PEQUENA

O que pretendo levar para a dblookupcombobox da congregação atravas de uma
sql, do dbedit_igreja.OnExit
Se a dbeditigreja = 1 então dblookup recebe:
IGREJA  CONGREGAÇÃO
MEMBRO
11MATRIZ
1) João
12CENTRO DA CIDADE
2) Francisco
13 INTERIOR DA
CIDADE  3) João

Se a dbeditigreja = 2 então dblookup recebe:
IGREJA  CONGREGAÇÃO
MEMBRO
21 MATRIZ  BATISTA
1) ANA
22 CIDADE GRANDE
2) FERNANDA
2    3 CIDADE PEQUENA
3) MARIA




Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


[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










-- 
<<<<< 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

 

[delphi-br] DBLookupComboBox recebe resultado de sql

[Charlles Ferdinand]

Pessoal, bom dia, to precisando de uma ajuda de vcs,
como faço para jogar numa dblookupcombobox o resultado de uma query?

vou explicar,

tenho 3 tabelas; igreja, congregação e membros.

TBIGREJATBCONGREGACAO
MEMBROS
CODIGO "PK"   CODIGO_CONGREG "PK"
CODIGO_IGREJA"PK"
NOMECODIGO_IGREJA"FK"
CODIGO_CONGREG  "PK"
NOME_CONGREG
CODIGO_MEMBRO"PK"

Então acontece que quando quero cadstrar um determinado membro, informo qual
a igreja a que ele pertence, e numa outra dbedit informo qual a congregação
dele, mas tava querendo levar somente as congregações cadastradas para
aquela determinada igreja.

Exemplo
IGREJA CONGREGACAO
1)IGREJA ASSEMBLEIA   1) MATRIZ ASSEMBLEIA
1)IGREJA ASSEMBLEIA   2) CENTRO DA CIDADE
1)IGREJA ASSEMBLEIA   3) INTERIOR DA CIDADE
2)IGREJA BATISTA1) MATRIZ
2)IGREJA BATISTA2) CIDADE GRANDE
2)IGREJA BATISTA3) CIDADE PEQUENA

O que pretendo levar para a dblookupcombobox da congregação atravas de uma
sql, do dbedit_igreja.OnExit
Se a dbeditigreja = 1 então dblookup recebe:
IGREJA  CONGREGAÇÃO
MEMBRO
11MATRIZ
1) João
12CENTRO DA CIDADE
2) Francisco
13 INTERIOR DA
CIDADE  3) João

Se a dbeditigreja = 2 então dblookup recebe:
IGREJA  CONGREGAÇÃO
MEMBRO
21 MATRIZ  BATISTA
1) ANA
22 CIDADE GRANDE
2) FERNANDA
2    3 CIDADE PEQUENA
3) MARIA




Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


[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

<*> 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

 

RES: [delphi-br] Validação de E-mail

[Charlles Ferdinand]

Funciona perfeitamente. muito legal

Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


-Mensagem original-
De: Romario (Listas) [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 16 de março de 2005 13:10
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Validação de E-mail



==
Eu perguntei ao nosso amigo GOOGLE e veja o que ele respondeu:
==

Validando formato de e-mail:


Primeiramente vc deverá ter num form: Um Edit (ou DBEdit), Um Button e Um
Label.

Antes de implementation coloque:

Const
   msg1 = 'Caractere(s) inválido(s) no início do e-mail.';
   msg2 = 'Símbolo @ não foi encontrado.';
   msg3 = 'Excesso do símbolo @.';
   msg4 = 'Caractere(s) inválido(s) antes do símbolo @.';
   msg5 = 'Caractere(s) inválido(s) depois do símbolo @.';
   msg6 = 'Agrupamento de caractere(s) inválido(s) a esqueda do @.';
   msg7 = 'Não existe ponto(s) digitado(s).';
   msg8 = 'Ponto encontrado no final do e-mail.';
   msg9 = 'Ausência de caractere(s) após o último ponto.';
   msg10 = 'Excesso de ponto(s) a direita do @.';
   msg11 = 'Ponto(s) disposto(s) de forma errada após o @.';
   msg12 = 'Caractere(s) inválido(s) antes do ponto.';
   msg13 = 'Caractere(s) inválido(s) depois do ponto.';

var
   Form1: TForm1; { <--- Nome do meu formulário }
   vet_valido: array [0..35] of string = ('0','1','2','3','4','5','6','7',
'8','9','a','b','c','d','e','f', 'g','h','i','j','k','l','m','n',
'o','p','q','r','s','t','u','v', 'w','x','y','z');
Depois de implementation {$R *.DFM} coloque a seguinte função:

function func_VerifEmail(email: string): boolean;
var
   i, j, tam_email, simb_arroba, simb_arroba2, qtd_arroba, qtd_pontos,
   qtd_pontos_esq, qtd_pontos_dir, posicao, posicao2, ponto, ponto2:
integer;
   vet_email: array [0..49] of string; //50 posições, capacidade do Edit
   msg: string;
begin
   Nesta função (func_VerifEmail) é utilizada a função Copy, exemplo:
   Copy(s,i,t) significa trecho de s que começa em i com tamanho t}

   qtd_pontos:= 0; qtd_pontos_esq:= 0; qtd_pontos_dir:= 0; qtd_arroba:= 0;
   posicao:=0; posicao2:=0; simb_arroba:=0; simb_arroba2:=0; ponto:= 0;
   ponto2:= 0; msg:='';
   Result:= True;

   //Verificando parte inicial do E-mail
   tam_email:= Length(email);
   for i:= 0 to tam_email-1 do
   begin
   vet_email[i]:= Copy(email,i+1,1);
   if vet_email[i] = '@' then
   begin
   Inc(qtd_arroba);
   posicao:= i;
   end;
   end;

   if ((vet_email[0] = '@') or (vet_email[0] = '.') or (vet_email[0] = '-'))
then
   begin
   Result:= False;
   msg:= msg1;
   end;

   //Verificando se tem o símbolo @ e quantos tem
   if qtd_arroba < 1 then
   begin
   Result:= False;
   msg:= msg2;
   end
   else if qtd_arroba > 1 then
   begin
   Result:= False;
   msg:= msg3 + ' Encontrado(s): '+IntToStr(qtd_arroba)+'.';
   end
   else
   //Verificando o que vem antes e depois do símbolo @
   begin
   for i:=0 to 35 do
   begin
   if vet_email[posicao-1] <> vet_valido[i] then Inc(simb_arroba)
   else Dec(simb_arroba);
   if vet_email[posicao+1] <> vet_valido[i] then Inc(simb_arroba2)
   else Dec(simb_arroba2);
   end;
   if simb_arroba = 36 then
   begin
   //Antes do arroba há um símbolo desconhecido do vetor válido
   Result:= False;
   msg:= msg4;
   end
   else if simb_arroba2 = 36 then
   begin
   //Depois do arroba há um símbolo desconhecido do vetor válido
   Result:= False;
   msg:= msg5;
   end
   end;

   //Verificando se há pontos e quantos, e Verificando parte final do e-mail
   for j:=0 to tam_email-1 do
   if vet_email[j] = '-' then
   if ((vet_email[j-1] = '.') or (vet_email[j-1] = '-')) then
   begin
   Result:= False;
   msg:= msg6;
   end;
   for i:=0 to tam_email-1 do
   if vet_email[i] = '.' then
   begin
   Inc(qtd_pontos);
   posicao2:= i+1;
   if i > posicao then Inc(qtd_pontos_dir)
   else Inc(qtd_pontos_esq);
   if ((vet_email[i-1] = '.') or (vet_email[i-1] = '-')) then
   begin
   Result:= False;
   msg:= msg6;
   end;
   end;
   if qtd_pontos < 1 then
   begin
   Result:= False;
   msg:= msg7;
   end
   else if vet_email[tam_email-1] = '.' then
   begin
   Result:= False;
   msg:= msg8;
   end
   else if vet_email[tam_email-2] = '.' then
   begin
   Result:= False;
  

RES: [delphi-br] Utilidades no IRPF 2005

[Charlles Ferdinand]

Peguei qual é da parada da tabela de cep, acontece que ali tem
CodigoMunicipio|CepInicial|CepFinal.

Exemplo, pegue a tabela Municipio, procure por algum lugar e veja o codigo
que traz ao lado do municipio, procure pelo mesmo código de municipio dentro
da tabela cep, ai vc vai ver o cep inicial e final do municipio.


Vou pegar o municipio de Rio das Ostras.
Tbmunicipio = 2921
tbcep = 2921288928890993

Quebrando  isso

tbcep = 2921 288928890993
   Munic Cep_InicCep_Final


Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


-Mensagem original-
De: Marcio Carneiro [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 16 de março de 2005 02:07
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Utilidades no IRPF 2005



Olá, amigos

Olhando os arquivos do programa da Receita (IRPF 2005), achei uns arquivos
interessantes que podem servir para algum de nós, como a relação de cidades
do Brasil e também de Cep. Eles estão no formato txt. O das cidades é fácil
entender, o de Cep não consegui entender a lógica. Observei também que os
dados dos contribuintes são gravados num arquivo.xml, o que considero
interessante pois daqui a pouco todos nós teremos que trabalhar neste
arquivo. Alguém sabe mais deste tipo de arquivo?
Um grande abraço
Marcio

[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










-- 
<<<<< 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

 

RES: [delphi-br] Limpar LABEL´s

[Charlles Ferdinand]

Amigo pode colocar da seguinte maneira:

For I := 0 to Self.ComponentCount - 1 do
 if Self.Components[I] is TLabel Then
 TLabel(Self.Components[I]).Caption := '  ';

Declare I como variavel, ou uma outra coisa.



Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


-Mensagem original-
De: DelphiStar [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 4 de março de 2005 13:41
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Limpar LABEL´s



Olá Pessoal
Tenho em meu formulário muitos Label´s
e gostaria de saber se algum de vocês sabe como fazer
para limpa-los, todos ao mesmo tempo
sem ter que ficar escrevendo:
lblFrete.Caption:='';
lblDiesel.Caption:='';
lblDinheito.Caption:='';
etc etc etc
Agradeço a Ajuda
Abraço
Ademir


[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










-- 
<<<<< 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

 

RES: [delphi-br] MessageDlg com "Não" como default

[Charlles Ferdinand]

Osmar um tempo atras um colega me passou uma rotina que utilizo em todas as
minhas aplicações e não tenho do que reclamar

Sobre messagebox:

Valor 1
0   Exibe somente o botão OK;
1   Exibe os botões OK e Cancelar;
2   Exibe os botões Abortar, Repetir e Ignorar;
3   Exibe os botões Sim, Não e Cancelar;
4   Exibe os botões Sim e Não;
5   Exibe os botões Repetir e Cancelar;

Valor 2
16  Exibe o ícone Mensagem Crítica;
32  Exibe o ícone Consulta de Aviso;
48  Exibe o ícone Mensagem de Aviso;
64  Exibe o ícone Mensagem de informação;

Botão

0 - o primeiro botão é o padrão;
256 - o segundo botão é o padrão;
512 - o terceiro  botão é o padrão;
768 - o quartobotão é o padrão;

Variavel de Retorno

1 - Botão Ok foi pressionado;
2 - Botão Cancelar foi pressionado;
3 - Botão Abortar foi pressionado;
4 - Botão Repetir foi pressionado;
5 - Botão Ignorar foi pressionado;
6 - Botão Sim foi pressionado;
7 - Botão Não foi pressionado;

Se vc deseja cirar um quadro de dialogo contendo os botões Sim e Não e o
icone de interrogação e com o primeiro botão como padrão o valor do
argumento buttons seria: 4 + 32 + 0 = 36;

Var := Application.MessageBox('Deseja realmente sair do sistema?',
'Finalizar', 36);

Até Mais.



Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


-Mensagem original-
De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 4 de março de 2005 08:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] MessageDlg com "Não" como default





Queria fazer um MessageDlg com o botão "No" vindo com o foco.
Vi no help do Delphi:

MessageDlg('mensagem olá', mtWarning, [mbYes,mbNo], 0, mbNo)


Mas dá erro dizendo que têm parâmetros demais na função...






-



-- 
<<<<< 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

 

[delphi-br] ENC: Problemas com VK_Escape

[Charlles Ferdinand]

-Mensagem original-
De: Charlles Ferdinand [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 2 de março de 2005 15:56
Para: Delphi-Br
Assunto: Problemas com VK_Escape


Pessoal, tenho minhas aplicações em MDI, mas to tendo uns problemas com uma
rotina, em alguns form quando teclo ESC, o form fecha, mas em alguns o form
não esta fechando, não sei mais onde procurar o problema.

Coloquei a propriedade, do form = KeyPreview = True;

procedure TFrmMoedas.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If key = Vk_Escape Then
FrmMoedas.Close;

Obrigado a todos pela cooperação.


Charlles Ferdinand
Analista Contábil
Tel: (22) 2622-9739
msn: [EMAIL PROTECTED]


[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

<*> 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] Teste não Abram

[Charlles Ferdinand]

Analista 

[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

<*> 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] como fazer esta query?

[Charlles Ferdinand]

Pessoal, estou querendo, fazer uma consulta mas não estou conseguindo fazer,
tenho o seguinte, um radiogroup que habilita para uma consulta, ou por
fornecedor, ou por data, mas como tenho que separar tambem por local,
coloquei um outro radiogoup, para incrementar esta consulta, então a
consulta teria que ficar da seguinte forma.

no radiogroup1, seleciona a area (Contas a Pagar ou Contas a Receber), e
depois no segundo radioGroup, digo qual o tipo de consulta quero dentro das
area.(Fornecedor ou cliente, Data ou tipo de documento).
exemplo.

no 1 RGroup seleciono todos os documentos da area do Contas a Pagar,  e em
seguinda digo que quero que gere a consulta por data.


Obrigado pela ajuda de todos.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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] Status Bar - Mensagem passando

[Charlles Ferdinand]

Pessoal, vcs sabem como posso fazer para que um texto fique passando na
statusbar, como por exemplo no caso de letreiros.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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] Problemas com MainMenu

[Charlles Ferdinand]

Pessoal, estou com um problema sem meio pé nem cabeça.

Estou acessando um form para alterar um registro, pelo MainMenu, até aí tudo
bem, mas quando vou confirmar a alteração ta dando a seguinte mensagem.
"Access Violation at Address 004EFD48 in module 'Project_Protocolo.exe' Read
of Address'.

Agora quando acesso o mesmo form de uma outra tela, que fiz um botão para
abrir o form de alteração, faço a alteração perfeitamente.

Alguem tem ideia do que pode ser.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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] E-mail Teste Não Abram

[Charlles Ferdinand]

Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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

 

RES: [delphi-br] DBNavigator??

[Charlles Ferdinand]

crie um dbnavegator personalizado, com botões e insira o codigo em cada um
deles, é mais facil.

Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739

-Mensagem original-
De: Joubert Rinaldi [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 28 de outubro de 2004 19:09
Para: Delphi 4; Delphi 3; Delphi 2; Delphi 1
Assunto: [delphi-br] DBNavigator??


Amigos,

Se colocar os codigos no evento OnClick ou BeforeAction do DBNavigator tipo:

If Button = nbInsert Then
ou
If Button = nbDelete

Ele executa o default do botão + o codigo q coloquei, tem como fazer ele
executar somente o codigo "personalizado"?

[]'s

--
MSN: [EMAIL PROTECTED]


--
<<<<< 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]



  Yahoo! Grupos, um serviço oferecido por:









Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.



[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

<*> 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

 

RES: [delphi-br] Descrever em 2 linhas

[Charlles Ferdinand]

Obrigado pela ajuda miguel, mas será que teria outra forma, pois a
propriedade AutoStretch do componente esta em True, e continua descrevendo o
material em uma só linha, e como a descrição é muito grande não cabe dentro
das margens do formulario
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739

-Mensagem original-
De: infomark_miguel [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 27 de outubro de 2004 17:03
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Descrever em 2 linhas



Charles

Alterer a propriedade AutoStretch do componente TQRDBText que esta mostrando
o campo da descrição para True.

QRDBText1.AutoStretch:=True;

___

Miguel Franco Galego
I n f o m a r k   S o l u ç õ e s
[EMAIL PROTECTED]
icq 332006521
___


  - Original Message -
  From: Charlles Ferdinand
  To: Delphi-Br
  Sent: Wednesday, October 27, 2004 2:00 PM
  Subject: [delphi-br] Descrever em 2 linhas


  Pessoal tenho um relatorio no Qreport, mas acontece que um dos campos é
para
  trazer a descrição de um bem patrimonial, só que esta descrição é muito
  grande e teria que continuar numa segunda linha, como acontece por exemplo
  no excel, tem aquele retorno automatico de texto, e o que não cabe na
mesma
  linha joga para linha de baixo.

  Alguem sabe como se tem jeito de fazer isto?

  Abraços.


  Charlles Ferdinand
  Analista Contábil
  Tel.: (22) 2622-9739


  [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]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.





--


  Incoming mail is certified Virus Free.
  Checked by AVG Anti-Virus (http://www.grisoft.com).
  Version: 7.0.269 / Virus Database: 264.12.3 - Release Date: 25/10/04

  --

Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.269 / Virus Database: 264.12.3 - Release Date: 25/10/04


[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]



  Yahoo! Grupos, um serviço oferecido por:









Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.



[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

<*> 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

 

RES: [delphi-br] Descrever em 2 linhas

[Charlles Ferdinand]

Não consegui adptar para colocar isto em um relatório, poderia me explicar
melhor?

Agradeço desde ja a atenção dispensada.

Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739

-Mensagem original-
De: Rafael Stoever [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 27 de outubro de 2004 15:13
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Descrever em 2 linhas


if (lenght(campo) > limite)
  primeiralinha := copy(campo,1,limite);
  segundalinha := copy(campo,limite,(lenght(campo))); // claro.. aqui na
segunda linha podes tratar melhor mas seria +/- isso.
end;

.Rafael Stoever .Desenvolvimento
- Original Message -
From: "Charlles Ferdinand" <[EMAIL PROTECTED]>
To: "Delphi-Br" <[EMAIL PROTECTED]>
Sent: Wednesday, October 27, 2004 1:00 PM
Subject: [delphi-br] Descrever em 2 linhas



Pessoal tenho um relatorio no Qreport, mas acontece que um dos campos é para
trazer a descrição de um bem patrimonial, só que esta descrição é muito
grande e teria que continuar numa segunda linha, como acontece por exemplo
no excel, tem aquele retorno automatico de texto, e o que não cabe na mesma
linha joga para linha de baixo.

Alguem sabe como se tem jeito de fazer isto?

Abraços.


Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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











--
<<<<< 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]



  Yahoo! Grupos, um serviço oferecido por:









Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.



[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

<*> 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] Descrever em 2 linhas

[Charlles Ferdinand]

Pessoal tenho um relatorio no Qreport, mas acontece que um dos campos é para
trazer a descrição de um bem patrimonial, só que esta descrição é muito
grande e teria que continuar numa segunda linha, como acontece por exemplo
no excel, tem aquele retorno automatico de texto, e o que não cabe na mesma
linha joga para linha de baixo.

Alguem sabe como se tem jeito de fazer isto?

Abraços.


Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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] Quick Report

[Charlles Ferdinand]

Pessoal, estou com dificuldades, criei um relatório mas acontece que esta
faltando alguma coisa, quando coloco pra gerar o relatorio simplesmente ele
não abra, ou esta ficando por traz do principal, mas não consigo visualizar.

procedure TFrmCadBem.Button3ImprimirClick(Sender: TObject);
var
BemInicial, BemFinal:string;
begin
BemInicial:= InputBox('Código Inicial Para Impressão', 'Entre com o código
inicial para imprimir','');
BemFinal  := InputBox('Código Final Para Impressão', 'Entre com o código
final para imprimir','');
with DTMod.QryConsulta do begin
SQL.Clear;
SQL.Add('Select * From CadBemPatrimonial');
SQL.Add('Where codigo >=' + BemInicial);
SQL.Add('And codigo <=' + BemFinal);
DTMod.QryConsulta.Open;
end;

If FrmRelCapaLote = nil Then
Application.CreateForm(TFrmRelCapaLote, FrmRelCapaLote);
FrmRelCapaLote.QuickRep1RelCapaLote.Preview;

end;

Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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] PageControl

[Charlles Ferdinand]

Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
PageControl, ativada, porque esta pagecontrol tem 2 abas, e como o cadastro
termina na segunda aba, quando o sistema abre, esta sempre com a 2 aba
ativa.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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

 

RES: [delphi-br] Resumo 5139

[Charlles Ferdinand]

Marcelo esta dando a seguinte mensagem quando sai do edit "1.230.25 is not a
valid floating point value"



Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739

-Mensagem original-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 22 de outubro de 2004 14:16
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Resumo 5139



Existem 7 mensagens sobre este tópico.

Tópicos contidos neste resumo:

  1. RES: Help em Arrays... à 4 anos que estou neste impasse e não saio
!
   De: "Rubem Rocha" <[EMAIL PROTECTED]>
  2. Cached update com DbExpress
   De: "Alisson" <[EMAIL PROTECTED]>
  3. Delphi x Firebird HELP
   De: "Mario Scavoni" <[EMAIL PROTECTED]>
  4. Re: Formatar numa Edit
   De: "Marcelo Silva" <[EMAIL PROTECTED]>
  5. Re: único login para duas conexões db2 e sql ?
   De: "Vitor Luiz Redes" <[EMAIL PROTECTED]>
  6. Acentuação em Pesquisa!!!
   De: "Marcello" <[EMAIL PROTECTED]>
  7. Re: Formatar numa Edit
   De: "Marcelo Silva" <[EMAIL PROTECTED]>





 Mensagem: 1
 Data: Fri, 22 Oct 2004 11:13:32 -0400
   De: "Rubem Rocha" <[EMAIL PROTECTED]>
  Assunto: RES: Help em Arrays... à 4 anos que estou neste impasse e não
saio !

Use Clientdatasets em memória. Informe-se a respeito.
[]s

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 22 de outubro de 2004 10:10
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !



É que preciso fazer alguns algorítimos de estatística e com alta performance
que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto
utilizando Tabelas em BD é a Morte, pois eu preciso dos resultados
calculados em um curto espaço de tempo. Por isto utilizo Arrays que é bem
mais rápido !!! Mas o ponto negativo é que consome Mem. Ram à "Beça". Tenho
que achar uma maneira de trabalhar com um Range Maior. [ ]'s

- Original Message -
From: "Felippe Nagato" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 22, 2004 2:51 AM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !


>
> O que o amigo quis dizer eh que funciona, porém quando passa de
> 200x200,
dá
> pau.
> Nao sei dizer tb o motivo.
> Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não me
> recordo de qualquer problema na criação dos mesmos no Delphi 5. Mas
> nunca cheguei a criar um array tão grande quanto ao seu.
>
> - Original Message -
> From: "Julio Cesar" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, October 21, 2004 6:19 PM
> Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
> e não saio !
>
>
>
> nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez
> eu
fiz
> um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase
> certeza
q
> funcione, pq vi algo parecido no delphi 3
>
>
>
> --
> <<<<< 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: 2
 Data: Fri, 22 Oct 2004 12:16:03 -0200
   De: "Alisson" <[EMAIL PROTECTED]>
  Assunto: Cached update com DbExpress

É possível? Como fazer se não existe a propriedade CachedUpdate nos
componentes?






 Mensagem: 3
 Data: Fri, 22 Oct 2004 12:19:47 -0200
   De: "Mario Scavoni" <[EMAIL PROTECTED]>
  Assunto: Delphi x Firebird HELP

Companheiros,

Como copiar os dados de um campo existente para um outro
campo, este último criado dinamicamente, de uma mesma tabela usando query ?

É possivel, via código, alterar um campo de 

[delphi-br] Formatar numa Edit

[Charlles Ferdinand]

Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
abaixo
1230,25 ==> 1.230,25
Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
não esta adiantando, sempre da uma mensagem de que o valor não é um valor
inteiro.

Como posso trabalhar com isto?

Abrações a turma.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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]

[Charlles Ferdinand]

Pessoal, estou querendo formatar a exebição numa edit, os numeros, como
abaixo
1230,25 ==> 1.230,25
Como posso fazer, ja tentei por FormatFloat, ja coloquei um comp RxLib, mas
não esta adiantando, sempre da uma mensagem de que o valor não é um valor
inteiro.

Como posso trabalhar com isto?

Abrações a turma.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[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

<*> 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