escobar

Não funciona o comando "Assign(MyBMP)"; não tem no TICONImage só no TJPEGImage

au alimento um LABEL... com dois digitos, dai eu crio um BMP do label fica bom, mas agora preciso transformar este BMP em ICON... será que alguém pode me ajudar ?

Odeio quando isso acontece... a função tava incompleta na pagina, mas tinha um arquivo com ela completinha, ai desculpem a falha... Private Function diferença_datas(Dtini As Date, Dtfin As Date) If IsNull(Dtini) Or Dtini > Now Or Dtini > Dtfin Then MsgBox "Data inválida !", vbCritical, "Data Inválida" Exit Function End If diferenca = Dtfin - Dtini xAnos = diferenca / 365.25 anos = Int(xAnos) xMeses = (xAnos - anos) * 12 meses = Int(xMeses) dias = DateDiff("d", DateSerial(DatePart("yyyy", Dtini) + anos, _ DatePart("m", Dtini) + meses, Day(Dtini)), Dtfin) If dias = 30 Then dias = 0 End If If meses = 12 Then meses = 0 anos = anos + 1 End If If anos > 1 Then anos = anos & " anos " Else anos = anos & " ano " End If If meses > 1 Then meses = meses & " meses " Else meses = meses & " mês " End If If dias > 1 Then dias = dias & " dias " Else dias = dias & " dias " End If diferença_datas = anos & meses & dias End Function

agora se aguem quizer fazer um trem bom mesmo... rsrsrs... da uma olhadinha neste endereço ai e monta a função... rsrsrs...

ta em visual-basic e num sei se funciona porque nunca testei, facil de converter para delphi...... Private Function diferença_datas(Dtini As Date, Dtfin As Date) 1 If IsNull(Dtini) Or Dtini > Now Or Dtini > Dtfin Then 2 MsgBox "Data inválida !", vbCritical, "Data Inválida" 3 Exit Function 4 End If 5 diferenca = Dtfin - Dtini 6 xAnos = diferenca / 365.25 7 anos = Int(xAnos) 8 xMeses = (xAnos - anos) * 12 9 meses = Int(xMeses) 10 dias = DateDiff("d", DateSerial(DatePart("yyyy", Dtini) + anos, _ DatePart("m", Dtini) + meses, Day(Dtini)), Dtfin)

é isso mesmo s3c, se pedir o tempo entre 5 anos = 60 meses... acho o que ele quer é tempo decorrido, tipo, tantos anos, meses, dias, horas, minutos, segundos... heheheh como eu só precisava do tempo em anos, a minha já matou a pau...

aqui tem um componente que uso para saber a idade em anos e funciona beleza.. component....DTCalc.pas ---------------------------------------- {*************************************************************} { DateTime Calculator component for Delphi 16/32 } { Version: 1.3 } { Author: Aleksey Kuznetsov } { E-Mail: info@utilmind.com } { Home Page: http://www.utilmind.com } { Created: May, 12, 1999 } { Modified: August, 3, 1999 } { Legal: Copyright (c) 1999, UtilMind Solutions } {*************************************************************} { TDTCalc (in English) } { Component for calculation of amount of years, months, days, } { hours, minutes, seconds and miliseconds past between two } { time intervals. } {*************************************************************} { TDTCalc (in Russian) } { Êîìïîíåíòà äëÿ âû÷èñëåíèÿ êîëè÷åñòâà ëåò, ìåñÿöåâ, äíåé, } { ÷àñîâ, ìèíóò, ñåêóíä è ìèëèñåêóíä ïðîøåäøèõ ìåæäó äâóìÿ } { îòðåçêàìè âðåìåíè. } {*************************************************************} { PROPERTIES: } { StartTime, EndTime: TDateTime; - Range of time interval. } { READ ONLY PROPERTIES: } { Years: LongInt } { Months: LongInt } { Days: LongInt } { Hours: LongInt } { Minutes: LongInt } { Seconds: LongInt } { MSeconds: LongInt } {*************************************************************} { Please see demo program for more information. } {*************************************************************} { IMPORTANT NOTE: } { This software is provided 'as-is', without any express or } { implied warranty. In no event will the author be held } { liable for any damages arising from the use of this } { software. } { Permission is granted to anyone to use this software for } { any purpose, including commercial applications, and to } { alter it and redistribute it freely, subject to the } { following restrictions: } { 1. The origin of this software must not be misrepresented, } { you must not claim that you wrote the original software. } { If you use this software in a product, an acknowledgment } { in the product documentation would be appreciated but is } { not required. } { 2. Altered source versions must be plainly marked as such, } { and must not be misrepresented as being the original } { software. } { 3. This notice may not be removed or altered from any } { source distribution. } {*************************************************************} unit DTCalc; interface uses {$IFDEF Win32} Windows, {$ELSE} WinTypes, WinProcs, {$ENDIF} SysUtils, Classes; type TDTCalc = class(TComponent) private FStartTime, FEndTime: TDateTime; FYears, FMonths, FDays, FHours, FMinutes, FSeconds, FMSeconds: LongInt; procedure SetStartTime(Value: TDateTime); procedure SetEndTime(Value: TDateTime); procedure Calculate; public published property StartTime: TDateTime read FStartTime write SetStartTime; property EndTime: TDateTime read FEndTime write SetEndTime; property Years: LongInt read FYears; property Months: LongInt read FMonths; property Days: LongInt read FDays; property Hours: LongInt read FHours; property Minutes: LongInt read FMinutes; property Seconds: LongInt read FSeconds; property MSeconds: LongInt read FMSeconds; end; procedure Register; implementation {$R *.RES} procedure TDTCalc.SetStartTime(Value: TDateTime); begin FStartTime := Value; Calculate; end; procedure TDTCalc.SetEndTime(Value: TDateTime); begin FEndTime := Value; Calculate; end; procedure TDTCalc.Calculate; var e: Extended; TempStr: String; procedure Truncate(var Value: LongInt); begin try Value := Trunc(e); except Value := -1; end; end; begin e := MSecsPerDay * (FEndTime - FStartTime); Truncate(FMSeconds); TempStr := IntToStr(FMSeconds); if TempStr[Length(TempStr)] = '9' then inc(FMSeconds); e := e / 1000; Truncate(FSeconds); e := e / 60; Truncate(FMinutes); e := e / 60; Truncate(FHours); e := e / 24; Truncate(FDays); FMonths := Trunc((FEndTime - FStartTime) / 30.4375); FYears := Trunc((FEndTime - FStartTime) / 365.25); end; procedure Register; begin RegisterComponents('ESC', [TDTCalc]); end; end. ------------------------------------------ como usar o componente ------------------------------------------ DTCalc1.StartTime := dataset.FieldByName('nascimento').AsDateTime; DTCalc1.EndTime := now; dataset.FieldByName('idade').AsInteger := DTCalc1.Years; --------------------------------------------

FIELD FORNECEDOR MUSTA HAVE A VALUE O campo FORNECEDOR "TEM QUE TER UM VALOR!!!!!"!!!!!.... ve onde voce preenche os campos pois você esta deixando este campo em branco e ele precisa de um valor... abraços...

Boa dica... mas se for pra jogar para o MEMO... memo1.lines.LoadFromFile( 'c:\dirname\filename.txt');

Um jeito facil e rápido... mas voce também pode dar uma olhada nas funções ExtractFileDir() ExtractFileDrive() ExtracFileExt() ExtractFileName() ExtractFilePath() ExtractRelativePath() ExtractShortPathName() e montar algo que leia o PATH que você esta e configure uma string com o caminho... // abaixo um exemplo simples e pratico (meio gambiara mas bem pratico... ) var str_path : string; begin memo1.lines.loadfromfile('path.txt'); str_path := memo1.lines.text; frmAjuda.WebBrowser1.Navigate(str_path+'ajuda6.htm'); end; -------------------------------- conteudo do arquivo path.txt c:/projetos/Carla/Terraco/ --------------------------------

TFormChannel = class(TForm) FormStyle = fsMDIChild;

Bom num sei se entendi... mas... Para criar um arquivo em outra maquina, (se estivermos falando de dois micros e criar o arquivo na outra maquina atraves da rede), voce precisa compartilhar o diretório e mapea-lo na outra maquina, ou apenas indicar o caminho da rede para onde você quer que o arquivo seja criado... tipo: \\maquina\dircompartilhado\diretorio\nomearquivo.txt var F: TextFile; begin AssignFile(F, '\\maq\dircomp\diretorio\NEWFILE.$$$'); Rewrite(F); Writeln(F, 'Just created file with this text in it...'); CloseFile(F); end; agora num sei, , se era isso que voce queria, seja mais especifica se não for isso...

O código que coloquei acima, esqueci de mencionar que este código esta dentro do OnShow do FormMDI-Pai

Tenho uma aplicação DELPHI que quando inicio a aplication no FORMPai, na hora do ONSHOW criou umas 4 MDIChild, mas gostaria que elas ficassem invisiveis, alguém sabe como fazer isso ? Tentei "F_MDIChild.Visible := false", mas na hora que a aplicação inicia, ele diz "Cannot hide an MDI Child Form." isso tanto faz com o VISIBLE ou HIDE, alguém sabe de uma outra forma ??

Voce pode criar chaves no registro para expirar dai trinta dias. Voce pega a data atual, soma 30 salva, ai cada vez que ele abrir o programa o programa salva a data atual e compara para ver se venceu, ai se ele tentar voltar a data já num vai virar pois você também testa a data que voce grava todo dia... e assim vai...

Seguinte, você vai gravando no registro a ultima data que ele abriu, SE a data for maior que a data que já esta gravada, ele atualiza, se for igual ele abre, se for menor, avisa que tem que acertar a data/hora.Tambem pode ser feito mais um registro para fazer tipo um contador de vezes que o programa pode ser aberto, deu a quantia puff para... boa sorte...

é exatamente isso, cada vez que houver uma alteração na data/hora a cor deve inverter, irei trabalhar com duas cores, azul e vermelho por exemplo, o primeiro grupo é azul, ai o segundo grupo é vermelho, o terceira é azul... assim que você abre o programa ele vai montar o DBGRID nesta ordem, vamos supor que cada grupo seja composto de 3 items, (nem sempre será assim, as vezes 2 as vezes 10, isso pode variar muito, assim como as horas...) bom, se eu estiver com o cursor do DBGRID selecionando a primeira opção e ela for azul e eu for clicar na terceira opção que também é azul, bem ai que ta o problema, como mudou a data/hora na hora que cliquei encima da terceira, ele mudar a terceira que deveria ser AZUL para VERMELHO, é isso que não consigo controlar... 1 - azul <- cursor ta aqui... 2 - azul 3 - vermelho 4 - vermelho 5 - azul <- quando eu clicar aqui ele vai passar para vermelho... 6 - azul

Bem meu problema é o seguinte, fazer um DBGRID com os registros em COR-SIM / COR-NÃO beleza, o problema te sendo em fazer em grupo de registro e manter a cor mesmo quando clico encima deles... TIPO: meu agrupamento seria por data/hora o ultimo foi BLUE as 10:30:00, bom se eu clicar encima de um BLUE-10:15:00 ele fica com a cor RED, veja abaixo... 1 - 22/05/2005 10:00:00 - fulano - red 2 - 22/05/2005 10:00:00 - fulano - red 3 - 22/05/2005 10:00:00 - fulano - red 1 - 22/05/2005 10:15:00 - fulano - blue 2 - 22/05/2005 10:15:00 - fulano - blue 1 - 22/05/2005 10:25:00 - fulano - red 2 - 22/05/2005 10:25:00 - fulano - red 3 - 22/05/2005 10:25:00 - fulano - red 1 - 22/05/2005 10:30:00 - fulano - blue 2 - 22/05/2005 10:30:00 - fulano - blue 3 - 22/05/2005 10:30:00 - fulano - blue será que alguém poderia me ajudar ???

e ai cara achou alguma coisa ? acho q tenho algo em algum lugar aqui do HD, o que você usa pra capturar o SOM ? vamos trocar umas idéias.... eu também to tentando varias coisas neste sentido...

já tentei de tudo e nada foi melhor que usar a dbExpress com o MySQL em LINUX, mas pode ser em WINDOWS também não vai fazer diferença......

alguém tem essa biblioteca MMTOOLS e poderia me mandar, pode ser para delphi 4, 5 ou 6... obrigado...