Re: RES: [delphi-br] Instalando componente
Obrigada, Ricardo, consegui. Está desculpado... rs []'s Sheila - Original Message - From: Ricardo To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 18, 2006 7:52 PM Subject: RES: RES: [delphi-br] Instalando componente Olá, desculpe a demora (e que demora heim), mas é simples para você fazer uma package, não sei qual a versão sua do Delphi, mas enfim, menu file, opção new, localize nos wizards um item chamado package, adicione nele a unit que você criou, clique com o botão da direita nela e peça para instalar, prontinho, agora seu delphi terá essa package, salve o arquivo no formato dpk, no outro micro basta copiar esse arquivo, abri-lo no delphi e mandar instalar novamente. Abraços Ricardo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de sp porto Enviada em: segunda-feira, 15 de maio de 2006 18:09 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] Instalando componente Boa tarde, Ricardo. Poderia me explicar (ou se tiver algum material) como faço para criar esta package ? Grata. Sheila From: Ricardo [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: RES: [delphi-br] Instalando componente Date: Mon, 15 May 2006 10:49:09 -0300 Olá, o certo seria você criar uma package e colocar essa unit nela, instalar a package e sempre que você precisar recompilar seu projeto em outra máquina você tem que necessariamente instalar essa package, que na realidade é o arquivo bpl. Qualquer dúvida entre em contato. Ricardo _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sheila Enviada em: segunda-feira, 15 de maio de 2006 00:34 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Instalando componente Bom dia, pessoal. Preciso de uma orientação pois nunca fiz isso. Outro dia baixei um componente para testar em meu sistema, fiz a instalação e no meu pc deu certo, mas quando copiei o fonte do meu sistema para desenvolver em outra máquina, esse componente não foi encontrado. Então verifiquei no help que diz o seguinte: Install the source file BACKUP.PAS into your favorite design time package and compile it. Não sei se fiz certo,pois na minha máquina funcionou, mas ficou a dúvida: como instalo o arquivo dentro do design time package? Alguém poderia me explicar... passo a passo... Grata. Sheila [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.ard.yahoo.com/SIG=12f59u244/M=496024.8569336.9361964.1588051/D=b r clubs/S=2137111264:HM/Y=BR/EXP=1147671408/A=3636955/R=2/id=noscript/SIG=118 9 ptjd1/*http:/br.esportes.yahoo.com/copa2006/ http://br.i1.yimg.com/br.yimg.com/i/br/ads7/0505_lrec_copa_promo_contagem_ s ky.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do http://br.yahoo.com/info/utos.html Yahoo!. [As partes desta mensagem que não continham texto foram removidas] _ Ganhe tempo encontrando o arquivo ou e-mail que você precisa com Windows Desktop Search. Instale agora em http://desktop.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.ard.yahoo.com/SIG=12f3icns6/M=396559.7942981.9411631.2369893/D=br clubs/S=2137111264:HM/Y=BR/EXP=1147734652/A=3672775/R=2/id=noscript/SIG=154s 706bs/*http:/lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDU RL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26 l%3dpt%26s%3ddhs http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dime nsion5150.gif _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- 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
[delphi-br] Instalando componente
Bom dia, pessoal. Preciso de uma orientação pois nunca fiz isso. Outro dia baixei um componente para testar em meu sistema, fiz a instalação e no meu pc deu certo, mas quando copiei o fonte do meu sistema para desenvolver em outra máquina, esse componente não foi encontrado. Então verifiquei no help que diz o seguinte: Install the source file BACKUP.PAS into your favorite design time package and compile it. Não sei se fiz certo,pois na minha máquina funcionou, mas ficou a dúvida: como instalo o arquivo dentro do design time package? Alguém poderia me explicar... passo a passo... Grata. Sheila [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
[delphi-br] capturar informações de um MCP-52
Boa noite, pessoal. Gostaria de desenvolver um sistema usando ele mas não consegui obter informações sobre como enviar/capturar informações/parametros dele. Alguém aqui já trabalhou com esse equipamento ou sabe me dizer o caminho das pedras? Agradeço. Sheila [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] Coletor de Dados MCP-52
Boa noite, pessoal. Gostaria de desenvolver um sistema usando ele mas não consegui obter informações sobre como enviar/capturar informações/parametros dele. Alguém aqui já trabalhou com esse equipamento ou sabe me dizer o caminho das pedras? Agradeço. Sheila [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] OFF TOPIC
Ronaldo, se vc não tem os fontes do sistema realmente vai ficar difícil, se pelo menos souber a estrutura dos arquivos, será possível, já que a estrutura normalmente fica dentro dos fontes. Converse com o cliente e veja com ele se realmente não há nenhum documento deixado pelo programador. Sheila - Original Message - From: Ronaldo Sousa To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 31, 2005 12:32 AM Subject: Re: [delphi-br] OFF TOPIC Eu não o tenho... ronperso From: Sergio Alexandre Georg Martins [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] OFF TOPIC Date: Sun, 31 Jul 2005 00:23:37 -0300 Ronperso, Você tem os fontes do sistema em Cobol? Sergio - Original Message - From: Ronaldo Sousa [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, July 31, 2005 12:18 AM Subject: [delphi-br] OFF TOPIC Boa noite a todos Desculpe o off é que estou com um problema serio, um cliente tem um sistema em cobol (arquivos .dat) e o programador sumiu do mapa, agora preciso migrar para o Delphi, alguem pode me ajundar, preciso disso com urgencia. Favor entrar em contato em ptv Ronperso [EMAIL PROTECTED] _ MSN Messenger: converse com os seus amigos online. http://messenger.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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos _ 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] ou [EMAIL PROTECTED] -- 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
Re: [delphi-br] Apagar campo do tipo hora em um DBGrid
Olá, Cristina.
Geralmente os campos do tipo Data/hora só aceitam NULL ou EMPTY. Tente um
destes dois ao invés de passar ' '
[]'s
Sheila
- Original Message -
From: Cristina
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 27, 2005 11:14 AM
Subject: [delphi-br] Apagar campo do tipo hora em um DBGrid
Oi Pessoal,
Por favor preciso da ajuda de vocês.
Tenho uma aplicação para controle de ponto eletrônico, nesta aplicação há
um formulário para a manutenção dos cartões do ponto eletrônico, neste
formulário tem um DBGrid com todos as marcações do funcionário X em uma
determinada período Y.
O administrador do sistema pode precisar apagar alguma marcação efetuada,
devido por exemplo a uma marcação efetuada erroneamente pelo funcionário, só
que ao apagar a hora a aparece a mensagem de hora inválida, gostaria de saber
se tem como contornar este problema.
No evento OnSetText do campo da minha query estou colocando o código
abaixo, mas não está funcionando.
procedure frmManCartao.qryManCartaoHora2SetText(Sender: TField;const
Text: String);
begin
if Text = ' : ' then
(Sender as TField).AsString := ''
else
try
(Sender as TField).AsString := Text;
except
MessageDlg('Hora Inválida!',mtError,[mbOk],0);
end;
end;
Estou utilizando Access 97, Delphi 5 e o campo é do tipo DataHora
Atenciosamente
Cristina Orthmann da Silva
HACON Automação e Tecnologia Ltda
Rua Lauro Linhares 589 - Bairro Trindade
Florianópolis - SC - Brasil
CEP 88036-001
Fone/Fax: 55 48 333-0699
Site: http://www.hacon.com.br/
Email: [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
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
Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no código!!!! - Todos, Especial Sheila Dúvida de Splash e Format
Boa noite, André.
Ao invés de vc usar o FormatFloat() para valores de moeda use FormatCurr().
Quanto ao splash, outro dia apanhei um bocado pq precisava dar um splash antes
de exibir tela de login e a tela principal do programa.
Faz tempo que usei um progress bar em um projeto meu para fazer abertura de um
programa, não me lembro agora mas assim que lembrar te dou um toque, ok?
Só me lembro que tratei em outro arquivo e não no .DPR
Uma sugestão, só pra adiantar, veja se resolve o seu caso... (usei neste último
projeto meu)
..
Application.Initialize;
Application.ShowMainForm := false ; //= aqui é para esconder o formulário
// principal, no seu
caso, frmJuros
Application.CreateForm(TfrmJuros, frmJuros);
frmJuros.Hide;
Application.Run;
..
No evento OnHide do frmJuros:
..
if Application.FindComponent( 'frmSplash' ) = nil then
Application.CreateForm(TfrmSplash, frmSplash);
..
E no evento OnCreate do frmSplash:
..
// delimite o tempo da progressBar e
// depois que esgotar o tempo vc dá um show() no
// frmJuros e dá um close() no frmSplash
..
[]'s
Sheila
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 22, 2005 10:09 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código - Todos, Especial Sheila Dúvida de Splash e Format
Bom dia Sheila;
Desculpe-me não ter lhe respondido ontem, estava muito atarefado Em
relação ao código, por distração minha, estava colocando no lugar errado!
Consegui concertar o outro erro, o cálculo da taxa não estava saindo certo!!!
Era um detalhe simples e bobo!!! Veja só abaixo:
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada
ex: 10% é 10 / 100 + 1 = 1,1 (esse é o valor ao dia)
somatax := somatax * taxfinal; // aki tava somando!!! agora
vai multiplicar 1,1 * 1,1 * 1,1 * 1,1 até o tempo chevar ao final do tempo
! irgh!!! :-)
cont := cont + 1;
end;
result := somatax;
end;
Vc pode me ajudar em outra situação Ou alguém da lista! O problema é
o seguinte Coloquei uma Splash como abertura e um progressbar no mesmo. O
problema é que o compenente não está progredindo!!! Veja o código abaixo!!!
program Projeto_Calcular_Juros;
uses
Forms,
Main in 'Main.pas' {frmJuros},
clJuros in 'clJuros.pas',
USplash in 'USplash.pas' {frmSplash};
{$R *.res}
begin
Application.Initialize;
with TfrmSplash.Create(nil) do
try
ProgressBar1.Max := 100;
Show;
Update;
Application.Title := 'Projeto_Calcular_Juros';
ProgressBar1.StepBy(25); // AKI NÃO TÁ EXECUTANDO
Application.CreateForm(TfrmJuros, frmJuros);
ProgressBar1.StepBy(25); // NEM AKI !!
Application.CreateForm(TfrmSplash, frmSplash);
finally
Free;
end;
Application.Run;
end.
Pq não tá rolando? Como o programa é pequeno, a Splash inicializava muito
rápida, em tão fiz o seguinte no oncreate do frmJuros (form principal):
Sleep (5000);
frmJuros.Show;
Será que isso tá implicando no progress não funcionar?
Outra questão simples e boba é esta!
Tirei da Net esse código da net!
Lista.Add(' O juros para o período é de: R$ ' + formatfloat('##0.00', (X2))
+ ' reais' );
O problema é que os números estão aparecendo da segunte forma!!!
3,4588754545454e1
Alguém pode me dá uma dica!!!???
Um abraço a todos!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: terça-feira, 21 de junho de 2005 11:12
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Olá, André.
Deveria funcionar... o que vc fez
Pq fiz o teste aqui com o seu código e funcionou...
Qual erro que deu
[]'s
Sheila
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 20, 2005 8:32 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Sheila;
Não funcionou!!?? :-)
Help!!!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: domingo, 19 de junho de 2005 15:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
André,
faltou criar um objeto do tipo TStringList.
coloque
Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no código!!!!
Olá, André.
Deveria funcionar... o que vc fez
Pq fiz o teste aqui com o seu código e funcionou...
Qual erro que deu
[]'s
Sheila
- Original Message -
From: Andre de Souza Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Monday, June 20, 2005 8:32 AM
Subject: RES: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Sheila;
Não funcionou!!?? :-)
Help!!!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Sheila
Enviada em: domingo, 19 de junho de 2005 15:04
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
André,
faltou criar um objeto do tipo TStringList.
coloque :
lista := TstringList.Create;
antes de:
X1 := Capit * somatax;
[]'s
Sheila
- Original Message -
From: André Ferreira
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Sent: Sunday, June 19, 2005 2:08 PM
Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
código
Boa tarde a todos;
Estou fazendo um projeto para o meu professor da faculdade e estou
desesperado pois não sai mais nada do tico e teco aki! Tô pedindo
arrego
aos mais experientes dos grupos pois tô com a corda no pescoço
A questão é a seguinte: preciso construir um objeto juros que possua
três
propriedades, capital, tempo e taxa, e um método que calcule o juros
simples
desse capital
Instanciei o objeto Juros da seguinte forma:
unit clJuros;
interface
uses
Classes, Dialogs, SysUtils;
Type
TJuros = Class
Protected
tax : real;
capit: real;
temp : integer;
taxfinal : real;
somatax: real;
function CalculaTaxa: real;
public
constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo :
integer);
function CalculaJuros : TStringList;
end;
implementation
constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real;
tempo : integer);
begin
tax := taxa;
capit := capital;
temp := tempo;
taxfinal := taxafinal;
somatax :=somataxa;
end;
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa é calculada ex: 10% é 10 /
100
+ 1 = 1,1 (esse é o valor ao dia)
somatax := somatax + taxfinal; // depois ele é multiplicado por i, se for
10
dias ele vai multiplicar ex: 1,1 * 1,1 até chegar ao tempo final (10 dias)
cont := cont + 1; // não sei o que acontece aki !!! dá o seguinte erro
[Hint] clJuros.pas(42): Value assigned to 'cont' never used. Fala que não
o
cont não é usado!!! não sei como resolver!!!
end;
result := somatax;
end;
function TJuros.CalculaJuros : TStringList;
var
lista : TstringList;
X1, X2 : Real;
begin
X1 := Capit * somatax;
X2 := X1 - Capit;
Lista.Add(' O juros para o período é de: ' + floattostr(X2) + ' reais' );
//
aki o erro é este : [Warning] clJuros.pas(57): Variable 'lista' might not
have been initialized, A VARIÁVEL LISTA TALVEZ NÃO FOI INICIALIZADA!!!
result := Lista;
end;
end.
Como vcs podem perceber, o principal erro está n função calculataxa,
onde o
cont não é utilizado e na calculajuros, onde a variável não foi
inicializada!!!
No evento click do Botão coloquei o seguinte cpodigo!!!
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TfrmJuros = class(TForm)
pnJuros: TPanel;
StApresentacao: TStaticText;
lblCapital: TLabel;
lblTempo: TLabel;
lblTaxa: TLabel;
txtCapital: TEdit;
txtTempo: TEdit;
txtTaxa: TEdit;
btnCalcularJuros: TBitBtn;
mmoResultado: TMemo;
pnJuros2: TPanel;
Label1: TLabel;
procedure btnCalcularJurosClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmJuros: TfrmJuros;
implementation
uses clJuros;
{$R *.dfm}
procedure TfrmJuros.btnCalcularJurosClick(Sender: TObject);
var
ojuros, otaxa : TJuros;
taxa, capital, taxafinal, somataxa : real;
tempo : integer;
begin
mmoResultado.Clear;
taxa := strtofloat (txtCapital.text);
capital := strtofloat (txtCapital.text);
Tempo := strtoint (txtTempo.text);
otaxa := TJuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO
SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE
ojuros := Tjuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NÃO
SEI SE OS PARÂMETROS ESTÃO SENDO PASSADOS CORRETAMENTE
mmoResultado.Lines.AddStrings
Re: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no código!!!!
Andr,
faltou criar um objeto do tipo TStringList.
coloque :
lista := TstringList.Create;
antes de:
X1 := Capit * somatax;
[]'s
Sheila
- Original Message -
From: Andr Ferreira
To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Sent: Sunday, June 19, 2005 2:08 PM
Subject: [delphi-br] Classe em Delphi - Calcular Juros - Help Erro no
cdigo
Boa tarde a todos;
Estou fazendo um projeto para o meu professor da faculdade e estou
desesperado pois no sai mais nada do tico e teco aki! T pedindo arrego
aos mais experientes dos grupos pois t com a corda no pescoo
A questo a seguinte: preciso construir um objeto juros que possua trs
propriedades, capital, tempo e taxa, e um mtodo que calcule o juros simples
desse capital
Instanciei o objeto Juros da seguinte forma:
unit clJuros;
interface
uses
Classes, Dialogs, SysUtils;
Type
TJuros = Class
Protected
tax : real;
capit: real;
temp : integer;
taxfinal : real;
somatax: real;
function CalculaTaxa: real;
public
constructor Construtor (taxa, capital, taxafinal, somataxa: real; tempo :
integer);
function CalculaJuros : TStringList;
end;
implementation
constructor TJuros.Construtor(taxa , capital, taxafinal, somataxa : real;
tempo : integer);
begin
tax := taxa;
capit := capital;
temp := tempo;
taxfinal := taxafinal;
somatax :=somataxa;
end;
function TJuros.CalculaTaxa : real;
var
i, cont: integer;
somatax : real;
begin
somatax := 0;
for i:= 1 to temp do
begin
taxfinal := ((tax/100)+1) * i; // aqui a taxa calculada ex: 10% 10 / 100
+ 1 = 1,1 (esse o valor ao dia)
somatax := somatax + taxfinal; // depois ele multiplicado por i, se for 10
dias ele vai multiplicar ex: 1,1 * 1,1 at chegar ao tempo final (10 dias)
cont := cont + 1; // no sei o que acontece aki !!! d o seguinte erro
[Hint] clJuros.pas(42): Value assigned to 'cont' never used. Fala que no o
cont no usado!!! no sei como resolver!!!
end;
result := somatax;
end;
function TJuros.CalculaJuros : TStringList;
var
lista : TstringList;
X1, X2 : Real;
begin
X1 := Capit * somatax;
X2 := X1 - Capit;
Lista.Add(' O juros para o perodo de: ' + floattostr(X2) + ' reais' ); //
aki o erro este : [Warning] clJuros.pas(57): Variable 'lista' might not
have been initialized, A VARIVEL LISTA TALVEZ NO FOI INICIALIZADA!!!
result := Lista;
end;
end.
Como vcs podem perceber, o principal erro est n funo calculataxa, onde o
cont no utilizado e na calculajuros, onde a varivel no foi
inicializada!!!
No evento click do Boto coloquei o seguinte cpodigo!!!
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TfrmJuros = class(TForm)
pnJuros: TPanel;
StApresentacao: TStaticText;
lblCapital: TLabel;
lblTempo: TLabel;
lblTaxa: TLabel;
txtCapital: TEdit;
txtTempo: TEdit;
txtTaxa: TEdit;
btnCalcularJuros: TBitBtn;
mmoResultado: TMemo;
pnJuros2: TPanel;
Label1: TLabel;
procedure btnCalcularJurosClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmJuros: TfrmJuros;
implementation
uses clJuros;
{$R *.dfm}
procedure TfrmJuros.btnCalcularJurosClick(Sender: TObject);
var
ojuros, otaxa : TJuros;
taxa, capital, taxafinal, somataxa : real;
tempo : integer;
begin
mmoResultado.Clear;
taxa := strtofloat (txtCapital.text);
capital := strtofloat (txtCapital.text);
Tempo := strtoint (txtTempo.text);
otaxa := TJuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NO
SEI SE OS PARMETROS ESTO SENDO PASSADOS CORRETAMENTE
ojuros := Tjuros.Construtor(taxa,capital,taxafinal,somataxa,tempo); // NO
SEI SE OS PARMETROS ESTO SENDO PASSADOS CORRETAMENTE
mmoResultado.Lines.AddStrings (ojuros.CalculaJuros);
otaxa.Free;
ojuros.Free;
end;
end.
Algum pode me socorrer! Posso enviar o cdigo fonte se for
melhor!!
Me ajudem por favor
Um abrao a todos e obrigado!
Andr Ferreira
[As partes desta mensagem que no 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
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 Servio
do Yahoo!.
[As partes desta mensagem que no continham texto
Re: [delphi-br] Re: Criando classes no delphi
Pessoal,
para quem não soube responder o meu problema, é o seguinte:
Na unit untRaca eu escrevi:
oRaca.Create;
mas deve ser:
oRaca := TRaca.Create;
E na unit clRaca não é necessário ter o contructor e o destructor, a não ser
que seja necessário redefini-los.
Aos que tentam me ajudar eu agradeço.
[]'s
Sheila
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, May 22, 2005 12:21 PM
Subject: RES: [delphi-br] Re: Criando classes no delphi
Faz um teste assim
constructor TRaca.Create;
begin
inherited;
// idRaca := 0;
// descricao:= '';
// porte:= '';
// especie:= '';
end;
Eduardo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Sheila
Enviada em: sábado, 21 de maio de 2005 23:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Criando classes no delphi
Olá.
segue as respostas abaixo:
- Original Message -
From: Romario (Listas)
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, May 21, 2005 4:49 PM
Subject: Re: [delphi-br] Re: Criando classes no delphi
1) Você Conseguiu compilar o programa?
RESP: sim, compilei o programa
2) Você fez algum teste?
RESP: a conexão com o bd está ok, inclusive coloquei um datagrid para
testar e exibiu os dados direitinho
3) Onde e qual é o erro que está ocorrendo?
RESP: o erro ocorre justamente na linha onde está escrito:
oRaca.Create;
na procedure TfrmRaca.btnGravarClick(Sender: TObject)
da unit untRaca
e o erro que dá é o seguinte:
Access violation at address 004E48F8 in module
'prjExercicioClasse.Exe'. Read of Address of .
Process Stopped. Use Step or Run to continue.
e quando dou RUN na animação do programa pula para a linha onde está
escrito: oRaca.Free;
4) Quais os componentes de acesso à dados que você está utilizando?
RESP: os componentes ADO, mas o acesso a base de dados está
funcionando
5) Qual o banco de dados que você está utilizando?
RESP: vou utilizar o Access 2000 mesmo
Dê mais detalhes para que possamos ajudá-la.
RESP: Se o grupo aceitasse anexos, ficava mais fácil...
Sds,
Romario
Sheila escreveu:
Parece que o grupo não aceita anexos :(
Então vou enviar o conteúdo das units logo abaixo.
Boa tarde, pessoal.
Estou tentando aplicar o conceito de uml (diagrama de classes) no
delphi 7 e fiz um exercício me baseando no livro Desenvolvendo
aplicações com UML 2.0 de Ana Cristina Melo, mas está dando erro.
Estou enviando em anexo o exercício para quem puder me ajudar.
Estou precisando para fazer o projeto da faculdade e estou tendo
dificuldades por enquanto nesta parte.
Se alguém tiver uma apostila ou link que explique melhor isso será
de grande ajuda pq pesquisei no google e não achei muita coisa que me
ajudasse.
A quem puder me ajudar eu agradeço antecipadamente.
[]'s
Sheila
// UNIT RACA DO FORM
unit untRaca;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons, ExtCtrls;
type
TfrmRaca = class(TForm)
pnlCabecalho: TPanel;
btnLocalizar: TBitBtn;
btnPrimeiroRegistro: TBitBtn;
btnRegistroAnterior: TBitBtn;
btnProximoRegistro: TBitBtn;
btnUltimoRegistro: TBitBtn;
pnlDados: TPanel;
lblDescricao: TLabel;
lblIDRaca: TLabel;
lblPorte: TLabel;
edtDescricao: TEdit;
mskIDAnimal: TMaskEdit;
cboPorte: TComboBox;
cboEspecie: TComboBox;
lblEspecie: TLabel;
pnlRodape: TPanel;
btnGravar: TBitBtn;
btnCancelar: TBitBtn;
lblTituloCinza: TLabel;
lblTituloAzul: TLabel;
procedure FormClose(Sender: TObject; var Action:
TCloseAction);
procedure btnGravarClick(Sender: TObject);
private
{ Private declarations }
function validarCampos(): boolean;
public
{ Public declarations }
end;
var
frmRaca: TfrmRaca;
implementation
uses clRaca;
var
oRaca : TRaca;
{$R *.dfm}
procedure TfrmRaca.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
Action := caFree;
end;
procedure TfrmRaca.btnGravarClick(Sender: TObject);
begin
if (validarCampos) then
begin
oRaca.Create;
oRaca.IncluirRaca(edtDescricao.Text, cboPorte.Text,
cboEspecie.Text);
oRaca.Free;
end;
end
Re: [delphi-br] Re: Criando classes no delphi
Olá, Marcelo. Já havia retirado o comentário de onde está escrito inherited mas o erro continua... Tem algum exemplo para me dar que esteja funcionando??? []'s Sheila - Original Message - From: Marcelo Almeida To: delphi-br@yahoogrupos.com.br Sent: Sunday, May 22, 2005 8:25 AM Subject: Re: [delphi-br] Re: Criando classes no delphi Sheila wrote: 3) Onde e qual é o erro que está ocorrendo? RESP: o erro ocorre justamente na linha onde está escrito: oRaca.Create; na procedure TfrmRaca.btnGravarClick(Sender: TObject) da unit untRaca e o erro que dá é o seguinte: Access violation at address 004E48F8 in module 'prjExercicioClasse.Exe'. Read of Address of . Process Stopped. Use Step or Run to continue. e quando dou RUN na animação do programa pula para a linha onde está escrito: oRaca.Free; Vc comentou a herança do constructor do TRaca. O constructor deve ficar assim: constructor TRaca.Create; begin inherited Create; // idRaca := 0; // descricao:= ''; // porte:= ''; // especie:= ''; end; Faça a mesma coisa com o destroy. destructor TRaca.Destroy; begin inherited Destroy; end; -- 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 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] Criando classes no delphi
Boa tarde, pessoal. Estou tentando aplicar o conceito de uml (diagrama de classes) no delphi 7 e fiz um exercício me baseando no livro Desenvolvendo aplicações com UML 2.0 de Ana Cristina Melo, mas está dando erro. Estou enviando em anexo o exercício para quem puder me ajudar. Estou precisando para fazer o projeto da faculdade e estou tendo dificuldades por enquanto nesta parte. Se alguém tiver uma apostila ou link que explique melhor isso será de grande ajuda pq pesquisei no google e não achei muita coisa que me ajudasse. A quem puder me ajudar eu agradeço antecipadamente. []'s Sheila [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] Re: Criando classes no delphi
Parece que o grupo não aceita anexos :(
Então vou enviar o conteúdo das units logo abaixo.
Boa tarde, pessoal.
Estou tentando aplicar o conceito de uml (diagrama de classes) no delphi 7 e
fiz um exercício me baseando no livro Desenvolvendo aplicações com UML 2.0 de
Ana Cristina Melo, mas está dando erro.
Estou enviando em anexo o exercício para quem puder me ajudar.
Estou precisando para fazer o projeto da faculdade e estou tendo dificuldades
por enquanto nesta parte.
Se alguém tiver uma apostila ou link que explique melhor isso será de grande
ajuda pq pesquisei no google e não achei muita coisa que me ajudasse.
A quem puder me ajudar eu agradeço antecipadamente.
[]'s
Sheila
// UNIT RACA DO FORM
unit untRaca;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons, ExtCtrls;
type
TfrmRaca = class(TForm)
pnlCabecalho: TPanel;
btnLocalizar: TBitBtn;
btnPrimeiroRegistro: TBitBtn;
btnRegistroAnterior: TBitBtn;
btnProximoRegistro: TBitBtn;
btnUltimoRegistro: TBitBtn;
pnlDados: TPanel;
lblDescricao: TLabel;
lblIDRaca: TLabel;
lblPorte: TLabel;
edtDescricao: TEdit;
mskIDAnimal: TMaskEdit;
cboPorte: TComboBox;
cboEspecie: TComboBox;
lblEspecie: TLabel;
pnlRodape: TPanel;
btnGravar: TBitBtn;
btnCancelar: TBitBtn;
lblTituloCinza: TLabel;
lblTituloAzul: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnGravarClick(Sender: TObject);
private
{ Private declarations }
function validarCampos(): boolean;
public
{ Public declarations }
end;
var
frmRaca: TfrmRaca;
implementation
uses clRaca;
var
oRaca : TRaca;
{$R *.dfm}
procedure TfrmRaca.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmRaca.btnGravarClick(Sender: TObject);
begin
if (validarCampos) then
begin
oRaca.Create;
oRaca.IncluirRaca(edtDescricao.Text, cboPorte.Text, cboEspecie.Text);
oRaca.Free;
end;
end;
function TfrmRaca.validarCampos(): boolean;
begin
validarCampos := true;
if (Length(edtDescricao.text) = 0) then
begin
ShowMessage('É necessário informar a descrição da raça!');
edtDescricao.SetFocus;
validarCampos := false;
exit;
end;
if (cboPorte.ItemIndex = -1) then
begin
ShowMessage('É necessário informar o porte da raça!');
cboPorte.SetFocus;
validarCampos := false;
exit;
end;
if (cboEspecie.ItemIndex = -1) then
begin
ShowMessage('É necessário informar a espécie da raça!');
cboEspecie.SetFocus;
validarCampos := false;
exit;
end;
end;
end.
// UNIT DA CLASSE RACA
unit clRaca;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Dialogs;
type
TRaca = class
private
idRaca : integer;
descricao: string;
porte: string;
especie: string;
protected
public
constructor Create;
destructor Destroy; override;
procedure ObterRacas();
procedure IncluirRaca(descricao: string;porte: string;especie: string);
function LocalizarRaca(desc:string): string;
end;
implementation
constructor TRaca.Create;
begin
// inherited Create;
// idRaca := 0;
// descricao:= '';
// porte:= '';
// especie:= '';
end;
destructor TRaca.Destroy;
begin
// inherited Destroy;
end;
procedure TRaca.ObterRacas();
begin
// Fazer a conexão com o bd para obter todas as raças
ShowMessage('Em construção');
end;
procedure TRaca.IncluirRaca(descricao: string;porte: string;especie: string);
begin
// Fazer a conexão com o bd para incluir um cadastro de raça
ShowMessage('Em construção');
end;
function TRaca.LocalizarRaca(desc:string): string;
begin
// Fazer a conexão com o bd para localizar uma determinada raça
ShowMessage('Em construção');
end;
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
