Jhonas

A tela acima mostra que para cada tipo de contrato/parte de contrato, pode-se ter várias clausulas. Tentei configurar isso em uma stringgrid mais não foi possível. Será que existe algum outro componente que eu possa ir montando isso manualmente em tempo de execução ?. Voce pode usar o TMemo, TRichEdit, o TOleContainer junto com o Word, ou alguns componentes da paleta Servers abraço

Se voce não usar a fonte Courrier ( que tem espaçamentos iguais entre os caracteres ) fica dificil. outra solução na hora da impressão é controlar a propriedade Top e Left do componente ou do QR Informações úteis sobre os códigos da impressora http://scriptbrasil.com.br/forum/index.php...st&p=477817 abraço

Voce precisa clicar no icone e depois clicar dentro do form para que o componente seja colocado dentro dele. Para outras informações sobre o Firebird, faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ghlite=firebird abraço

Exemplo: Matriz dinamica de uma dimensão procedure TForm1.Button1Click(Sender: TObject); var i : integer; MeuArray : Array of Integer; begin memo1.Clear; SetLength(MeuArray,StrToInt(Edit1.Text)); // declaro o tamanho da minha matriz for i := 0 to StrToInt(Edit1.Text)-1 do begin MeuArray[i] := i * 2; memo1.Lines.Append('MeuArray['+inttostr(i)+']= '+ inttostr(MeuArray[i])); end; end; Exemplo: Matriz dinamica bidimensional procedure TForm1.Button1Click(Sender: TObject); var MeyArray: array of array of integer; //matriz A,B,I,J : Integer; begin A:= 3; B:= 3; SetLength(MeyArray,A,B); // matriz dinamica bidimensional de 3 x 3 memo1.Clear; for i := 0 to A-1 do for j := 0 to B-1 do begin MeyArray[i,j] := i + j; memo1.Lines.Append('MeyArray['+inttostr(i)+','+inttostr(j)+']= '+ inttostr(MeyArray[i,j])); end; end; abraço

troque a bateria ou de um clear no CMOS ... tem um jamper ao lado da bateria... troque o jamper de posição com o micro desligado por alguns segundos e depois recoloque na posição original exe: deve estar no pino 1 e 2 .. voce coloca no pino 2 e 3 por alguns segundos e depois volta para a posição 1 e 2 abraço

Se voce encontrou os drivers para a placa de som Realtek ALC262 @ Intel 82801HB ICH8 - High Definition Audio Controller, para o Vista, voce pode instalar no windows 7 que deverá funcionar abraço

Se voce souber usar o Visual C++ voce conseguira. O Visual C++ tem a aparencia igual a do Delphi, entretanto a liguagem por traz é o C++ , e nele voce terá todos esses recursos abraço

Use o componente Zeos http://scriptbrasil.com.br/forum/index.php...st&p=580671 Aula 933 delphi 7 avancado - Conectando Delphi ao PostgreSQL 8_2 com o Zeos http://br.video.yahoo.com/watch/3090317/8798562 OBS: se aplica igualmente ao delphi 2010 Ou faça uma pesquisa no forum sobre Zeos http://scriptbrasil.com.br/forum/index.php...p;highlite=zeos abraço

Quando voce constrói e executa o programa em seu computador não dá esse erro porque nele encontra-se essas bpls quando voce leva o programa para outros micros, voce deve copiar tambem essas bpls abraço

Voce pode usar impressão direta e definir as posições de impressão outra forma é criar num QR um layout exato da nota fiscal, imprimir no mesmo tamanho de folha da nota, e comparar os espaçamentos. depois copie este layout para um outro QR e deixe somente os campos que serão impressos e apague todo o resto dessa maneira voce poderá imprimir na nota pré-impressa somente o texto necessario. abraço

Voce tem 2 opções: 1 - criar uma porta virtual direcionando a USB para a porta LPT1 ( acho que tem algo a respeito no forum ) 2 - voce pode usar este componente para impressão em impressora matricial https://sourceforge.net/projects/vdo/files/VDOPrint/ ou https://www.google.com.br/?gws_rd=ssl#q=http://sourceforge.net/projects/vdo/files/VDOPrint/ abraço

Supondo que Analise2.value é do tipo Double então voce deveria usar Analise2.value := strtofloat(Copy(sp2nome , Length(sp2nome ) - 4 , 7)); agora nesta parte ValorGeral.Value:= trim(Analise1.Value-Analise2.Value ); se Analise1.Value é do tipo integer, real ou double, voce não pode usar o ( trim ) pois ele serve somente para tirar os espaços em branco entre variaveis do tipo string então ficaria ValorGeral.Value:= Analise1.Value-Analise2.Value; abraço

Não pode converter variante de tipo (UnicodeString) em tipo (Double) OBS: quando postar o erro, idique tambem a linha onde ocorreu esse erro Uma variável do tipo Variant não pode ser convertida para um tipo Double Tipo UnicodeString Os tipos fundamentais são AnsiChar and WideChar. Tipo Double Real48 2.9 x 10^–39 .. 1.7 x 10^38 Single 1.5 x 10^–45 .. 3.4 x 10^38 Double 5.0 x 10^–324 .. 1.7 x 10^308 Extended 3.6 x 10^–4951 .. 1.1 x 10^4932 19–20 Comp –2^63+1 .. 2^63 –1 19–20 8 Currency –922337203685477.5808.. 922337203685477.5807 abraço

Onde está o campo ID nesse exemplo ?

Deveriam ter se voce estivesse usando o PAGECONTROL e não o TABCONTROL .... preste mais atenção abraço

Isso pode ser bug de versão ... veja se existe alguma atualização para o delphi 2010. Se não existir tente reinstalar novamente o delphi abraço

O RxMemoryData funciona igualzinho ao ClientDataSet .... Basta colocar um componente RxMemoryData e linka-lo a um DataSource depois é só copiar a estrutura para o RxMemoryData do TDataSource da Query procedure TForm1.Button1Click(Sender: TObject); begin RxMemoryData1.loadFromDataSet(Query1, 0, lmCopy); RxMemoryData1.Active := true; end; abraço

Basta utilizar um arquivo .ini com o caminho, dessa forma poderá mudar o caminho para o banco de dados, sem ter que ficar alterando no programa abraço

coloque um exemplo de 6 linhas ( como ficaria no arquivo texto ) ... liste 3 para cada situação abraço

Deveria ser da mesma maneira .... entretanto se não estiver conseguindo tente este código ele vai adicionar novos TabSheets a cada clique do botão dentro de um PageControl OBS: em um Form coloque um botão e um PageControl e faça o teste var Form1: TForm1; i : integer = 0; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var aForm : TForm1; tabSheet : TTabSheet; begin inc(i); //Cria um novo tabsheet tabSheet := TTabSheet.Create(PageControl1); tabSheet.PageControl := PageControl1; //Cria o Form aForm := TForm1.Create(tabSheet); aForm.Parent := tabSheet; aForm.Align := alClient; aForm.BorderStyle := bsNone; aForm.Visible := true; tabSheet.Caption := 'Página '+inttostr(i); //Ativa o tabsheet PageControl1.ActivePage := tabSheet; end; abraço

[Erro Fatal] Unit1.pas(7): Unit TeeStore foi compilada em uma versão diferente de TeeProcs.TTeeExportaData Se voce tiver o arquivo TeeStore.pas, voce pode compilar para usar com o Delphi 7... entretanto se voce tiver apenas o arquivo TeeStore.dcu, o erro indica que este .dcu não foi compilado para esta versão que esta usando. Você trabalhou com o TeeChart? Teve algum problema semelhante a este meu? Trabalho com o TeeChart e não tive esse problema. abraço

Versão para o Delphi 7 http://www.teechart.net/files/vcl/public/T...7.07Delphi7.exe abraço

crie um campo calculado que receberá os numeros referentes ao meses exemplo : 01, 03, 05, 07 ...etc referente aos meses depois é só ordenar a tabela por esse campo abraço

Maneira correta de fazer a chamada: ShockwaveFlash1.SetVariable('varname', value: string); out1 := ShockwaveFlash1.GetVariable('in1'); // onde out1 é a string e in1 é o var de flash que você deseja chamar abraço

Já foi passado um exemplo para voce no seu outro tópico Se for pela data de nascimento procedure TForm1.Button1Click(Sender: TObject); begin query1.SQL.Clear; Query1.SQL.Add('SELECT *'); Query1.SQL.Add('FROM TABELA'); Query1.SQL.Add('WHERE extract(month from DATA_NASC) = :mes'); query1.SQL.Add('ORDER BY DATA_NASC'); Query1.ParamByName('mes').AsInteger := 1; // Mes de Janeiro Query1.Open; end; Se for pela data de cadastro procedure TForm1.Button1Click(Sender: TObject); begin query1.SQL.Clear; Query1.SQL.Add('SELECT *'); Query1.SQL.Add('FROM TABELA'); Query1.SQL.Add('WHERE extract(month from DATA_CAD) = :mes'); query1.SQL.Add('ORDER BY DATA_CAD'); Query1.ParamByName('mes').AsInteger := 3; // Mes de Março Query1.Open; end; abraço