Bom dia amigo...
Tenho três funções q desenvolvi aqui no trabalho, veja se te ajuda:
Function CalcTime(Const TempoInic,TempoFim : TdateTime): string;
var
Calc : real;
begin
Calc:=Tempoparareal(TimeToStr(TempoFim))-Tempoparareal(TimeToStr(TempoInic));
if Calc 0 then Calc:=Calc+24;
Aes Galera,
Estou precisando desenvolver um programa para ser utilizado em rede e a dúvida
é: qual banco de dados usar?
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
Bom Dia Srs.
Estou tendo prolemas quando envio E-Mails pelo OutLook. Ao enviar aparece uma
de tela de seguranca do outlook pedindo para confirmar o envio! Alguem sabe com
evitar esta tela.
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp :=
Maurício,
Grato pela ajuda, sua e de outros, mas a sua explicação foi realmente
didática, hehe, e isso é preciosícimo pra quem ainda tem pouco conhecimento
e quer aprender, que acho ser a intenção da lista, aprender e repassar o
conhecimento.
[]´s
Marcelo
- Original Message -
From:
Bom dia a todos
Tenho o seguinte texto dentro de um componente memo :
25/05/2005 13:19AGUARDANDOAUTOR18/05/2005 08:57EXPEDIÇÃO DE MANDADO
10/05/2005 14:42EM CLASSIFICAÇÃO 09/05/2005
16:26PROTOCOLADO
Onde este texto é um retorno de uma função e está em uma única
linha.
Preciso
Posso estar falando bobeira, mas tente fazer sua função retornar algum
caracter especial entre os dados que devem ter quebra de linha.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Patricia Santana
Enviada em: sexta-feira, 16 de setembro de
Bom dia a todos,
Estou tendo duvidas quanto a pretenção salarial em que deve ter como base.
Se alguem poder me dar uma dica.
Paulo Dias
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens
Creio que para conseguir fazer o que você quer, terá que criar um
algoritmo. Pelo exemplo que você passou toda data/hora está no
formato: DD/MM/ HH:NN. Então crie um algoritmo para varrer a
string, e encontrando uma ocorrência de NN/NN/ NN:NN (onde N é um
número inteiro de 0 a 9), efetue
Se não estou enganado, o salário base para programador gira em torno
de R$ 1200,00. Mas também sofre algumas variações dependendo da
região, e da sua experiência claro. Esse salário eu considero bom para
um programador com pouca experiência.
--- Em delphi-br@yahoogrupos.com.br, Paulo Dias de
Colegas,
O PROGRAMA: Utilizo o word para geração de relatórios,
pois acho que fica mais fácil para o usuário alterar,
se trata vários modelos de contratos que são abertos,
alterados algumas palavras, impresso e salvado como.
Para fazer isso utilizo uma thred pois este processo é
demorado e se não
Solução:
Usar Api do Windows.
Uses ShellApi;
function CopiaDirs(DirFonte,DirDest : String) : Boolean;
var ShFileOpStruct : TShFileOpStruct;
begin Result := False;
if DirFonte = '' then
raise Exception.Create('Diretório fonte não pode ficar em branco');
if DirDest = '' then
raise
Criei um arquivo .INI para captions e hist's do meu sistema, agora estou com
problemas para leitura dele para hint... eu naum consigo fazer ele jogar o
hint em mais de 1 linha. Alguem sabe me ajudar??
Obrigada
Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança
Tem como vc me enviar a sua rotina ??
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Patricia Santana
Enviada em: sexta-feira, 16 de setembro de 2005 08:36
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Quebra de Linha no
Osmar,
muito obrigado, têm uma empresa me oferecendo 400,00
Achei que era meio baixo mesmo, não tenho experiencia em carteira mas
programo a 3 anos e tenho certificados da Impacta.
Obrigado
Paulo Dias
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Na pior das hipóteses, o mínimo dígno que se possa oferecer de salário para
um desenvolvedor seria 800 reais. Abaixo disto pra mim é querer fazer o
profissional de otário.
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG -
Olá pessoal, sei que o fórum é para programadores DELPHI, mas se conhecerem
algum programador que trabalhem com Visual Basic aqui no Brasília, passem por
favor.
Grande abraço a todos...
Oportunidade de trabalho programador VB
Fala pessoal estou enviando este e-mail para vocês por que tenho
Explique com mais detalhes o que deseja, seria por acaso isso?
vc tem um texto que tem por exemplo + de 150 caracteres e deseja que apareça
150 num linha e restante em outra?
uma forma simples seria fazer isso:
linha_a_ser_apresentada:=copy(texto_do_ini,1,150)+#13+copy(texto_do_ini,151
Estou em negociação, estou tentando entrar na area mas é dificil conseguir
oportunidades, mas não estou disposto a aceitar um salario tão baixo...
Obrigado a todos pela atenção.
Este forum é 10
Paulo Dias
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL
kraka acho que ta na hr de eu manda esse povo daki pra pqp... pega minha
mochila e me manda...
Naum ganho R$ 800,00 (chega perto de 700) e faz 6 meses que o salario
atrasa agora viro moda eles pagarem R$ 150,00 la pelo 7, 8 dia util e o
resto sei la quando...
Bom... tb a producao ta de
O mínimo, na minha opinião seria:
R$ 500,00 para programadores com apenas o 1 Grau !
R$ 800,00 para programadores com apenas o 2 Grau !
R$1.500,00 para programadores com curso superior incompleto ou 2o Grau !!
R$2.500,00 para programadores com curso superior completo (na área) !!
Deve-se
Puxa, pessoal, fico indignado em saber que essas propostas de salários são
tratadas como normais, 800 reais é o salário médio que nossas meninas do
setor administrativo (telefonistas, almoxarifado, cobrança e RH, etc...)
ganham aqui.
Acho que deverímos valorizar nosso trabalho de
Eu concordaria em parte com o que o Rogério expos aqui (Só não quero entrar
no mérito do grau de instrução pra não gerar confusão aqui de novo)
O mínimo, na minha opinião seria:
R$ 500,00 para programadores com apenas o 1 Grau !
R$ 800,00 para programadores com apenas o 2 Grau !
Uma curiosidade???
Muda alguma coisa (salario inicial), se o cara têm experiencia, por que se
naum muda pq eu vou me submeter a ganhar esse salario baixo, contando que
vou ganhar experiencia, se isso naum muda nada
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL
Amigos...
Como setar um campo QrDbText unico ora com um campo de uma determinada Query
ora com outro outro campo desta mesma Query???
Obrigado,
Um grande abraço a todos
-
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos
Este é um exemplo q eu uso para enviar pedidos para os fornecedores aqui da
Empresa eu anexo um arquivo no envio, vc configura ao seu jeito.
Use os componentes da paleta INDY (IdSMTP1 - Indy Clientes e IDMESSAGE - Indy
Misc) do Delphi7
Vlw
with SMTP do begin
try
if connected = False
Claro que muda. Senão uma certificação não valeria de nada.
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De:
Cê ainda tá num lugar destes
Ó! Produzir conforme o salário, não vai contra ninguém a não ser contra você
mesmo. Se a empresa não tem responsabilidade com suas obrigações e muito
menos competência para se manter no mercado, não é você quem deve ir na onda
dela.
Faça seu trabalho que o
with tablenome do begin
Active := False;
databasename:='teste'; // nome do database
tableName:= nome; // nome da tabela
tableType:= ttDbase; // tipo da tabela, no seu caso MSACCESS
with fieldDefs do begin
clear;
Eh... a producao caiu nessa semana soh... mas por diversos outros fatores...
Mas com certeza to procurando outro lugar... pq assim naum dah... o pior de
tudo eh que a chefia nem aparece pra dar uma satisfacao, ou uma previsao...
Outra eh que meu nome nunca vai aparecer no que eh produzido aki...
Concordo plenamente
É evidente que, podem haver exceções...
Conheço tb. caras Fera, com escolaridade relativamente incompleta ou
deficiente... depende do/s caso/s
Esses deverão pleitear as melhores oportunidades em sua causa, ponderando
sua/s experiência/s.
Com a escolaridade, tb. é possível
Eu também
mas ja madei email para sair do grupo mas num sai
[EMAIL PROTECTED]
--- paulo vitor [EMAIL PROTECTED] escreveu:
-
-
Novo Yahoo! Messenger com voz: ligações, Yahoo!
Avatars, novos emoticons e
Galera, boa tarde...
Me pediram para montar um programa de controle de um minimercado , já que o
proprietário está querendo expandir o negócio e precisa de um controle melhor
do que caderno e caneta.
Gostaria de saber como posso configurar, no meu Cadastro de materiais, o campo
de código
Tamara,
Tenta assim
var
F : TextFile;
begin
AssignFile(F,'C:\Arquivo.ini');
Reset(F);
while not SeekEof(F) do
begin
Readln(F,Linha);
Componente.Hint := Copy(Linha,1,5) + #13 + Copy(Linha,6,5);
end;
CloseFile(F);
end;
Amigos,
Estou precisando gerar um relatorio em pdf, de
preferencia com senha alguem pode me ajudar ?? tô
caçando na net, mas não tenho tido sucesso
Grato desde já...
[]´s
Joel da Silva Lino
--
Desenvolvedor
[EMAIL PROTECTED]
Se o gerador for o QR tem que usar componente . No site do fabricante tem
alguns links. Agora se for outro, passe pelo menos o nome do gerador.
Eduardo
- Original Message -
From: Joel Lino
To: delphi-br@yahoogrupos.com.br
Sent: Friday, September 16, 2005 2:39 PM
Pessoal, boa tarde.
Estou desenvolvendo uma aplicação aqui onde preciso de uma consulta que me
retorne registros contidos no período da semana em questão. Por exemplo, o
usuário, marca la a opção de que ele quer gerar a consulta por semana, daí, a
função pegaria a data atual (16/09/2005) e
function TForm1.Buscaperiodo(pData: TDate; var pDtIni, pDtFim: TDate): Boolean;
var
vIntAux : Integer;
begin
vIntAux := DayOfWeek(pData);
pDtIni := pData - vIntAux + 1;
pDtFim := pData + vIntAux + 1;
end;
var
vDtInicio,
vDtFinal : TDate;
begin
Dê uma olhada nas funções DayOfTheWeek, StartOfTheWeek, WeekOf,
WeeksBetween e várias outras que contém Week e veja se elas te atendem.
Obs.: Abra o help do Delphi e na aba índice digite Datetime Routines
(sem as aspas) e encontrará diversas funções de data para te ajudar.
Sds,
Romario
Vou te dar uma sujestão que usei, não para isso, mas algo parecido:
[Sessao_teste]
hint = Primeira linha%nSegunda lina%nTerceira linha
depois na propriedade vc atribui o valor utilizando a função StringReplace()
para trocar os '%n' por #13
exemplo: teste.hint:= StringReplace('Primeira
Estou utilizando o quickreport
--- Eduardo [EMAIL PROTECTED] escreveu:
Se o gerador for o QR tem que usar componente .
No site do fabricante tem alguns links. Agora se for
outro, passe pelo menos o nome do gerador.
Eduardo
- Original Message -
From: Joel Lino
Boa tarde Srs.
Estou tendo problemas quando envio E-Mails pelo OutLook. Ao enviar aparece uma
de tela de seguranca do outlook pedindo para confirmar o envio! Alguem sabe com
evitar esta tela.
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp :=
Olá Pessoal tudo bem?
Estou desenvolvendo um pequeno sistema comercial e estou usando o
Firebird, compilo de boa e executo o aplicativo em maioria das
estações da empresa onde trabalho. Porém em alguns ele(uma minoria)
não abre.
Já copiei, mudei, alternei...etc. o GDS32.dll e o FBCLIENT.dll e
Para sair do grupo (se você ESTIVER cadastrado no Yahoo Grupos):
- Clique no link abaixo
http://br.groups.yahoo.com/mygroups?o=2edit=1
- Entre com o seu Nome de Usuário e sua Senha.
- Marque o Checkbox que está à direita
o mercado ta melhorando, mas ainda falta muito, creio q apenas um faculdade
nao vai resolver, conheco pessoas com diploma e que estao totalmente fora da
realidade, pensaram que bastaria ter um diploma e tudo estaria resolvido,
SOU FORMADO EM CIENCIAS DA COMPUTACAO, agora vou ganhar muito
Um dia um rapaz de 20 anos foi procurar um emprego e um caça talentos disse
seriamente
trabalhe duro que em dez anos vc sera recompensado, e ele seguiu o
conselho e anos depois, foi demitido numa tercerizacao.
Aos 30 anos encontrou novamente o mesmo caça talentos que disse
trabalhe duro que em
O Departamento de Informática da PUC-Rio está
oferecendo o curso de extensão Programação de
Computadores através da Coordenação Central de
Educação a Distância (CCEAD), com a coordenação
acadêmica do Professor Rubens Nascimento Melo. Este
curso é formado por 3 módulos e terá, além de
discussões e
Com Threads deveria resolver sim.
Poderia postar parte do código aqui?
Você está usando qual banco de dados?
--
Erick Sasse
www.ericksasse.com.br
-Mensagem original-
De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de patricia_menjao
Enviada em: sexta-feira,
Olá Tamara,
O Delphi já possui uma função para fazer esse serviço chamada WrapText.
Se não me engano ela está na unit sysutils.
Acredito que é o que você está procurando. Para usá-la basta vc informar
texto que quer quebrar e a quantidade máxima de caracteres por linha. Uso
essa função em alguns
Parece que o problema está na sincronização das threads.
Tente colocar o mínimo de código possível dentro dos procedimentos chamados
pelo synchronize para que a sincronização libere os recursos o mais rápido
possível para que a outra thread possa usa-los.
Matheus.
-Mensagem original-
De:
Não sei qual é a média de salário em cada região, mas na região de Bauru,
Pompéia (Interior de São Paulo) estão procurando um programador Delphi com
salário de R$ 1500,00. INICIAL.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Ricardo
Enviada
50 matches
Mail list logo