Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Posts postados por Jhonas

  1. Tabela:Cannot perform this operation on a closed dataset

    tradução

    Tabela: não executa esta operação em um dataset fechado

    esse erro significa que a tabela esta fechada... verifique o seu codigo

    dica sobre como usar o BDE

    http://www.linhadecodigo.com.br/Dica.aspx?id=143

    posts sobre BDE

    http://scriptbrasil.com.br/forum/index.php...st&p=470689

    http://scriptbrasil.com.br/forum/index.php...st&p=462556

    http://scriptbrasil.com.br/forum/index.php...st&p=445177

    abraço

  2. Como faço para verificar todos arquivos mp3 de um diretorio com o delphi?

    voce pode usar estes 4 componentes do delphi

    DirectoryListBox1: TDirectoryListBox;

    FileListBox1: TFileListBox;

    DriveComboBox1: TDriveComboBox;

    FilterComboBox1: TFilterComboBox;

    no componente FilterComboBox1 na propriedade Filter coloque

    All files (*.*)|*.*|*.mp3|*.mp3

    OBS: Link o FileListBox1 ao DirectoryListBox1 pela propriedade FileList

    Link o DriveComboBox1 ao DirectoryListBox1 pela propriedade DirList

    Link o FilterComboBox1 ao FileListBox1 pela propriedade FileList

    abraço

  3. mas existe algum codigo que por exemplo ... eu coloco a palavra "orkut" e ele completa a palavra com de acordo com as janelas que estao aberta

    tpow se tiver la "orkut - lalala" e "orkut xxxxx" fecha as 2 janelas ...

    existe ??

    existir não existe, mas voce pode criar este codigo

    primeiro voce deve listar todas as janelas abertas no windows quando o seu programa estiver sendo executado

    The EnumWindowsProc function is an application-defined callback function that receives top-level window handles as a result of a call to the EnumWindows or EnumDesktopWindows function.

    nesta lista vão aparecer todas as janelas abertas do windows inclusive as do programa

    The EnumWindows function enumerates all top-level windows on the screen by passing the handle of each window, in turn, to an application-defined callback function. EnumWindows continues until the last top-level window is enumerated or the callback function returns FALSE.

    voce deverá então buscar nesta lista parte do nome que deseja ( se tiver la "orkut - lalala" e "orkut xxxxx" )

    function Pos(Substr: string; S: string): Integer;

    Description

    Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.

    Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.

    uma vez encontrado o(s) nome(s) , então voce pode fechar a(s) janela(s) finalizando o processo

    creio que com estas 3 funções ou + é possivel fazer o que voce esta querendo.

    se eu tiver tempo monto alguma coisa, ou voce pode tentar montar o codigo

    abraço

  4. crp_Rel_Oficio.ParamFields[9].Value:= matr_global;

    crp_Rel_Oficio.ParamFields[11].Value:=MemoText.Text;

    crp_Rel_Oficio.ParamFields[12].Value:=MemoAssinatura.Text; // Esse campo que esta dando problema

    crp_Rel_Oficio.ParamFields[13].Value:=identificador.Text;

    crp_Rel_Oficio.ParamFields[14].Value:=MemoComplemento.Text;

    crp_Rel_Oficio.execute;

    Verifique se o DataType do parametro é

    ftFmtMemo - Campo memorando de texto formatado

    ou

    ftMemo - Campo memorando de texto

    OBS: possivelmente esta definido como string

    abraço

  5. o que quero e nada mais que criar um login em uma rede

    Abra o Painel de controle, e vá em Contas de Usuário, depois clique em "criar uma nova conta" , digite o nome da sua conta, clique em avanças, escolha se quer que seja' administrador ou limitado', clique em 'Criar Conta'.

    uma vez criada a conta, volte para Contas de Usuários e selecione 'Alterar a maneira como os usuários fazem logon ou logoff'. selecione a opção e clique em 'Aplicar Opções'

    abraço

  6. Como fazer para que no momento do foco no componete fique evidente para o usuário que o curso esta setado nele(radio group) ?

    exemplo: o foco sai do edit e vai para o radioGroup (deixa a primeira opção selecionada sem estar checada)

    procedure TForm1.Edit1Exit(Sender: TObject);
    begin
       RadioGroup1.setfocus;
       TRadioButton(RadioGroup1.controls[0]).Setfocus;
       RadioGroup1.ItemIndex := -1;
    end;

    abraço

  7. é um notebook

    Não tem nada instalado.......quero dar um boot apartir do cd do xp,

    então entre no Setup da BIOS e modifique para dar o boot pelo CDROM

    http://www.guiadohardware.net/tutoriais/configuracao-cmos/

    como preprar um cd de boot

    http://www.clubedohardware.com.br/artigos/646

    caso não tenha a opção de dar boot pelo CDROM tente esta dica

    http://www.vivaolinux.com.br/dicas/verDica.php?codigo=6618

    OBS: voce pode usar um disco (disquete) de boot do windows 98

    abraço

  8. não cosigo priorizar o boot pelo cd

    dicas

    Seu registro pode ser configurado para desativar autorunning CD's. The following information is provided only for people who are experienced with editing their Registry. As seguintes informações são fornecidas apenas para as pessoas que têm experiência com a sua edição Registry. In all cases please backup your Registry before trying the following. Em todos os casos, por favor backup de seu registro antes de tentar o seguinte. Use at your own risk. Use a seu próprio risco.

    Para ativar AutoRun no Windows XP (Home ou Pro)

    1. Clique em Iniciar, depois em Executar. Digite regedit e clique em OK.

    2. Localize a seguinte chave / Dados nome:

    HKEY_LOCAL_MACHINESOFTWARE\MicrosoftWindowsCurrentVersion\policies\NoDriveTypeAutoRun HKEY_LOCAL_MACHINESOFTWARE \ MicrosoftWindowsCurrentVersion \ políticas \ NoDriveTypeAutoRun

    3. Clicar com o botão direito NoDriveTypeAutoRun na coluna Nome da direita e escolha Apagar.

    4. Reinicie o seu computador.

    Autorun agora será ativado.

    Outras dicas

    http://www.babooforum.com.br/forum/index.php?showtopic=34805

    http://www.babooforum.com.br/forum/index.php?showtopic=38713

    http://www.codigofonte.net/dicas-152/auto-run---

    http://ryan.com.br/autorun-testar.htm

    http://info.abril.com.br/forum/forum.php?tópico=63757

    abraço

  9. Usando a estrutura de repetição (enquanto...faça) elabore um algoritmo que leia o salário dos 50 funcionários de uma Empresa e aplique um aumento salarial a todos os funcionários, usando a seguinte regra: Pressupõem-se que nenhum salário seja menor que zero.

    A cada reajuste concedido, mostre o funcionário que recebeu reajuste, o salário antigo e novo salário.

    a) 35% de aumento para os funcionários com salário menor que 1.500,00 reais;

    15% de aumento para os funcionários com salário entre 1.500,00 e 3.000,00 reais;

    c) 5% de aumento para os funcionários com salários acima de 3.0000,00 reais;

    não é tão dificil resolver

    programa Remuneracao;
    
    uses crt;
    
    var
       func :array[1..50] of string;
       salario :array[1..50] of real;
       salarioatual :array[1..50] of real;
       i : integer;
    Begin
    
      // clrscr;
    
       writeln('  Digite o nome do funcionario e salario');
    
       while i <= 50 do
       begin
          readln(func[i]);
          readln(salario[i]);
                      i:=i+1; 
       end;
    
       while i <= 50 do
       begin
          if salario[i] <= 1500 then
             salarioatual[i] := salarioatual[i] * 1.35;
    
          if (salario[i] > 1500) and (salario[i] <= 3000) then
             salarioatual[i] := salarioatual[i] * 1.15;
    
          if salario[i] > 3000 then
             salarioatual[i] := salarioatual[i] * 1.05;
    
          writeln('Funcionario ', i,' = ', func[i]);
          writeln('Salario Anterior ', i,' = ', salario[i]);
          writeln('Salario Atual ', i,' = ', salarioatual[i]);
                      i:=i+1; 
    
    
       end;
    
    End.

    abraço

  10. bem mais o programa de reconhecimento não seria para o MAC ?

    sim.. para Linux e Mac

    http://macmagazine.com.br/blog/2007/11/23/...lucao-da-apple/

    http://www.leechvideo.com/tag/multitouch/

    nunca mexi com script

    que tal alguns exemplos faceis paa aprender a mexer

    http://www.galizaweb.net/html4/interact/scripts.html

    http://www.romybrb.com.br/cad20.htm

    http://www.mco2.com.br/suporte_scripts_contadores.asp

    http://www.hoteldaweb.com.br/centralajuda.html

    acho mais eu queria um que service para esse

    proposito q eu citei das tres cores

    acho que não vai encontrar nada por enquanto

    abraço

  11. E o Caso do TTreeView Como è Organizado os tantos Objetos que é adicionado em Cada Item!!! /?/

    Sem Acumular tudo/...

    Exemplo:

    http://www.beensoft.nl/sdp/cttreeview.htm

    http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=429

    Tutorial em ingles

    http://users.iafrica.com/d/da/dart/Delphi/...w/TreeView.html

    quanto ao resto dos seus quetionamentos, sugiro voce conseguir a biblia do delphi, vai sanar muitas das suas dúvidas

    abraço

  12. program operacao;
    uses crt;
    var
    A,B:array[1..12]of integer;
    C:array[1..12,1..2]of integer; 
    I,J:integer;
    begin
    clrscr;
    for I:=1 to 12 do
    begin
    Write('Escreva 12 números ');readln(A[I]);
    end;
    for I:=1 to 12 do
    begin
    Write('Escreva mais 12 números ');readln(B[I]);
    end;
    begin
    For I:=1 to 12 do
    C[I,1]:=A[I]*2
    C[I,2]:=B[I]-5;
    end;
    writeln('Os primeiros 12 números serão multiplicados por 2, e os últimos 12 números subtraidos por 5 ');
    for I:=1 to 12 do
    write(C[I,1]) + '       ' + write(C[I,2]);
    end.

    OBS: não me lembro se o comando é assim ... (write(C[i,1]) + ' ' + write(C[i,2]);

    ) mas o resultado é este:

    2 -4

    4 -3

    6 -2

    8 -1

    10 0

    12 1

    14 2

    16 3

    18 4

    20 5

    22 6

    24 7

    abraço

×
×
  • Criar Novo...