Jhonas

Faça uma pesquisa no forum .... veja o que encontra http://scriptbrasil.com.br/forum/index.php...ite=rAVE+rEPORT abraço

A dica é.. trate a formatação independente nos 3 reports ( Report Settings ) para depois ajuntar. Procure usar sempre os mesmos parâmetros. abraço

Faça uma pesquisa no forum pela palavra chave Backup e eja o que encontra por exemplo tem este post sobre o assunto http://scriptbrasil.com.br/forum/index.php...st&p=481163 abraço

Este é um trabalho de escola para fazer um programa para ordenar ( crescente ) os numeros digitados ( + não quer dar muito certo... ) isto siginifica que voce fez alguma coisa... então poste o codigo para que alguém possa lhe ajudar OBS: se voce não fez, e quer que alguém lhe de o programa pronto, dificilmente voce aprenderá alguma coisa abraço

Veja neste endereço http://www.brothersoft.com/downloads/delphi-5.html abraço

tradução do erro:

Voce pode tentar algo assim: procedure TForm1.Button1Click(Sender: TObject); begin If (pos('in',Edit1.text)> 0) or (pos('im',Edit1.text)> 0) or (pos('í',Edit1.text)> 0) Then Begin Showmessage('Prefixo Latino (IN-, IM- ou I-) com sentido de (negação; falta)'); Edit1.setfocus; edit1.clear; end else If (pos('ab',Edit1.text)> 0) or (pos('abs',Edit1.text) > 0) then Begin Showmessage('Prefixo Latino (AB- ou ABS-) com sentido de (afastamento; separação)'); Edit1.setfocus; edit1.clear; end else If (pos('AD',Edit1.text) > 0) or (pos('A',Edit1.text) > 0) then Begin Showmessage('Prefixo Latino (AD- ou A-) com sentido de (Aproximação; tendência; direção)'); Edit1.setfocus; edit1.clear; end else If (pos('ambi',Edit1.text) > 0) then Begin Showmessage('Prefixo Latino (AMBI-) com sentido de (Duplicidade)'); Edit1.setfocus; edit1.clear; end; end; abraço

Se voce estiver usando uma banda de detalhe, os registros excedentes serão mostrados em uma nova pagina ou se quiser determinar quantos registros deverão ter na pagina, voce deve criar uma condição para tal, usando o evento OnPrint do campo que quer controlar usando um contador exemplo: procedure TQRRelAnual.QRDBText3Print(sender: TObject; var Value: String); begin a := a + 1; if a = 20 then begin QRRelAnual.ForceNewPage; a := 0; end; end;

Veja este post http://scriptbrasil.com.br/forum/index.php?showtopic=124955 abraço

Basta alterar um pouco a função que voce está usando Function ConverteMaiuscula(Texto : string):String; {Converte a primeira letra de todas as palavras de uma string para maiúscula é o resto para minuscula} var Contador : integer; Linha : string; begin Result := ''; Texto := Trim(Texto); repeat Contador := Pos(' ', Texto); if (Contador <= 0) then Contador := Length(Texto) + 1; Linha := UpperCase(Copy(Texto, 1, Contador-1)); if (Length(Linha) <= 2) or (Linha = 'DAS') or (Linha = 'DOS') then begin Result := Result + Copy(Texto, 1, Contador-1) end else begin Result := Result + UpperCase(Texto[1]) + AnsiStrLower(Pchar(Copy(Texto, 2, Contador-2))); end; Delete(Texto, 1, Contador); if (Texto <> '') then begin Result := Result + ' '; end; until (Texto = ''); end; abraço

Isto não é problema, se na hora da impressão voce fizer o ajuste na impressora, ou inda se fizer um ajuste de folha no proprio report. Utilize o Report Settings para alterar as configurações de pagina e tamanho abraço

Tente este endereço: http://seucolega.wordpress.com/2007/07/21/...-o-delphi-2007/ abraço

Eu utilizo o RxTrayIcon1 do pacote RX... voce deve verificar qual é o componente usado no seu projeto para esta finalidade. OBS: Caso voce queira usar este componente, digite na pesquisa do forum RX .. existem posts com atalho para download dos componente e explicação de instalação no delphi. abraço

Não deveria ser assim.. neste exemplo joguei mais de 1000 caracteres no memo e fiz o RichText receber todo o conteudo do memo... os 1000 caracteres foram aceitos no RichText. procedure TForm1.Button1Click(Sender: TObject); begin QRRichText1.Lines.Text := Memo1.Lines.Text; end; OBS: ( sendo q o campo no banco é do tipo memo.) veja qual o tamanho definido para o campo, ou então tente usar um campo Blob abraço

isto pode ser configuração do preview na tela. abraço

faça o seguinte .. use uma query separada somente para esta finalidade, ou seja , somente para preencher o DBCombobox ( link com a query ) , com os registros que voce precisa. abraço

voce pode colocar o comando em um Edit, já que ele será usado apenas para consulta. exemplo: procedure TFAtesta.Edit1Change(Sender: TObject); begin AtestaX_IB.Open; AtestaX_IB.First; if AtestaX_IB.Locate('EMPRESA',trim(Edit1.text),[loPartialKey]) then begin // comandos se o registro for localizado end else begin // comandos se o registro não for localizado end; end; abraço

Verifique se ainda existe o componente responsavel por isso no seu programa depois de um Build All no projeto.. e veja se ele volta a aparecer. abraço

Mais informações sobre finalizar um processo http://scriptbrasil.com.br/forum/index.php...st&p=397161 qual processo ? o do proprio executavel ou outro ? tente ser mais claro. abraço

Atualização da compatibilidade de aplicativos para o Windows Vista http://support.microsoft.com/default.aspx/kb/932246 abraço

Esse código estranho, nada mais é que os comandos que o word gera para um arquivo richtext. Voce pode salvar dentro de um banco de dados, ou pode salvar o arquivo fora, em uma pasta qualquer do seu Hd. pesquise no forum pela palavra-chave export e veja o que encontra http://scriptbrasil.com.br/forum/index.php...st&p=467362 abraço

Veja nestes endereços: http://www.codigofonte.net/scripts-1194/dial-up http://www.programmersheaven.com/mb/delphi...tails/?S=B20000 Varios componentes para comunicação dial_up http://www.torry.net/pages.php?id=201&sort=Title Programas prontos http://superdownloads.uol.com.br/busca/dial_2Eexe.html Outros Componentes de comunicação http://www.codigofonte.net/scripts/delphi/compcomunicacao abraço

( minha variavel aux2 continua zerada após esta linha ser executada ) isto só ocorre se a variavel aux foi zerada em algum lugar.. verifique outro exemplo: procedure TForm1.Button1Click(Sender: TObject); var Aux : string; Aux2, val : real; begin val := 5.7555555; Aux := floattostr(round(val * 100)/100); label1.Caption := Aux; Aux2 := strtofloat(Aux); label2.Caption := formatfloat(',0.00',Aux2); // Aux = resposta 5,76 // Aux2 = resposta 5,76 end; abraço

Veja o que encontra neste endereço: http://www.ziggi.com.br/downloads/mydac-da...ents-para-mysql abraço

Use um componente do ActiveX do delphi chamado Microsoft Script Control mais informações nest post: http://scriptbrasil.com.br/forum/index.php...st&p=441291 abraço