Graymalkin

Ele não era para mostrar nenhum dos dois, já que o "Rafael" só tem um "f". Você tem certeza de estar informando corretamente o que foi digitado e o que está no banco? Abraços, Graymalkin

Só vai ser necessário salvar como Unicode se existir algum caracter de código superior a 255, caso contrário o arquivo vai ser ASCII/ANSI. Os primeiros 256 caracteres Unicode são os mesmos da tabela ASCII/ANSI. Abraços, Graymalkin

Amigos, também gostaria de saber como fazer um prog para fazer executáveis personalizados. Com o mesmo objetivo de Davis Tomé, ao pesquisar, acabei encontrando um programa que gera aplicativos (com código fonte) em delphi. Trata-se do "X-Maker" (www.xmaker.com.br). Minha intenção não é fazer algo tão complexo; apenas preciso saber qual é a mágica que o x-maker faz para criar executáveis. A partir daí, acho que tudo ficaria mais fácil. Um outro programa interessante que utilizei há muito tempo e não me recordo o nome, ele agia de forma interessante: Criava um arrquivo fonte; Na hora de gerar o programa executável (a partir dele, que também era executável) pedia que selecionássemos: (1) um arquivo fonte; (2) um arquivo binário que acompanhava o programa e (3) o diretório de saída. Não sei em que linguagem foi escrito, mas parece que este arquivo *.bin funcionava como um compilador. Continuarei pesquisando e se encontrar a solução para que meu aplicativo gere um outro programa, tentarei entrar em contato com vocês. Se por acaso já conseguiram ou se conseguirem, entrem em contato comigo: RatoAcido@bol.com.br. Como meu site não está mais neste endereço você não vai conseguir pegar o exemplo, por isso enviei o mesmo por e-mail para você dar uma olhada. -- Editado -- O arquivo pode ser baixado aqui: http://www.gs.kitbr.com/stuff/EXEDelphi.zip -------------- Abraços, Graymalkin

Acho que é a instrução Redim que você procura: Dim matriz() As Byte Dim tamanho As Integer tamanho = 30 ReDim matriz(tamanho) Certo? Graymalkin

Na opção References do menu Project você não encontrou o ADO? O nome dele é "Microsoft ActiveX Data Objects 2.x Library". Abraços, Graymalkin

Já experimentou mudar a propriedade AutoRedraw da PictureBox para True? Abraços, Graymalkin

StringReader ou StreamReader? Você falou o primeiro, mas o código está utilizando o segundo. Aliás, nem teria sentido fazer esta pergunta para o primeiro, então creio que seja mesmo o segundo. Por padrão os arquivos *já* são abertos como Unicode. Se você quiser abrir como ASCII é que você deve fazer isso: Dim f As New IO.StreamReader("c:\pasta\arquivo.txt", System.Text.Encoding.ASCII) Ok? Graymalkin

Juntando as informações da DriveListBox, DirListBox e FileListBox você já tem o caminho da imagem, certo? Então, basta utilizar a função LoadPicture() para abrir a imagem e exibí-la na Image. Abraços, Graymalkin

Andei fazendo algumas transições com o meu site, por isso ele atualmente se encontra fora do ar. Se você quiser, posso te passar por e-mail (o meu e-mail é gs@br.inter.net). Abraços, Graymalkin

O problema é que você está utilizando DAO, que por padrão só suporta até o Access 97. Já teve gente aqui que instalou uma atualização e pôde abrir novas versões com o próprio DAO (experimente fazer uma busca no fórum), mas eu recomendaria a utilização do ADO. Abraços, Graymalkin

Utilize um Timer e a função Dir() para obter os nomes de arquivos de uma determinada pasta de tempos em tempos (5 segundos, por exemplo). Quando um determinado arquivo existir na lista, você abre o arquivo para importação. Certo? Graymalkin

Beleza. Nem cheguei a pensar neste caso (pasta com mesmo nome de arquivo). Abraços, Graymalkin

Não adianta repetir o tópico porque se com 8 visualizações ninguém respondeu é porque ou ninguém sabe ou sua pergunta não está bem formulada. Como assim "por que"? Se você sabe o que é uma Stored Procedure você é que deve decidir se quer utilizar ou não. Não existe uma razão para que seja obrigatória sua utilização. Particularmente eu nunca utilizei Stored procedures, apesar de conhecê-las. E também nunca utilizei o SQL Server. Abraços, Graymalkin

Você experimentou fazer uma busca aqui no fórum? Acredito que você vai encontrar exemplos (procure por Shell ou ShellExecute). Abraços, Graymalkin

O equivalente do operador mod do Pascal é o % em Python: >>> print 2 % 2 0 >>> print 3 % 2 1 Certo? Graymalkin

Split, do Inglês "dividir", faz exatamente o que o nome sugere: divide uma string através de um ou mais delimitadores (caracteres que ditam as diferentes partes da string). Exemplo: dim frase as string = "isto é um teste" dim palavras() as string = frase.Split(" ") for each palavra as string in palavras messagebox.show(palavra) next Certo? Graymalkin

Você pode postar aqui esta parte do código que dá erro? Abraços, Graymalkin

Talvez dê para configurar a leitora para efetuar um ENTER antes de digitar o código, para que você possa detectá-lo no campo quantidade e automaticamente jogar o foco para o campo código. Não sei se isso é realmente possível, mas sei que as leitoras, em geral, efetuam um ENTER *após* a digitação do código. Caso não seja, o usuário teria que digitar a quantidade e pressionar alguma tecla (como o próprio ENTER) para que a mudança de campo fosse feita e o código pudesse ser digitado em outro campo. Abraços, Graymalkin

Você disse que a informação vem de um banco de dados... você tem certeza de que na tabela os dados estão corretos? Abraços, Grayamlkin

Coloque isso no evento OnCreate do form MDI: StatusBar1.Panels.Add(); Depois, no evento Activate de cada um dos MDI Children você deverá colocar: Form1.StatusBar1.Panels.Items[0].Text := self.Caption; Troque o nome "Form1" pelo nome do seu form MDI. Certo? Graymalkin

Experimente fazer isso... ADO1.ConnectOptions := coAsyncConnect; ... antes de chamar o método Open(). Abraços, Graymalkin

O erro 183 é porque a pasta já existe. O que você pode fazer é utilizar um try... except para ignorar o erro. Abraços, Graymalkin

Não entendi muito bem a pergunta, mas se o leitor for ligado na porta do teclado, ao passá-lo em código de barras será como se o código tivesse sido digitado no teclado. Era isso que você queria saber? Abraços, Graymalkin

É, mais claro do que isso não tem como fazer: Dim f As New IO.StreamReader("c:\pasta\arquivo.txt") Dim texto As String = f.ReadToEnd() Dim linhas As String() = texto.Split(vbCrLf) Dim qt As Integer = linhas.Length MessageBox.Show("Quantidade de linhas no arquivo: " & qt.ToString()) Note que eu fiz tudo conforme descrevi no outro post. Abraços, Graymalkin

Exatamente. No momento não me vem nada em mente, mas se eu pensar em alguma utilização interessante eu coloco aqui. Claro. Aí vai a classe: public class ExemploDelegate { public delegate int Calcular(int x); private int _valor = 0; public int Valor { get { return _valor; } } public ExemploDelegate(Calcular c, int i) { _valor = c(i); } } As funções: public int ElevarAoQuadrado(int i) { return i*i; } public int ElevarAoCubo(int i) { return i*i*i; } public int Incrementar(int i) { return ++i; } public int Decrementar(int i) { return --i; } E o exemplo de utilização: ExemploDelegate obj; obj = new ExemploDelegate(new ExemploDelegate.Calcular(ElevarAoQuadrado), 2); System.Console.WriteLine(obj.Valor.ToString()); obj = new ExemploDelegate(new ExemploDelegate.Calcular(ElevarAoCubo), 2); System.Console.WriteLine(obj.Valor.ToString()); obj = new ExemploDelegate(new ExemploDelegate.Calcular(Incrementar), 2); System.Console.WriteLine(obj.Valor.ToString()); obj = new ExemploDelegate(new ExemploDelegate.Calcular(Decrementar), 2); System.Console.WriteLine(obj.Valor.ToString()); Abraços, Graymalkin