Jhonas

não entedi a sua pergunta... mas o link é de um componente para o delphi abraço

veja como usar o autoincremento http://scriptbrasil.com.br/forum/index.php...=autoincremento abraço

faça essa alteração if Tentativas > 3 then //Se atingiu 3 tentativas... begin Alerta('%s, A sua senha não confere. Procure ajuda com o administrador do sistema.',[sysNomeUsuario]); Tabelas.QUsuarios.Close; Halt; //... aborta o programa! end else //Senha correta. begin Screen.Cursor := crHourGlass; Application.CreateForm(TFormPrincipal, FormPrincipal); FormPrincipal.NomeUsuarioLogin:= sysNomeUsuario; FormPrincipal.Caption :='Visual Sica - Ano base: ' + Tabelas.QConfiguracaoANOEXERCICIO.AsString; FormPrincipal.StatusBar1.Panels[2].Text := 'Usuário: ' + sysNomeUsuario; fechar:= true; winresult := mrOk; Close; Screen.Cursor := crDefault; end; end else begin //Usuário não cadastrado. Alerta('Usuário %s não cadastrado!', [EdNome.Text]); EdNome.SetFocus; EdNome.SelectAll; end; end; abraço

Já peguei cada erro, que nem a lógica explica... esse tipo de coisa me aconteceu quando do nada apareceram caracteres estranhos no campo que deveria conter apenas caracteres alfabeticos. se voce percebeu, a cada nova versão do mysql, nada mais é do que correções de bugs das versões anteriores OBS: para teste, abra a sua tabela pelo Mysql-Front e da uma pesquisada no campo, ou aumente o numero de caracters ou mude até mesmo o tipo e veja o que acontece. abraço

CREATE DEFINER=`root`@`localhost` FUNCTION `MyDataPG`(in_vencimento date, in_data_pg date, in_pago tinyint) RETURNS varchar(10) CHARSET latin1 select vencimento, data_baixa, pago, mydatapg(vencimento, data_baixa, pago) as situacao from conta_ar where mydatapg(vencimento, data_baixa, pago)="vence hoje" eu considero um bug do mysql, pois ele considera a variavel situacao como variant a definição de Varchar(10) para essa variavel, deixa de ser varchar e passa a ser memo, quando ultrapassa o limite de carcteres experimente a versão mysql-essential-5.1.41-win32.msi abraço

veja se te ajuda http://www.nikhilk.net/Content/Samples/HtmlComponent.zip http://www.nikhilk.net/Entry.aspx?id=11 http://delphi.about.com/od/twebbrowser/TWe..._and_Tricks.htm abraço

veja como usar o autoincremento http://scriptbrasil.com.br/forum/index.php...=autoincremento abraço

por isso ocorre o erro de violação de chave, pois existe registro duplicado ... exemplo: cdsItensChamadoTempCODITENSCHAMADO.AsInteger; se este for o campo que voce definiu para ser chave primária, o valor deve ser somado de 1, para que não ocorram valores iguais, quando for salvar o registro. abraço

Veja no forum se encontra alguma coisa http://scriptbrasil.com.br/forum/index.php...lite=webbrowser abraço

que tal postar o erro ? mas muito provavelmente seja porque a chave para o campo que voce definiu, tem valores repetidos. abraço

Utilizar o IndexFieldNames é muito bom quando estiver usando o Table ( agiliza a pesquisa ) colocar uma clausula order by no SQL ou utilizar sentenças SQL é o melhor quando usar uma Query ( o tempo de resposta em uma tabela muito grande é mais rápida ) abraço

item: integer; a diferença está aqui... se a variavel item for um integer, ela vai receber o valor do indice do item do listbox item: TEnderecoPessoaData; se a variavel item for a definição de uma classe, muda totalmente a sua função porque voce não experimenta usar o tipo Record do Delphi nesse caso ? http://www.planetadelphi.com.br/artigo/141...record)-parte-i abraço

acho que voce ainda não entendeu... quando voce abre um arquivo em modo exclusivo, significa que voce não quer dar acesso a outro enquanto voce não finalizar a ação pretendida sobre esse arquivo. nesse caso voce usa o TFileStream.Create(file, fmShareExclusive) exemplo: function IsFileInUse(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; HFileRes := CreateFile( PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); //retorna false se o arquivo está em uso if not Result then CloseHandle(HFileRes); end; if NOT IsFileInUse(OutputFile) then File := TFileStream.Create(OutputFile, fmCreate or fmShareExclusive); o exemplo usando: procedure TForm1.Button1Click(Sender: TObject); var Arquivo: TextFile; Line : string; begin AssignFile(Arquivo, 'C:\Path.Txt'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); Memo1.Lines.Append(Line); end; CloseFile(Arquivo); end; permite que voce abra o mesmo arquivo mais de uma vez somente para leitura abraço

procedure TForm1.Button1Click(Sender: TObject); var item: integer; begin item:= ListBox1.ItemIndex; Edit1.text := ListBox1.Items[item]; end; se voce clicar no item no ListBox e depois no botão, voce terá somente a informação desse item, pois o itemindex será o valor do item clicado abraço

muito simples: a idéia do que voce postou primeiro pela propria mensagem de erro A operação não pode ser completada por causa que o script engine não pode ser inicializado por uma linguagem valida se voce olhou esse post, voce mata a charada OBS: se no visual basic, voce pode criar um objeto do tipo ScriptControl, e seta a linguagem VBScript (na propriedade language) , basta relacionar o componente, que sendo um controle do activex ( que pode ser usado em outras linguagens de programação ) , use a mesma propriedade. A experiência de um programador ( Como, Porque e Quando ) deve se extender para o Onde ... ou seja, nem sempre voce vai achar as respostas prontas, terá que pesquisar e praticar muito e relacionar uma coisa com outra ou outras. A pesquisa e muita leitura faz toda a diferença. abraço

acabei de fazer um teste aqui, funciona corretamente procedure TForm1.Button1Click(Sender: TObject); var Arquivo: TextFile; Line : string; begin AssignFile(Arquivo, 'C:\Path.Txt'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); Memo1.Lines.Append(Line); end; CloseFile(Arquivo); end; verifique o seu arquivo txt abraço

então seria assim procedure TForm1.Button1Click(Sender: TObject); var Arquivo: TextFile; Line : string; begin AssignFile(Arquivo, 'C:\MinhaPasta\Arq.Txt'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); Memo1.Lines.Append(Line); end; CloseFile(Arquivo); end; abraço

voce leu esse trecho do texto ? abraço

a solução é voce usar uma query somente para leitura, usando select ex: select * from tabela abraço

O Controle TJvXPBar pode exibir um ícone, um cabeçalho e zero ou mais itens clickable em sua área cliente. Use um controle TJvXPBar em um form para exibir uma caixa com itens que podem ser clicados. exemplo: http://wiki.lazarus.freepascal.org/JvXPBar abraço

Nesse caso importe o controle activex : Microsoft Script Control exemplo: http://scriptbrasil.com.br/forum/index.php...mp;#entry441291 abraço

faça um teste independente do seu programa use apenas um listbox, 4 edits e um botão .... ao clicar no botão, jogue o conteudo do listbox nos edits ... somente assim poderá achar a resposta. abraço

List index(0) out of bounds item:= FPessoa.Enderecos.Items[ListBox1.ItemIndex]; veja que quando esta linha é executada no duplo clique do mouse, o indice do item será aquele em qual voce clicou para ter certeza use assim item:= FPessoa.Enderecos.Items[0]; OBS: se mesmo assim ocorrer erro, veja se não esqueceu de declarar alguma unit na uses abraço

item: TEnderecosData; qual é a definição dessa variavel ?

como voce mesmo postou, ou tem mau contato do slot ou mau contato de solda na placa já que na sua cidade não tem uma oficina autorizada, então veja se tem alguma loja de eletrônica que faça o serviço de manutenção em micros. voce deu muita sorte de não ter queimado a sua placa mãe ... esse tipo de procedimento não é aconselhável, pois existem muitos componentes sensiveis a curto e queimam. abraço