Jhonas

Descupe a demora, mas tinha outros assuntos para resolver. procedure TRel_ListaPecas.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin if Query1peca1.Value = '' then begin QuickRep1.QRGroup1.Enabled := FALSE; end; end; Neste caso não funcionaria .. pois no evento BeforePrint não será feito um teste registro a registro na query, o ideal é colocar o teste no proprio grupo. isso porque voce não utilizou um componente QRGroup e sim um QRBand abraço

Error in the current record for fetch operation Erro no registro atual para operação de busca ( pesquisa ) Configure o seu banco de dados para trabalhar em rede. abraço

O campo Codregitro não pode ser modificado Não existe uma incoerencia nisto ? como voce quer copiar o registro que já existe na tabela para ela mesma ? abraço

Ficara mais ou menos assim procedure TForm1.Button1Click(Sender: TObject); var MeuArray: array of array of Integer; i,j : integer; begin for i := 0 to CDS_Query1.RecordCount-1 do for j := 0 to 14 do begin MeuArray[i,j] := CDS_Query1CampodaTabela.Value; end; end; Primeiro voce define um array com duas dimensões ( var MeuArray: array of array of Integer; ) depois voce define o tamanho dos indices do array ( SetLength(MeuArray,CDS_Query1.RecordCount,15); ) depois disso é só trabalhar com os indices abraço

Na verdade voce pode colocar isto em postos chaves do report exemplo: No evento BeforePrint do report procedure QuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin //if especifique a condição then // se não existir valor, desabilitar o grupo QuickReport1.QRGroup1.Enabled := FALSE; end; voce tambem pode colocar num campo do QRGroup exemplo: quando no QRGroup não tem sub-peca , voce pode usar um dos campos que estão nele e colocar um condição no evento OnPrint do componente procedure QuickReport1.QRDBText1Print(sender: TObject; var Value: String); begin //if especifique a condição then // se não existir valor, desabilitar o grupo QuickReport1.QRGroup1.Enabled := FALSE; end; abraço

Veja estes posts ajudam https://www.scriptbrasil.com.br/forum/lofiv...php/t93313.html abraço

veja no registro do windows.... alguns programas conseguem alterar as configurações de acesso. abraço

tire esta linha de comando url="" abraço

Voce não mencionou, mas provalmente está usando o windows Vista... Este problema tem haver com as atualizaçoes para o Vista. Procure na Net pelas atualizações. abraço

use o Peeper para isto: http://cd.textfiles.com/netwaresl/ZIPFILES/P2Z/PEEPER.ZIP abraço

Antes de mais nada, faça uma verificação na superficie do HD para ver se já não existem Bad Clusters ( Trilhas ruins ) o que danificaria tambem o conteudo dos seus arquivos ( fotos ) Voce tambem pode tentar usar um outro programa para tentar recupera-los ( use o restoration.exe ) voce pode baixar da intenet. abraço

A sua maquina digital usa bateria ou pilhas, dessa maneira voce tem uma outra fonte de alimentação, além da porta USB que tem 5 volts.. muito provavelmente voce deixou a sua maquina ligada quando trocou de porta, e neste caso voce acabou fechando um curto circuito na porta usb. Por isso o XP não reconhece mais a sua maquina, entretanto para não deixar duvidas, tente colocar um pen drivre na porta USB. Se o pen drive for reconhecido, a conexão da sua maquina digital pifou; se tambem o pen drive não for reconhecido, a sua porta usb esta queimada. abraço

Veja este post http://scriptbrasil.com.br/forum/index2.ph...st&p=347743 abraço

Tente assim : procedure TForm1.Button1Click(Sender: TObject); var S: string; Free: Int64; begin Free := DiskFree(0); S := 'Espaço livre em (C): ' + intToStr(Free div 1024); Label1.Caption := formatfloat(',0.00',(((Free div 1024)div 1024)div 1024))+' GB'; end; abraço

Antes de postar a sua dúvida, faça uma pesquisa no forum para ver se já não existem dúvidas como a sua que já foram resolvidas. http://scriptbrasil.com.br/forum/index2.ph...mp;highlite=FTP http://scriptbrasil.com.br/forum/index2.ph...p;highlite=indy abraço

neste caso basta fazer algumas alterações: veja este exemplo: var Form1: TForm1; f : file; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin CopyFile(PChar('c:\Backup'), PChar('d:\Backup.arq'), false); if FileExists('d:\Backup.arq') then begin AssignFile(f, 'd:\Backup.arq'); rename(f,'d:\Backup'); end; end; OBS: voce faz uma copia do arquivo sem extensão ( tipo = Arquivo ) acrescentando na copia uma extensao (.arq) e depois tira a extensão acrescentada ( .Arq ) que foi usada somente para poder fazer a copia, renomeando novamente o arquivo. abraço

para a mesma ? ou para outra ? veja este comando Table2.Fields[Num].Assign(Table1.Fields[Num]); neste caso voce esta copiando para a tabela 2 os registros e os campos da tabela 1 e neste sentido, num campo autoincrementoo o valor será automaticamente atribuido. for i := 1 to Tabela1.RecordCount do begin Tabela2.Last; Tabela2.Insert; for Num := 0 to Tabela1.FieldCount-1 do begin Tabela2.Edit; Tabela2.Fields[Num].Assign(Tabela1.Fields[Num]); Tabela2.Post; end; Tabela1.Next; end; abraço

eu prefiro sempre usar o form como fsNormal .. nunca tive problemas no seu caso, faça uma busca primeiro no forum, pela palavra MDI e veja o que encontra nos posts relacionados http://scriptbrasil.com.br/forum/index2.ph...st&p=429585 abraço

Vou te dar um exemplo de como criar um array dinamico, com o numero de indices que voce quizer procedure TForm1.Button1Click(Sender: TObject); var MeuArray: array of String; i : integer; InputString : string; begin InputString:= InputBox('Digite o valor do array', 'Prompt', '0'); SetLength(MeuArray, strtoint(InputString)); for i := 0 to strtoint(InputString)-1 do begin MeuArray[i] := inttostr(i); memo1.Lines.Append(MeuArray[i]); end; end; abraço

tente dessa maneira: procedure TForm1.FormCreate(Sender: TObject); var Origem, Destino: string; begin Origem := 'c:\Origem\' + NomeArq.extensão; Destino := 'c:\Destino\' + NomeArq.extensão; CopyFile(PChar(Origem), PChar(Destino), false); end; OBS: o arquivo existente será substituido sem confirmação Procure tambem utilizar a pesquisa do forum, pois suas duvidas podem já ter sido esclarecidas em outros posts relacionados http://scriptbrasil.com.br/forum/index2.ph...st&p=464812 abraço

tradução do erro: Erro de SQL dinâmico Sql erro código = - 104 Fim inesperado de comando - linha, coluna 45. veja a sua instrução sql, o erro está na coluna 45 instrucaosql := 'select ' + pcampos + ' from ' + ptabela; if (pcondicao<>'') then begin instrucaosql := instrucaosql+' where ' + pcondicao; end; //showmessage (instrucaosql); abraço

Use uma banda Summary e utilize o componente: TQRExpr na propriedade Expression digite: SUM(CDS_Moviment.ValordoCheque) // coloque o nome do campo da sua tabela na propriedade Mask digite : ,0.00;-,0.00 abraço

Except.inc é um arquivo que faz parte do GDB, se não achar reinstale o banco de dados abraço

Basta desabilitar o grupo QuickReport1.QRGroup1.Enabled := FALSE; abraço

Var RecebeValor : String; begin RecebeValor:= Memo1.PasteFromClipboard; end; Tente dessa maneira: Var RecebeValor : String; begin Memo1.PasteFromClipboard; RecebeValor:= Memo1.Lines.Text; end; abraço