Churc

Opa Isso faz parte do Report Builder Site official: http://www.digital-metaphors.com abraço

Opa Tenho a clara certeza de que ela está falando do "Word" e não de Delphi auhahua mas pra ter certeza, você está falando do Microsoft Office - Word? abraçox

Opa try AssignFile(Input,fname); except ShowMessage('deu erro'); end; mas se voce rodar o programa dentro da IDE do Delphi, mesmo com o try ele sempre mostrará o erro então pra testar rode fora... abraço

Opa Existe varios metodos, mas os mais usados são WinExec(PChar('nome do arquivo.pdf'), SW_SHOWNORMAL); ou uses ShellAPI; ShellExecute(Handle, 'open', 'nome do arquivo.pdf', nil, nil, SW_SHOWNORMAL); abraço

Ranilson, este exemplo não te ajuda? http://scriptbrasil.com.br/forum/index.php?showtopic=101684 abraço

Opa Somente é essa a diferença das estruturas dos arquivos? Se sim, e você tiver o Código fonte do componente, ele terá isto como String, altere... Se não tiver o código fonte, você vai ter que fazer uma rotina que depois de gerar o arquivo, procure por esta parte e altere... Qualquer coisa posta ai abraço

Opa Mas então, não é o StuffString que da o AccessViolation e sim aquela leitura ali: Feeder[ncx].erros3[aux] := Feeder[ncx].erros3[aux] + Cumulative[ncx].fch3[aux][q3]; Isto posso te garantir... a rotina StuffString(); nada mais nada menos usa a rotina Copy(); Eu falei com uns gringo eles disseram várias coisas sobre isso mas eu não entendi nada! AIUAHE Se te ajudar olha Bom se te ajudar ta ai assahuhus abraço

Opa Aee grande Micheus! :D Então, a parte de incompatibilidade da pra resolver assim uses StrUtils; //naquela parte: for q2:=z to z1 do begin StuffString(Feeder[ncx].head3[aux], 1, Length(Feeder[ncx].head3[aux]), Cumulative[ncx].fch3[aux][q2]); end; Agora tem algum problema ai, porque da um Access Violation... ainda não achei ainda onde, ta foda de pensar ashushu Tem alguma ideia Micheus? abraço

Opa Então fera não consegui emular o problema aqui não, que da pra arrumar isso dá agora pra te ajudar eu teria que conseguir emular... Tem como você passar parte do código, dessa parte ai principalmente? abraço

Opa Então gratuito cara acho pouco provavel encontrar um com qualidade, e a VCLSkin que não seja demo só se você comprar a licença eles te mandam o código fonte :rolleyes: abraços

Opa Pra ajudar coloque os cabeçalhos dos records, exemplo TFeeder = record ... TCumulative = record ... abraçox

Opa Mariana neste seu caso, a janela de CPU aparece logo quando roda o programa? antes mesmo de entrar em qualquer breakpoint? Se for... Já passei por isso, era problema em minhas DLL, deu um trabalho danado pra achar rsr veja se não é isto, DLLs! abraço

não seria o caso de você declarar um array onde cada elemento é um registro (record) contendo os campos desejados? Opa Só como exemplo baseado no que o Micheus quis dizer... Defina como um Type um record com os campos que deseja, exemplo type TClientes = record Nome: String; Endereco: String; Telefone: String; end; criando uma array usando o Record var Clientes: array of TClientes; begin //Aqui voce define o numero de registros da array //Voce pode definir em var mesmo exemplo: Clientes: array[0..9] of TClientes; //Como o 0 é usado, 9 significa que temos 10 registros para usar... SetLength(Clientes, 9); //Aqui você limpa todos os registros dela do 0 ao 9... não necessário mas recomendado FillChar(Clientes, 0, SizeOf(TClientes)); //Exemplo preenchendo os registros da array, neste caso este cliente //seria de numero 0... with Clientes[0] do begin Nome := 'Churc'; Endereco := 'Rua bla'; Telefone := '123456'; end; end; exemplo bem simples, mas talvez tenha utilidade rsr abraços

Opa Acho que foi erro de digitação repare dmDados.qMovimento.SQL.Add('where nomefor = :nome and Datas between Dt1 and Dt2 '); dmDados.qMovimento.ParamByName('d1').Value:= dt1.dateTime; dmDados.qMovimento.ParamByName('d2').Value:= dt2.dateTime; Troque d1 e d2 por Dt1 e Dt2 abraços

Borland/Codegear Online Shop ;)

Opa É faz sentido sim, se o problema não for de "case sensitive" no nome da Classe então eu já não sei mais como te ajudar, espero que outros saibam... If (LowerCase(Form.Components.ClassName) = 'trzgroupitem') Then ... Talvez não tenha a ver, mas se fosse comigo eu tentaria de todas as formas possíveis rs abraço

Opa Olha ultimamente ando tão passado que fui dar a dica do TAG sendo que claramente no seu código dava pra ver que você já usa pra outra finalidade IAUHEAU mas ai tenta assim If (Form.Components Is TRzGroup) Then TRzGroup(Form.Components).Enabled := (Locate('IdItem', TRzGroup(Form.Components).Tag, [])) Or (TRzGroup(Form.Components).Tag = 0); ou If (Form.Components.ClassName = 'TRzGroup') Then TRzGroup(Form.Components).Enabled := (Locate('IdItem', TRzGroup(Form.Components).Tag, [])) Or (TRzGroup(Form.Components).Tag = 0); Visto que pelo que parece o componente em si é TRzGroup e TRzGroupItem é apenas um item do TRzGroup e é claro que não poderia ser comparado como um componente rsr Se não for TRzGroup, troque pelo nome da Classe do componente em si exemplo TRzGroupBox... não conheço esse set de componentes :| abraço

Boaa Micheus nem lembrava dessa auhau ;)

Opa AIUHEAU é verdade, então vamos explicar pro Eder Seguinte Eder, no código veja só if CheckListBox1.Checked then DBGrid1.Columns.Visible := True else DBGrid1.Columns.Visible := False; A propriedade Visible é Boolean e a propriedade Checked também, então neste caso o ideal é você fazer: DBGrid1.Columns.Visible := CheckListBox1.Checked; Porque a coluna só vai estar visivel se o item estiver checado, então pra que usar o IF? E se caso você quisesse que a Coluna estivesse visivel "caso não" estivesse checado? DBGrid1.Columns.Visible := not CheckListBox1.Checked; E se a coluna estivesse visivel somente se o valor de i fosse igual a 10? DBGrid1.Columns.Visible := i = 10; Estas coisas simplificam muito o código... abraços

Opa Hmm eu teria que ter este componente pra testar, não sei como verificar o type cast de outra forma, acha que se usar o "=" ele vai dar o mesmo erro... Mas pra resolver o seu problema, vai uma idéia, depois se achar outra maneira usando type cast não vai te prejudicar em nada... A idéia é, porque você não classifica os componentes Rz com números em suas tags, exemplo Vamos supor que tenha 3 componentes do tipo Rz TRzEdit - pra "todos" os TRzEdits coloque a tag 6550 TRzGroupItem - pra "todos" os TRzGroupItems coloque a tag 6551 TRzButton - pra "todos" os TRzButtons coloque a tag 6552 Ai depois você pode fazer case Components.Tag of 6550: é um TRzEdit; 6551: é um TRzGroupItem; 6552: é um TRzButton; else if (Components is TSpeedButton) then ... end; É só uma idéia pra você ir adiantando, depois se encontrar forma melhor só trocar o código nem nas tags não vai precisar mexer porque não vai mudar nada... a menos que você as use... Capaz que fique ainda mais rápido do que comparar tipos rsr, mas é imperceptível... abraços

Opa Estranho hein :huh: Assim esse count ele se refere ao CheckListBox1.Count? abs

Opa Teria que testar pra conseguir fazer funcionar mais tente assim, "talvez" funcione... If (Form.Components Is TRzGroupItem) Then TRzGroupItem(Form.Components).Enabled := (Locate('IdItem', TRzGroupItem(Form.Components).Tag, [])) Or (TRzGroupItem(Form.Components).Tag = 0); abraços

Opa Acho que a melhor coisa é voce fazer um programinha, um pequeno .EXE que te mostra o código da tecla que quiser... Tirei esta dica do DTDelphi, é bem simples abraços

Opa Se ele é um tipo númerico não seria Integer ao invés de Float? Integer suporta números "inteiros" exemplo: 1145 Float suporta números com baixa precisão "quebrados" exemplo: 1.145 Se o campo salário é numérico acredito que seria então ParamByname('sal').AsInteger := StrToInt(EdtSalario.text); Mas como nunca mexi com SQL Server e não mexo com BD talvez eu esteja errado rs abraços

Opa Boaa Micheus auhahu eu ando muito preguiçoso não explico direito só falo =x ahuauha valeu abraços