Fazzioni

Boa tarde, Você poderia criar apenas um modelo e carregar toda vez no oncreate do form. Você pode utilizar a propriedade parent. Por exmeplo deixe ele na memoria de um formulario Exemplo // no evento on create Begin Application.createform(TFormExemplo, Fexemplo); Twincontrol(Fexemplo.panel1).parent := self; { atenção o panel está na memoria junto com o formulario "Fexemplo", porém está sendo exibido no novo form ("SELF"); não testei, mas acredito que ao liberar o formulário "Fexemplo" ocorrerá um erro, antes de liberar o form ("self"); } end; Outra maneira seria desenhar o form novo dentro do form dos menus. Exemplo Begin // Estou admitindo que Form2 ja foi criado Form2.parent := self; // {Aqui poderia usar um panel} form2.left := 0; form2.top := 0; form2.show; end; Abraços.

Saudações senhores (as), Estou enfrentando um problema com o Arduíno, ele para de responder quando ligo um ventilador (220 AC) a um rele. Vi em alguns fóruns, algumas pessoas resolvendo com um snubber, falando que o motor estaria gerando ruídos, etc. Sou novo em eletrônica, não sei aonde deveria colocar um capacitor e muito menos a capacitância, se é que esse seria o jeito correto de resolver o meu problema. Módulo Relé: Estou alimento todo o circuito com uma fonte atx. O vcc do módulo relé está ligado direto na fonte atx e o signal está ligado direto nos pinos digitais do Arduíno. Qualquer ajuda é bem vinda, grato pelo tempo.

foi bastante utilizada por aplicativos de gerenciamento loja, muitos aplicativos (líderes de mercado) ainda continuam com o bom pascal. Certamente ela ajuda muito com processamento de arquivos. tanto antiga e Defasada? por que achas isso? se ela permite criar aplicativos para android, ou achas isso porque é de alto nível? Linguagens superiores? Amigo, quem faz o programa é o programador não a linguagem.

tem, indo direto no field, mas qual o erro? No delphi nativo ficaria assim: qryResultadoslfConcurso.value ou qryResultadoslfConcurso.asstring

Teste isso: qryResultadoslf.Locate('codigo', VarArrayOf([10]), []); showmessage(qryResultadoslf.Fields[0].AsString);

huum, Zeos não trabalha com DB, puxa Qual a classe do componente que você esta fazendo a ligação? ZQuery? ZTable? Qual a versão do Zeos?

tente agora: Adicione a unit: DB var i : integer; TBL : TDataSet; begin //Variavel para receber a tabela, apenas para facilitar TBL := DBGrid1.DataSource.DataSet; // procura a o registro // verificando se existe um field chamado "CODIGO" if tbl.Fields.FindField('codigo') = nil then ShowMessage('Campo "Codigo" não existe') else // Field existe if TBL.Locate( 'codigo', 10 ,[]) then //Vai para o registro com codigo = a 10 showMessage('Reg 10 encontrado') else ShowMessage('Reg 10 não encontrado'); //Percorre os fields e traz os valores for i := 0 to TBL.Fields.Count -1 do ShowMessage('Field '+IntToStr(i)+': '+TBL.Fields[i].FieldName+#13+' Valor: ' +TBL.Fields[i].AsString);

@Alexandre Rezende qual é o nome do dbgrid?

Bom, eu nunca trabalhei com lazarus nem com Zeos, Você ja fez a conexão? está listando os registros em um dbgrid? Coloque um botão e teste estes códigos: var i : integer; TBL : TDataSet; begin //Variavel para receber a tabela, apenas para facilitar TBL := TABELA; // procura a o registro if TBL.Locate( /'FIELDNAME/', /VALORDOREGISTRO ,[]) then ShowMessage('Reg encontrado'); // Percorre os fields e traz os valores for i := 0 to TBL.Fields.Count -1 do ShowMessage(TBL.Fields[i].FieldName+#13+TBL.Fields[i].AsString);

Obrigado pela dica, mas quero distância desses sistemas com tinta @wwp e @grievous, essa Laserjet 1102W me interessou, mas por que esta diferença nos toners? Só por um ser original? @grievous, Já enfrentou algum problema ou se incomodou com ela?

Você está utilizando qual componente para fazer a ligação? Mas, não seria o simples? listar o fields, ir na linha e pegar os valores?

Geralmente ocorre quando a tabela está fechada, Qual banco de dados está utilizando? quais componentes está fazendo a ligação no delphi com o banco? Você pode utilizar no evento OnShow do form: //Abre a tabela quando abre o Form Tabela.open; e no evento OnClose: // fecha a tabela quando fecha o form tabela.close; Mas tudo depende da sua necessidade

Explique melhor seu problema, quanto mais informações mais fácil de ajudar. Você está enviando para impressão com delphi? Ou você quer listar os documentos na bandeja do windows e verificar?

Bom dia srs, desejo comprar uma impressora, porém já me incomodei de mais com aquelas domésticas com cartucho (entupindo, vazando, travando, cuspindo, etc) por isso desejo comprar uma a laser, minha necessidade é apenas preto e branco. Tenho ideia de gastar cerca de 500 reais e vou imprimir próximo de 2000 paginas por mês. Não tenho necessidade de multifuncionais nem mesmo de scanner, se não tiver duplex também não me incomoda. A ideia é custo benefício visto que haverá semanas que não vai ser utilizada, isso seria um problema com tinta e nas laser há problema? Qualquer sugestão de compra é bem vinda, obrigado pelo seu tempo

Você declarou a unit math? abaixo algumas funções dela: { Trigonometric functions } function ArcCos(const X: Extended): Extended; { IN: |X| <= 1 OUT: [0..PI] radians } function ArcSin(const X: Extended): Extended; { IN: |X| <= 1 OUT: [-PI/2..PI/2] radians } { ArcTan2 calculates ArcTan(Y/X), and returns an angle in the correct quadrant. IN: |Y| < 2^64, |X| < 2^64, X <> 0 OUT: [-PI..PI] radians } function ArcTan2(const Y, X: Extended): Extended; { SinCos is 2x faster than calling Sin and Cos separately for the same angle } procedure SinCos(const Theta: Extended; var Sin, Cos: Extended) register; function Tan(const X: Extended): Extended; function Cotan(const X: Extended): Extended; { 1 / tan(X), X <> 0 } function Secant(const X: Extended): Extended; { 1 / cos(X) } function Cosecant(const X: Extended): Extended; { 1 / sin(X) } function Hypot(const X, Y: Extended): Extended; { Sqrt(X**2 + Y**2) }

Tem o .dfm, mas lá tem os valores das variáveis dos objetos. Essas variaveis que você está usando, estão aonde? na mesma unit? ou são constantes declaradas em outras units?

Sentiu alguma diferença no HD, barulho para escrita e leitura? diminuição da velocidade? Provavelmente é mau contato, verifique se os cabos estão bem conectados, se continuar, troque esse cabo Sata

Só por curiosidade, você não estava utilizando o Utorrent enquanto jogava ne? Bom, acredito que foi pro saco, se não funcionar em algum outro micro, procure algum tutorial para testar os capacitores, talvez algum esteja com defeito, o que acho muito difícil.

Você conectou os plug de alimentação na placa de vídeo? como iniciou o problema? É nova? fez Overclock? tem algum micro para testar a placa de vídeo? Quanto mais informações você postar, mais fácil será resolver seu problema

Eu também tenho essa preferência gritante pelo pascal, também me sinto em casa com ele, sem dúvidas se existir uma possibilidade escolheria ele, mas essa não é minha praia, então não consigo te ajudar Vi algumas pessoas falando bem para android, mas era coisas básicas. Quanto a componentes de terceiros, não gosto de utilizar e se não for open source, tem que fazer milagre

Não acredito que o delphi seria interessante para esse tipo de aplicação, daqui a pouco é mais vantagem investir em uma linguagem específica. Mas se escolher o delphi, recomendaria o mais atualizado em vista das políticas de cada sistema e antivírus. Não sei o que quer fazer, mas se for coisa simples talvez consiga usando a indy mesmo

Olá amigo, tomei a liberdade de editar um pouco o código program Programa_Final; {$APPTYPE CONSOLE} uses SysUtils; Type TPeople = record Nome : ShortString; Idade : byte; Xp : char; XpValue : byte; Sexo : char; end; VAR Pessoa : Array of TPeople; Numero_Feminino, Numero_Masculino, NMasEXP, NFemEXP : Integer; SomaIdade : integer; SIdadeM, SidadeF : integer; Quant, i : integer; CandidatoXp : integer; begin // inicializar variaveis Numero_Feminino := 0; Numero_Masculino := 0; NMasEXP := 0; NFemEXP := 0; SomaIdade := 0; SIdadeM := 0; SidadeF := 0; CandidatoXp := 0; Writeln('Digite quantos candidatos se apresentaram'); Readln(Quant); // Cria o array do tamanho solicitado SetLength(Pessoa,Quant); For I:= low(pessoa) to high(pessoa) DO Begin Writeln('Digite o nome'); Readln(pessoa[i].Nome); Writeln('Digite a idade'); Readln(pessoa[i].Idade); SomaIdade := SomaIdade + pessoa[i].Idade; Writeln('Digite o sexo. M ou F'); Readln(pessoa[i].Sexo); if Pessoa[i].Sexo = 'F' then begin inc(Numero_Feminino); SidadeF := SidadeF + pessoa[i].Idade; end else begin inc(Numero_Masculino); SidadeM := SidadeM + pessoa[i].Idade; end; Writeln('Possui experiencia ? S/N'); Readln(pessoa[i].xp); if Pessoa[i].Xp = 'S' then begin if Pessoa[i].Sexo = 'F' then inc(NFemEXP) else inc(NMasEXP); Writeln('Quantos anos de experiencia voce tem'); Readln(pessoa[i].xpvalue); //verificar se este candidato tem mais experiencia if (CandidatoXp = -1) or (Pessoa[i].XpValue > pessoa[CandidatoXp].XpValue) then CandidatoXp := i; end; End; //CASO DE ERRO COLOCA O END NO FIM!!!! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Writeln('O número de candidatos do sexo feminino e ',Numero_Feminino); Writeln('O número de candidatos do sexo masculino e ',Numero_Masculino); Writeln('O número de homens que já possui experiência no serviço ',NMasEXP); Writeln('O número de homens que não possuem experiência no serviço ',numero_masculino - NMasEXP); Writeln('O número de mulheres que já possuem experiência no serviço ',NFemEXP); Writeln('O número de mulheres que não possuem experiência no serviço ', numero_feminino - NFemEXP); if CandidatoXp <> -1 then Writeln('O nome do candidato com maior tempo de experiência no serviço ',pessoa[candidatoXp].NOME); Writeln('A soma de todas as idades ',Somaidade); Writeln('A média de todas as idades ',Formatfloat('0.00',SomaIdade / length(Pessoa) )); if Numero_Feminino > 0 then // impossível dividir por ZERO Writeln('A média de todas as idades do sexo feminino ',Formatfloat('0.00',SidadeF / Numero_Feminino)); if Numero_Masculino > 0 then Writeln('A média de todas as idades do sexo masculino ',Formatfloat('0.00',SidadeF / Numero_Masculino)); Readln; Se tiver alguma dúvida só perguntar

Tipo esses, através daquela unit você consegue acessar o controle, acredito que funciona com qualquer joystick

outra solução seria comprar aqueles controles usb baratinho, acha por menos de 10 pila e é fácil de usar, adiciona a classe TJoyInfo da unit MMSystem

hahahah, vou testar com um de 500 mg/h, vamos ver como vai ficar