Progr'amador

o erro quer dizer: Insufficient shared memory available É problema de memória insuficiente, Esse erro ocorre sempre??? Abs. Progr'amador. B)

Olá, Acho que o máximo que você vai conseguir é obter o intervalo entre duas data, usando o TMonthCalendar, definindo True na opção MultiSelect e usando o código abaixo no OnClick, clique data inicial e arraste até data final: Label1.Caption := DateToStr(MonthCalendar1.Date); Label2.Caption := DateToStr(MonthCalendar1.EndDate); Abs. Progr'amador. B)

Olá juniorboll, Com relação ao erro falar sobre o Memo eu não entendi o porque disso, só que o procedimento que você esta fazendo esta errado, você esta jogando valores diretamente pros DBEdits, o correto é você jogar esses valores pros campos de seu Table ou Query que esta ligado a esses DBEdits. Table1.FieldByName('CAMPO1').AsString := v1; Table1.FieldByName('CAMPO2').AsString := v2; Table1.FieldByName('CAMPO3').AsString := v3; Abs. Pogr'amador. B)

Olá, se for só pra mudar a cor fonte faz assim: procedure TForm1.Marcar1Click(Sender: TObject); begin AdvStringGrid1.Font.Color := clBlue; end; procedure TForm1.Desmarcar1Click(Sender: TObject); begin AdvStringGrid1.Font.Color := clBlack; end; Abs. Progr'amador. B)

Olá, É só declarar RichEdit no uses: Abs. Progr'amador. B)

Olá PERNAMBUCO, Tenta assim: SELECT A.codigo, A.descricao, B.NumeroProducao, B.Data, C.QTD FROM pro_produto A, PRO_PRODUCAO B, PRO_DETALHE_PRODUCAO C WHERE B.NumeroProducao = C.NumeroProducao AND C.CodigoProduto = A.codigo Abs. Progr'amador. B)

CASE COM STRINGS uses StrUtils; ... case AnsiIndexStr(Str, ['String1', 'String2', 'String3']) of 0 : // Str = 'String1' 1 : // Str = 'String2' 2 : // Str = 'String3' -1 : // Nenhuma das três strings acima end; Abs. Progr'amador. B)

Olá André, Não entendi bem a estrutura e a relação entre as tabelas mas você teria que fazer algo do tipo: select d.disnome, a.alunome, t.mtunrdiario, bimestre1, bimestre2, bimestre3, bimestre4 from (select notnota as bimestre1 from cad_notas where notmedia = '1') as b1, (select notnota as bimestre2 from cad_notas where notmedia = '2') as b2, (select notnota as bimestre3 from cad_notas where notmedia = '3') as b3, (select notnota as bimestre4 from cad_notas where notmedia = '4') as b4, cad_disciplinas d inner join cad_grades g on g.graexerc = "2006" ... Se você pudesse me passar a estrutura, talvez ficaria mais fácil pra da uma ajuda mais precisa. Abs. Progr'amador. B)

Olá, Faz assim: var nome, otronome : string; begin nome := 'João'; otronome := 'Maria'; if application.MessageBox(pChar('Deseja gravar relacao entre '+nome+' e '+otronome+' ?'), 'Confirma', + mb_yesno+mb_iconquestion+mb_defbutton2)=idyes then Abs. Progr'amador. B)

Ok, só uma dica pra evitar problemas com esses espaços, use sempre o comando Trim, que mata esse prioblema: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * From dadosfrigorifico'); Query1.SQL.Add('Where frigorifico = '+#39+ Trim(dbcombobox2.Text) +#39+''); Query1.Open; Abs. Progr'amador. B)

Olá Cleverson, Qual banco de dados você está usando? você chegou a alterar o tamanho do campo em algum momento? Abs. Progr'amador. B)

Pow eu já ia até perguntar se é a foto dele :ph34r: rs!

Ok! ;) fico no aguardo. Abs. Progr'amador. B)

Olá darth_ivan, De uma olhada nesses tópicos: http://scriptbrasil.com.br/forum/index.php?showtopic=90141 http://scriptbrasil.com.br/forum/index.php?showtopic=90136 Abs. Progr'amador. B)

o #39 represente o codigo ascci das aspas. Com isso você esta dizendo que esta usando a tal aspa na select. Faça um teste: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * From dadosfrigorifico'); Query1.SQL.Add('Where frigorifico = '+#39+ dbcombobox2.Text +#39+''); Query1.SQL.SaveToFile('C:\Select.txt'); Query1.Open; ou Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * From dadosfrigorifico'); Query1.SQL.Add('Where frigorifico = '+''''+dbcombobox2.Text +''''+''); Query1.SQL.SaveToFile('C:\Select.txt'); Query1.Open; Com esse código será criado um arquivo texto com a select da forma que esta sendo executada, faça o teste posta o que esta dentro desse arquivo texto. Abs. Progr'amador. B)

está dando algum erro? esse campo frigorifico está correto? Isso num está errado não: Query1.SQL.Add('Where frigorifico = '+ #39 + dbcombobox2.Text + #39 + ''); tenta usar Parametros: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select * From dadosfrigorifico'); Query1.SQL.Add('Where frigorifico = :frig '); Query1.ParamByName('frig').AsString := dbcombobox2.Text; Query1.Open; Abs. Progr'amador. B)

pow é isso é??? Acho que num tem segredo não, ele só tem saber programar tanto em delphi como em php e fazer as duas aplicações conectando na mesma base. Qualquer coisa o Micheus traduz!!! rs :D Abs. Progr'amador. B)

Tem algum tradutor aew??? :D

pra mostar num showmessage é da mesma forma. Abs. Progr'amador. B)

Olá juniorboll, Não entendi por você esta usando esse 'As frigorifico', com essa expressão você esta renomeando a tabela. Select * From dadosfrigorifico As frigorifico Abs. Progr'amador. B)

Olá ranilson, Use o While para percorrer a tabela: ComboBox1.Clear; Table1.First; While not Table1.EOF do begin ComboBox1.Itens.Add('Table1.FieldByName('Nome_Funcioario').AsString'); Table1.Next; end; Abs. Progr'amador. B)

A pergunta ficou na mesma, se você quer uma resposta mas detalhada, seja mas detalhado, tipo, onde você está fazendo essa consulta?, qual componente você está usando pra conexão? e esse msgbox??? :huh: tem certesa que é delphi mesmo, msgbox é usada na linguagem VB. :unsure: Abs. Progr'amador. B)

Olá Ivano, Deve ser o processador de sua máquina. O Delphi 6 e 7 não são tão pesados assim, quer ver coisa "horivem" é o Delphi 2005, até parei de usar devido a lentidão, e olha que meu PC é um Pentium 4 3.2 GHtz, 1 GB de RAM, e assim mesmo o trem não roda legal. Qual o configuração de sua m,áquina? Abs. Progr'amador. B)

Seria tipo: select * from Tabela where campo like '%Palio% --- select * from Tabela where campo like '%Uno% --- Abs. Progr'amador. B)

Olá galera, Essa é antiga, rs No dia 14 de Maio de 2005, o Paulo Nobre abriu esse tópico: Tudo Dentro Do Exe onde houve participação minha e do s3c. Para que possam entender leia este tópico Pergunto: Tenho um arquivo txt detro do meu exe, é possível tirar os dados de dentro desse arquivo (txt) sem ter que extraí-lo e jogar numa variável? ou seja, executar somente da memória? Na dica do s3c ele executou um arquivo Wav sem extraí-lo, diretamente da memória. Entenderam???? Abs. Progr'amador. B)