Jhonas

acho que qualquer data em seu sistema será acima desta que voce está testando logo, somente esta parte do codigo é que será executada NR11.Visible := true; QRShape3.Visible := true; abraço

experimente assim: var Pict: TfrPictureView; begin pict := TfrPictureView(frReport1.FindObject('MinhaImage')); if Assigned(pict) then Pict.Picture.LoadFromFile('c:\imagem.jpg'); frReport1.ShowReport; end; abraço

Junto com a placa deve ter vindo tambem o manual dela ... lá explica como ligar os cabinhos, cada um no seu lugar se não tiver o manual procure na net abraço

Pode ser sim... mas é muito raro acontecer. voce pode retirar o processador, passar um limpa contato e coloca-lo novamente .... ou pode ser rompimento de alguma trilha da placa mãe, mas voce só exergara se usar uma lente de aumento ou pode ser algum componente queimado na placa abraço

sem o seu código fica dificil saber o que esta querendo....

os arquivos podem estar em qualquer qualquer, voce só tem que indicar o caminho de onde busca-los para substitui-los abraço

o FB 2.0 tem bugs ... melhor baixar da net o FB 2.5 abraço

veja este post http://scriptbrasil.com.br/forum/index.php...st&p=566056 abraço

sempre coloque o seu código, se quiser que alguém o ajude .... abraço

exemplo: http://www.efg2.com/Lab/Library/Delphi/Gra...augh_TSlide.zip http://www.efg2.com/Lab/Library/Delphi/Gra...eld_dxfgrph.zip ftp://ftp.gdsoft.com/pub/swag/ffe200.zip abraço

Se a ideia é criar um form em tempo de execução, não é dessa maneira veja este artigo http://www.festra.com/wwwboard/messages/12948.html abraço

Até agora não entendi para que chegar ao limite de valor do Extended ...

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=531361 abraço

Está meio vago a sua pergunta...

o comando: Memo1.Lines.Count => retorna o numero de linhas que contem o memo faça um if para testar esse numero e passar para o proximo registro OBS: estique o componente memo até o tamanho que deseja na banda ( distancia de apenas uma linha ) na propriedade AutoSize = false e na propriedade AutoStretch = true abraço

exemplo: uses DateUtils; procedure DirectoryDateTimeInfo( const path : string ); var sr : TSearchRec; modifiedTime : TDateTime; creationTimeSystem: TSystemTime; lastAccessTimeSystem: TSystemTime; lastWriteTimeSystem: TSystemTime; creationTime: TDateTime; lastAccessTime: TDateTime; lastWriteTime: TDateTime; begin if sysUtils.FindFirst(path, faDirectory, sr) = 0 then try modifiedTime := FileDateToDateTime(sr.Time); FileTimeToSystemTime(sr.FindData.ftCreationTime, creationTimeSystem); with creationTimeSystem do creationTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds); FileTimeToSystemTime(sr.FindData.ftLastAccessTime, lastAccessTimeSystem); with lastAccessTimeSystem do lastAccessTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds); FileTimeToSystemTime(sr.FindData.ftLastWriteTime, lastWriteTimeSystem); with lastWriteTimeSystem do lastWriteTime := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds); ShowMessage(Format('Informação de Data e tempo para "%s"', [path])); ShowMessage(Format('Criado em: "%s"', [DateTimeToStr(creationTime)])); ShowMessage(Format('Ultimo Acesso: "%s"', [DateTimeToStr(lastAccessTime)])); ShowMessage(Format('Ultima Alteração: "%s"', [DateTimeToStr(lastWriteTime)])); ShowMessage(Format('Ultima Modificação: "%s"', [DateTimeToStr(modifiedTime)])); finally FindClose(sr); end else ShowMessage(Format('Não foi possivel obter informação para "%s"', [path])); end; procedure TForm1.Button1Click(Sender: TObject); begin DirectoryDateTimeInfo('C:\Teste1\1'); DirectoryDateTimeInfo('C:\Teste1\2'); DirectoryDateTimeInfo('C:\Teste1\3'); DirectoryDateTimeInfo('C:\Teste1\4'); end;

voce fez quase tudo, mas esqueceu da BIOS ... a ativação do monitor depende da BIOS ... ao ligar o micro, se voce não ouvir um bip, então o programa da BIOS não foi executado veja este artigo http://www.vas-y.com/dicas/curso/hardware/bios.html abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 1 to Query1.RecordCount do begin StringGrid1.RowCount := i; StringGrid1.Cells[0,i] := Query1Nome.Value; StringGrid1.Cells[1,i] := Query1Rua.Value; StringGrid1.Cells[2,i] := Query1Bairro.Value; StringGrid1.Cells[3,i] := Query1Cidade.Value; StringGrid1.Cells[4,i] := Query1CEP.Value; StringGrid1.Cells[5,i] := Query1UF.Value; Query1.Next; end; end; abraço

São diretivas de compilação... se apagar pode dar problemas abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); var max : Integer; min, max1 : Int64; begin max := High(Integer); ShowMessage('Max integer value = '+IntToStr(max)); max := High(Shortint); ShowMessage('Max Shortint value = '+IntToStr(max)); max := High(Smallint); ShowMessage('Max Smallint value = '+IntToStr(max)); max := High(Byte); ShowMessage('Max Byte value = '+IntToStr(max)); max := High(Word); ShowMessage('Max Word value = '+IntToStr(max)); max := High(LongWord); ShowMessage('Max LongWord value = '+IntToStr(max)); max := High(Cardinal); ShowMessage('Max Cardinal value = '+IntToStr(max)); min := Low(Int64); max1 := High(Int64); ShowMessage('Min int64 value = '+IntToStr(min)); ShowMessage('Max int64 value = '+IntToStr(max1)); end; abraço

Antes de comprar, peça ao vendedor para fazer um pequeno teste: leve num pendrive o intalador do interbase 6.0 e um banco de dados pequeno ex: Dados.mdb ... e instale no notebook se a conexão com o banco de dados levar de 30 a 45 segundos, não compre .. o processador é lento se a conexão levar apenas 1 segundo ou menos, então compre, pois o processador é muito bom abraço

BOOLEAN: Tipo lógico que pode assumir somente os valores TRUE ou FALSE e ocupa 1 byte de memória. BYTE: Tipo numérico inteiro, pode assumir valores numa faixa de 0 a 255, ocupa 1 byte. CHAR: Tipo alfa-numérico, pode armazenar um caractere ASCII, ocupa 1 byte. COMP:Tipo numérico real, pode assumir valores na faixa de -9.2.1018 a 9.2.10+18, ocupa 8 bytes, pode ter entre 19 e 20 algarismos significativos. EXTENDED: Tipo numérico real, pode assumir valores na faixa de 3,4.10-4932 a +1,1.10+4932, ocupa 10 bytes de memória e tem entre 19 e 20 algarismos significativos. INTEGER: Tipo numérico inteiro, pode assumir valores numa faixa de -32768 a +32767, ocupa 2 byte de memória. LONGINT: Tipo numérico inteiro, pode assumir valores numa faixa de -2147483648 a +2147483647, ocupa 4 bytes de memória. REAL: Tipo numérico real, pode assumir valores na faixa de -2,9.10-39 a +1,7.10+38, ocupa 6 bytes de memória e tem entre 11 e 12 algarismos significativos. SHORTINT: Tipo numérico inteiro, pode assumir valores numa faixa de -128 a +127, ocupa 1 byte de memória. SINGLE: Tipo numérico real, pode assumir valores numa faixa de –1,5,10-45 a +3,4.10+38, ocupa 4 bytes de memória, e tem de 7 a 8 algarismos significativos. WORD: Tipo numérico inteiro, pode assumir valores numa faixa de 0 a 65535, ocupa 2bytes de memória. STRING: Tipo alfanumérico, possuindo como conteúdo uma cadeia de caracteres. O número de bytes ocupados na memória varia de 2 a 256, dependendo da quantidade máxima de caracteres definidos para a string. O primeiro byte contem a quantidade relativa de caracteres da cadeia. exemplo: procedure TForm1.Button1Click(Sender: TObject); var min, max : Integer; const MaxInt = High(Integer); begin // seta o valor minimo e maximo para o tipo de dado min := Low(Integer); max := High(Integer); ShowMessage('Min integer value = '+IntToStr(min)); ShowMessage('Max integer value = '+IntToStr(max)); //O valor maximo para um inteiro é normalmente (2^32)-1 = 2,147,483,647 ShowMessage('Max integer value = '+IntToStr(maxint)); end; abraço

clique F5 para atualizar a pagina abraço

esse erro tá mais para a montagem da SQL do que para a linha de comando PRONT:= qry.fieldbyname('PRONT').AsInteger; abraço

Faltou colocar no uses uses MMSystem, SHDocVw; abraço