Progr'amador

Olá, Qual a versão do seu delphi? Qual a extensão desse arquivo? é componente ou pacote? Abs. Progr'amador.

Olá Tbaiano, use o QRDBRichText dentro de um um Band = rbDetail, e defina a pripriedade AutoStretch do QRDBRichText como True com isso o Band e QRDBRichText se ajusta de acordo com tamanho do texto. tipo: _______________________ asdas asda asasda asdasd asda asdas asd _______________________ asdasda asdaasd _______________________ asdasda asd asdasd asd asdasd asd asd asdasd _______________________ É isso que você ta querendo??? Abs. Progr'amador.

Olá Paulo, Use essa função; function DiskInDrive(const Drive: char): Boolean; var DrvNum: byte; EMode: Word; begin result := false; DrvNum := ord(Drive); if DrvNum >= ord('a') then dec(DrvNum,$20); EMode := SetErrorMode(SEM_FAILCRITICALERRORS); try if DiskSize(DrvNum-$40) <> -1 then result := true else messagebeep(0); finally SetErrorMode(EMode); end; end; Coloque no uses: ShellApi seu código ficaria +ou- assim: procedure TfrmCopiasDeSeguranca.cmdCopiarParaDisqueteClick( Sender: TObject); var Dados: TSHFileOpStruct; begin if DiskInDrive('a') then begin try FillChar(Dados,SizeOf(Dados), 0); with Dados do begin wFunc := FO_COPY; pFrom := PChar('C:\Pasta\Aniversariantes1.txt'); pTo := PChar('a:\'); fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(Dados); FillChar(Dados,SizeOf(Dados), 0); with Dados do begin wFunc := FO_COPY; pFrom := PChar('C:\Pasta\Aniversariantes2.txt'); pTo := PChar('a:\'); fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(Dados); FillChar(Dados,SizeOf(Dados), 0); with Dados do begin wFunc := FO_COPY; pFrom := PChar('C:\Pasta\Aniversariantes3.txt'); pTo := PChar('a:\'); fFlags:= FOF_ALLOWUNDO; end; SHFileOperation(Dados); except MessageBox(handle,'Não foi possível efetuar a cópia.'+#13+#10+'Entre em contato pelo email pcnobre@ig.com.br.','ERRO NO BACKUP',MB_IconStop); end; end else begin ShowMessage('Não Há disquete no drive.'); Exit; end; end; Abs. Progr'amador.

Olá, Faz assim: query.Close; query.Sql.clear; query.Sql.Add('Select * From cadastro Where Paciente like '+#39+edit1.text+'%'+#39); query.Open; Abs. Progr'amador.

Tem razão! rs. Viajei legal nessa De qualquer forma essa função que passei é boa, que se tiver mas de uma palavra em uma string ele não conta os espaços, já o Length conta tudo até os espaços entre as palavras. Valeu pela observação! Abs. Progr'amador.

Olá, Use essa função. function ContarLetras( s : string ) : integer; var ps: PChar; nSpaces,n,o : integer; begin n := 0; o := 0; s := s + #0; ps := @s[ 1 ]; while( #0 <> ps^ ) do begin while((' ' = ps^)and(#0 <> ps^)) do begin inc( ps ); inc(o); end; nSpaces := 0; while((' ' <> ps^)and(#0 <> ps^))do begin inc(nSpaces); inc(ps); inc(o); end; if ( nSpaces > 0 ) then inc( n ); end; Result := o; end; teste: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(ContarLetras(Edit1.Text))); end; Abs. Progr'amador.

Ops! tem um erro ae, tira a ultima aspa da select, deixe-a assim: QryIdade.Close; QryIdade.Sql.Clear; QryIdade.Sql.Add('Select * From Idade Where Id_Nome = '+#39+idNome+#39); QryIdade.Open; Outra coisa, a abertura da primeira quere não pode ser no combo, coloca no OnShow do form e o código acima você coloca no OnClick do 1º Combo. posta ae o os campos de sua tabela trator e marca, e quais os campos que fazem referencia. Abs. Progr'amador.

Olá, você ta usando banco de dados mdb mesmo? Altere o formato no proprio banco Access, lá deve ter uma opção de formato. Abs. Progr'amador.

Olá Carla, Eu num sei o que tem haver as tabela Nome e Idade com Trator e Marca, mas respondendo essa sua pergunta: ('No 1º lookup eu exibo todos os nomes. No 2º quero exibir só as Idades que forem iguais ao id do nome escolhido anteriormente') ficaria assim: use essa select pra tabela Nome: QryNome.Close; QryNome.Sql.Clear; QryNome.Sql.Add('Select * From Nome'); //Dessa forma ira exibir todos os nomes QryNome.Open; e no OnChange do dblookupcombobox; assim: idNome := QryNome.FieldByName('Id_Nome').Value; QryIdade.Close; QryIdade.Sql.Clear; QryIdade.Sql.Add('Select * From Idade Where Id_Nome = '+#39+idNome+#39'); QryIdade.Open; Abs. Progr'amador.

Olá locorj, Adicione no Uses do data module: projetocirus implementation uses projetocirus; {$R *.DFM} Abs. Progr'amador

Ae vai: http://geocities.yahoo.com.br/ecmsb/justificamemo.zip Abs. Progr'amador.

Impossivel não funcionar se tiver tudo correto, outras pessoas já testaram e funcionou... Se quizer posso te mandar um executavel ou ate mesmo o font pra você testar. Abs. Progr'amador.

Olá Beta, Crie uma outra tabela pra ter esse controle, que o valor seja alterado quando entrar e quando sair do programa. e Quando abrir verifica se o valor que ta no campo corresponde ao programa ta aberto ou não. Entendeu! Abs. Progr'amador.

Olá Ricardo, Isso só acontece se não obedecer esses dois requisitos, conforme postei lá: Abs. Progr'amador.

Olá Ricardo, Dê uma olhada no tópico abaixo, no exemplo ta sendo usado um memo, mas pode ser usado no RichEdit tambem. http://scriptbrasil.com.br/forum/index.php...=0entry241275 Abs. Progr'amador.

Olá, No DBGrid tem a opção ReadOnly, defina ela como TRUE. Abs. Progr'amador.

Olá, Qual a versão do seu delphi? Abs. Progr'amador.

Assim: DBEdit1.Text := DateToStr(DateTimePicker1.Date); Abs. Progr'amador.

Olá, Dê uma olhada nesse artigo aqui do portal http://scriptbrasil.com.br/?class=14&id=554 Abs. Progr'amador.

Olá, você ta usando DataSource nesse componete? verifique o componete de sua tabela tipo Query ou Table, você deve dar um open ou Active := true nesse componente pra que o Dblookupcombobox habilite. Abs. Progr'amador.

Olá, você poderia usar o FOR, tipo var i, parcela : integer; begin parcela := 6; for i := 1 to parcela do begin // aqui insere os dados // end; Abs. Progr'amador.

Qual a versao do seu delphi? já tem uma nova versao do QuickReport que converte em PDF, é a versão 4.05 disponivel para delphi 7 e delphi 2005. Abs. Progr'amador.

Olá kcris, tenta assim: qryMaisCulturas.Close; qryMaisCulturas.SQL.Clear; Cultura:= Lista.Items.Text; Manejo := cbManejo.text; qryMaisCulturas.SQL.Add('Insert Into MaisCultura (Cultura, ManejoCultura, indice_M, indice_U)'); qryMaisCulturas.SQL.Add('Values ('+#39+lstCulturas.selectedItem+#39+','+#39+cbManejo.Text+#39+',''M'',''U'' )' ); qryMaisCulturas.ExecSql; Abs. Progr'amador

Como assim??? você quer dizer - migrar pro Delphi 6 ?? Quais são as dificuldades? ta dando algum erro? chega de perguntas, né!! Abs. Progr'amador.

Olá, Poderia usar assim tambem: Defina a propriedade KeyPreview do form como TRUE. e no evento OnKeyDown do form: if (Shift = [ssCtrl]) then case Key of 78: BtnNovoClick(Sender); // 78 = código ascii da tecla 'N' end; (CTRL+N) Abs. Progr'amador.