Jhonas

Se não for isso, faça as modificações program Project2; {$APPTYPE CONSOLE} uses SysUtils; Var vetor_a, vetor_b:array [1..5] of integer; vetor_c:array [1..10] of integer; i, x, y, z:integer; Begin x := 0; y := 0; for i := 1 to 5 do begin read (vetor_a[i]); read (vetor_b[i]); end; for i := 1 to 10 do begin if vetor_a[i] mod 2 = 0 then begin x := x + 1; vetor_c[i] := vetor_a[x]; end; if vetor_b[i] mod 2 <> 0 then begin y := y + 1; vetor_c[i] := vetor_b[y]; end; end; writeln('Valores Pares'); for z := 1 to 10 do begin if z mod 2 = 0 then writeln (vetor_c[z]); end; writeln('Valores Impares'); for z := 1 to 10 do begin if z mod 2 <> 0 then writeln (vetor_c[z]); end; End. abraço

Voce tem que deixar o Form1 e o Form2 como fsNormal abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ite=Foreign+key abraço

O Douglas_Soares te passou um link que trata desse assunto abraço

voce terá que usar o Delphi For Php http://www.brothersoft.com/delphi-for-php-69397.html http://www.agatetepe.com.br/tutorial/delph...r-php-1796.html http://www.delphisophp.com/Default.php http://www.oficinadanet.com.br/apostilas/d...i_para_php_guia http://www.apostilando.com/sessao.php?cod=13 abraço

Sua dúvida está um tanto confusa ... qual sistema ? Operacional ou o delphi ? Veja se é isto que está querendo http://pascal-zim.softonic.com.br/ http://pascal-zim.softonic.com.br/download abraço

Não deu certo aparece so os 3 primeiros numeros 523. . / - o correto do editmask é: 000\.000\.000/0000\-99;1;_ OBS: Nesse exemplo usando essa mascara voce faz o seguinte digita no MaskEdit1 o CNPJ ... clicando no botão1 o CNPF apareçe no Edit1 com a mascara depois voce clica no botão2 e o CNPF apareçe novamente no MaskEdit2 com a mascara unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Mask, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; MaskEdit1: TMaskEdit; Button2: TButton; MaskEdit2: TMaskEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := MaskEdit1.Text; end; procedure TForm1.Button2Click(Sender: TObject); begin MaskEdit2.Text := Edit1.Text; end; end. Exemplos de Mascaras abraço

Amigo ... será mais facil voce pesquisar e tentar resolver o problema http://scriptbrasil.com.br/forum/index.php...highlite=matlab abraço

Veja um exemplo de como usar campos calculados http://www.susviela.hpg.ig.com.br/delphi/d..._calculados.htm abraço

Para aprender como fazer isso de maneira simples, faça uma analogia entre esses processos Va em Database > Form Wizard e aprendera um jeito muito simples de fazer isso OBS: use para aprender o banco de dados nativo do delphi ( Paradox ) depois voce pode evoluir para outro banco abraço

se voce estiver usando o componente ADO para conexão com o banco de dados veja no help do delphi TCustomADODataSet.RecNo Indicates ordinal position of the active record in the recordset. Indica a posição ordinal do registro ativo no recordset. property RecNo: Integer; Description Read RecNo at runtime to determine the ordinal position of the active record within the dataset’s recordset. The dataset must be active for RecNo to have a valid value. When a dataset component is active, RecNo will be a number between one and the total number of rows in the recordset (reflected in the RecordCount property). The value of Recno for a given row in a recordset is relative to the rows that precede the current row. Thus, if a check of RecNo for a row indicates 10 and then a preceding row is deleted, a subsequent inspection of RecNo will show a new position of 9. In the example below, the RecNo and RecordCount properties of a TCustomDataSet descendant are used to display the current record's number and the total number of records in a TStatusBar component. This would be done in a handler for the AfterScroll event of the ADO dataset component so that it is updated after each row pointer movement. StatusBar1.Panels[0].Text := 'Record ' + IntToStr(TCustomADODataSet(DataSet).RecNo) + ' of ' + IntToStr(TCustomADODataSet(DataSet).RecordCount); Set RecNo at runtime to move the record pointer to the record at the specified absolute position within the recordset. Use the value of the RecordCount property to determine the maximum number to which RecNo can be set. For example, going to the last row using RecNo: ADOTable1.RecNo := ADOTable1.RecordCount; Note: The number of rows indicated might be less than the total number of rows in a table. This can happen when the rows retrieved as a recordset for a dataset component are a conditional subset of the table. abraço

se voce usar uma banda de detail com os campos necessarios dentro dele, haverá quebra automatica de paginas nesse caso ( com apenas 1 quickreport ) não é aconselhavel utilizar o QrCompositeReport ... use somente o quickreport faça uma busca no forum http://scriptbrasil.com.br/forum/index.php...ite=quickreport abraço

necessariamente não , apenas as dlls do firebird é que deverão estar no cliente para que o programa funcione Faça uma pesquisa no forum ... em um dos posts vai encontrar quais são as dlls necessarias http://scriptbrasil.com.br/forum/index.php...ghlite=firebird abraço

if data[scan]=strtoint(value.Text) then [Advertindo] Unit1.pas(87): Comparando tipos com sinal e sem sinal - alargado ambos os operandos data é um tipo dword que voce esta tentanto comparar com uma conversão de texto para inteiro Foundlist2.InsertRow(inttostr(scan+eaddress),Edit1.Text,true); [Erro] Unit1.pas(89): identificador não declarado: ' InsertRow' está faltando a uses para Foundlist2, pois a propriedade InsertRow não foi encontrada abraço

o correto do editmask é: 000\.000\.000/0000\-99;1;_ abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...hlite=ponteiros abraço

Erro: um erro ocorreu enquanto tentava inicializar o BDE O Delphi 7 não permite que o BDE tenha acesso para escrita .. neste caso voce tem que atribuir permissão total para que o BDE possa ser inicializado e conectado por sua aplicação abraço

Voce quer aprender ou quer tudo de bandeja ....rs se voce olhar o exemplo que te passei no post http://scriptbrasil.com.br/forum/index.php...st&p=583811 verá que voce pode trocar o database por um memo e conseguir esse resultado ( ou se pesquisar existe um post com essa duvida usando um Memo ) .... então se esforce um pouquinho que voce consegue .... não é dificil abraço

tirando o database fica assim: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) FindDialog1: TFindDialog; RichEdit1: TRichEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top); FindDialog1.Execute; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; X : INTEGER; vBusca : string; begin X := 0; with RichEdit1 do begin WHILE X <= RichEdit1.Lines.Count DO BEGIN if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; end; INC(X); END; end; end; end. abraço

Enviei um email para voce ...

Veja eses posts ... mude o código para seu uso http://scriptbrasil.com.br/forum/index.php...st&p=574689 http://scriptbrasil.com.br/forum/index.php...st&p=575073 abraço

acho que não .. veja esse link http://www.obsof.com/delphi_tips/delphi_tips.html#Speed abraço

Vá em Tools > Editor Options > Color e mude as cores do jeito que preferir abraço

experimente usar assim Frmimparquivos.qr_imparquivos.Previewmodal ou ainda assim try if Frmimparquivos.qr_imparquivos.Preview = Nil then Frmimparquivos.qr_imparquivos := TFrmimparquivos.qr_imparquivos.Create(self); except ShowMessage('Erro na criação do relatório!!'); exit; end; Frmimparquivos.qr_imparquivos.Prepare; Frmimparquivos.qr_imparquivos.PreviewModal; abraço

Criação Dinâmica do Relatório: Application.CreateForm(TfrmRelatorio,frmRelatorio); frmRelatorio.QRCompositeReport1.Prepare; frmRelatorio.QRCompositeReport1.Preview; FreeAndNil(frmRelatorio); Voce limpou da memoria o frmRelatorio ( FreeAndNil(frmRelatorio) ) , mas não fez o mesmo com QuickRep1 e QuickRep2 ... por isso acontece de hora aparecer a imagem e hora não. abraço