Paulo Nobre

Pessoal, sei que existem milhares de sites de bitmaps na net e alguém poderia dizer basta pesquisar que acha. Mas, preciso especificamente de bitmaps, variados, 16x16, pois estes são os que melhor aparecem como imagem de menus popups. Alguém poderia me dar um local para obtê-los diretamante. Ficaria grato

Olá s3c, Tem certeza que apenas com isso que você colocou consigo colocar as cores e o texto. Tentei aqui e os submenus ficaram com ula largura infima. Você chegou a testar? Olá Nighmare, baixei o componente, mas ele parece que só serve até D6, meu delphi é o 7. Existe, já para o D7?

Funcionou sem problemas mas, aparece um warning: [Warning] UnitApagarCadastrados.pas(66): Symbol 'FileSetAttr' is specific to a platform Alguém sabe por que? Como faço para parar esta mensagem?

Pessoal, sei que existem milhares de sites de bitmaps na net e alguém poderia dizer basta pesquisar que acha. Mas, preciso especificamente de bitmaps, variados, 16x16, pois estes são os que melhor aparecem como imagem de menus popups. Alguém poderia me dar um local para obtê-los diretamante. Ficaria grato

Valeu Kikonanet, Passei Registro:= lstSenhas.Items.Strings[lstSenhas.itemIndex]; para antes do primeiro begin e deu certo.

Brigadão Progr'amador, Parece que você advinhou, pois ia também pedir os outros: para somente leitura etc..

Alguém poderia dar uma lida neste código e me ajudar dizendo porque está dando erro? lstSenhas significa um listbox o que eu estou fazendo ai em baixo é apagando um item do lisbox e apagando o correspondente no registro procedure TfrmApagarCadastrados.cmdDeletarClick(Sender: TObject); Var Resposta: Integer; Registro: String; begin try If lstSenhas.ItemIndex = -1 Then begin MessageBox(handle,'Nada foi selecionado para excluir !'+#13+'Selecione o que você deseja excluir, para depois clicar em apagar.','NADA HÁ PARA EXCLUIR',MB_IconExclamation); Abort; end; Resposta:= MessageBox(Handle,'Você tem certeza, que deseja excluir este item ?'+#13+'A senha correspondente também será excluída. ','ESTE ITEM SERÁ EXCLUÍDO !',MB_ICONQUESTION + MB_YESNO); If Resposta = IDYES Then If lstSenhas.ItemIndex > -1 Then begin lstSenhas.Items.Delete(lstSenhas.ItemIndex);(AQUI DÁ O ERRO) Messagebox(handle,'O item escolhido foi apagado com sucesso ! ','OPERAÇÃO EFETUADA',MB_IconInformation); lstSenhas.Items.SaveToFile(ExtractFilePath(application.ExeName)+'\SENHAS.txt'); Registro:= lstSenhas.Items.Strings[lstSenhas.itemIndex]; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.Openkey('SOFTWARE\NOBRE INFORMÁTICA\SENHAS',True); reg.DeleteValue(Registro); reg.CloseKey; end Else //Não faz nada except If lstSenhas.ItemIndex = -1 Then //Não faz nada Else Messagebox(handle,'Um erro inesperado ocorreu.'+#13+'Por favor, entre em contato com o desenvolvedor do software e relate o fato. ','ERRO',MB_IconStop); end; end; O ERRO APARECE NA LINHA lstSenhas.Items.Delete(lstSenhas.ItemIndex);(AQUI DÁ O ERRO) O erro diz que Exception class EstringListError with message 'list index out of bounds(-1)' obrigado

Prezados colegas, O código abaixo é tradicional para cria um txt If Not FileExists( ExtractFileDir(Application.exename)+'\SENHAS.txt') Then begin Assignfile(f,ExtractFileDir(Application.exename)+'\SENHAS.txt'); Rewrite(f); Closefile(f); end; Como faria para criar este mesmo txt com a propriedade de OCULTO. Agradeço a quem puder ajudar.

Valeu a atenção, Orlando e Vinícius

Brigadão OSJunior, funcionou perfeitamente.

Prezado Roberto, o que seria gerar um serviço?

Pesquisei antes no forum para ver se tinha algo relativo ao que vou perguntar, mas não encontrei nada. Minha dúvida é a seguinte: Quando executamos qualquer programa(exe), o ícone dele aparece na barra de tarefas. Como podemos codificar ou usar alguma propriedade do form, para que isso não aconteça. No meu caso fiz um relógio digital, que nada mais é do que um label em cima de um form,e na hora dele aparecer não tem muito sentido ficar o ícone dele aparecendo na barra de tarefas, até porque todos os comandos estão num menu popup. Alguém sabe como resolver?? Obrigado!!

Muito Obrigado, GrayMalkin. Abraços, Paulo Nobre

Prezado ReiDeDeus, pelo que sei(se é que sei), isto não é possível. Para você ter um banco de dados independente é necessário criá-lo, por exemplo com o VB ou DELPHI.

Adaptei o código que havia obtido da seguinte maneira: Procedure MemoPrint(Conteudo:TStrings); Var MemoFile :TextFile; P :Integer; Begin AssignPrn(MemoFile); Rewrite(MemoFile); For P := 0 to Conteudo.Count-1 do Writeln(MemoFile,Conteudo.Strings[P]); CloseFile(MemoFile); end; Exemplo :Num botão para imprimir(por exemplo cmdImprimir) coloque Procedure Tform1.cmdImprimir(Sender:TObject); begin MemoPrint(Memo1.Lines); end; Deu certo e funcionou!! Agora tenho uma outra dúvida que é a seguinte. O código acima imprime apenas o conteúdo do memo. Que adaptação deveria fazer para colocar um cabeçalho para imprimir antes de aparecer o conteúdo do memo? Por exemplo se eu quisesse que aparecesse sempre antes do conteúdo do memo a frase: DELPHI É MUITO BOM!!

Gostaria que alguém me passasse um código simples para imprimir o conteúdo de um memo. Achei o código abaixo, mas não o entendi e não funcionou!!! O código abaixo implementa uma função para imprimir o conteúdo de um componente Memo. Para que seja feita a impressão, o código cria um arquivo texto de impressão (MemoFile :TextFile), com o objetivo de armazenar as linhas existentes no memo. Neste arquivo são armazenadas todas as linhas existentes no memo. O código completo: Procedure TForm1.Memo_Print(Conteudo:TStrings); Var MemoFile :TextFile; P :Integer; Begin AssignPrn(MemoFile); Rewrite(MemoFile); For P := 0 to Conteudo.Count-1 do Writeln(MemoFile,Conteudo.Strings[P]); CloseFile(MemoFile); end; Exemplo : Procedure Tform1.Button1Click(Sender:TObject); begin MemoPrint(Memo1.Lines); end; obrigado

Realmente melhorou muito, resolveu meu problema. Valeu pela dica, Graymalkin. Obrigado

Definindo a função para calcular o fatorial de um número inteiro da forma abaixo: Function Fatorial(n:Real):Real; begin If n = 0 Then Fatorial:= 1 Else Fatorial:= n * Fatorial(n-1); end; Podemos calcular o fatorial para valores maiores do que se definissimos para n inteiro com imagem inteira. Acontece que mesmo assim o valor máximo que conseguimos calcular é 170! Acontece que gostaria de poder calcular n! para valores maiores que 170. Isto pois, meu objetico é fazer cálculo do tipo combinação de 543, 34 a 34 (C543,34) e para isso preciso da fórmula 543!/34!*509!. Alguém sabe como posso resolver este problema?

Obrigado GrayMalkin, Ficou tudo claríssimo!!

Saquei, mas como faço para controlar o tamanho da linha, para não ter que usar o scroll horizontal.

Digitando memo2.Lines.Add(IntToStr(2)); memo2.Lines.Add(IntToStr(3)); por exemplo 2 e 3 aparecerão na vertical. Como faria para que 2 e 3 aparecessem na horizontal e eseparados por vírgulas? Além disso, como faria, caso o memo tivesse muitos valores, que eles aparecessem 40 em cada linha, por exemplo. obrigado

Perfeitamente progr'amador. valeu e obrigado

Valeu pelo código progr'amador. No meu código, idiotamente estava com o operador div ao invés de mod. Porisso estava dando errado. Consertei e ficou legal. Obrigado

Alguém poderia me dizer onde está o erro do código abaixo? procedure TForm1.Button1Click(Sender: TObject); Var n:Integer; i: Integer; R: Integer; CC: Integer; Mensagem: String; begin CC:=0; n:= StrToInt(edit1.Text); Mensagem:= 'O número ' + IntToStr(n)+' não é primo !' ; For i:= 2 to n - 1 do begin R:= n div i; If (R = 0) Then CC := CC + 1; end; If CC = 0 Then MessageBox(handle,PChar(Mensagem),'AVISO',MB_IconInformation); end; estou tentando escrever um código para descobrir se um valor digitado n é primo. Acontece que para qualquer n a mensagem que aparece é que n não é primo. Esta ocorrendo um erro que não sei por que. A variavel CC não é incrementada e por isso sempre aparece a mensagem de que não é primo, pois CC sempre esta igual a zero.

Estou tentando o código abaixo para achar os primos entre 2 e n, mas está dando totalmante errado. Alguém poderia ajudar. Editei o código anterior, mas continua dando erro. procedure TfrmPrincipal.cmdMostrarPrimos1Click(Sender: TObject); Var n: Integer;//Número primo limítrofe i: Integer; //Contador do laço; j: integer; R: Integer;// resto da divisão begin n:= StrToInt(txtn1.Text); memo2.Clear; If n<2 Then begin MessageBox(handle,'Um número natural maior do que 2 deve ser digitado !','ATENÇÃO',MB_IconExclamation); txtn1.Text:= ''; txtn1.SetFocus; abort; end; If n = 2 Then begin MessageBox(handle,'Dois é um número primo. Na realidade o único número primo par e positivo !','ATENÇÃO',MB_IconExclamation); memo2.Lines.Add(IntToStr(2)); abort; end; If n = 3 Then begin memo2.Lines.Add(IntToStr(2)); memo2.Lines.Add(IntToStr(3)); end; If n = 4 Then begin memo2.Lines.Add(IntToStr(2)); memo2.Lines.Add(IntToStr(3)); end; If n > 4 Then begin//1 memo2.Lines.Add(IntToStr(2)); memo2.Lines.Add(IntToStr(3)); For i:= 4 to n do begin//2 For j:= 2 to i - 1 do begin//3 R:= i mod j; If R = 0 Then //Não faz nada Else memo2.Lines.Add(IntToStr(i)); end;//3 end;//2 end;//1 end; Quando digito 5 para saber quantos primos existem de 2 até 5 aparecem 2,3,4,5,5,5. Sei que o erro está na parte ... For i:= 4 to n do begin//2 For j:= 2 to i - 1 do begin//3 R:= i mod j; If R = 0 Then //Não faz nada Else memo2.Lines.Add(IntToStr(i)); end;//3 end;//2 Na realidade preciso que memo2.Lines.Add(IntToStr(i)); seja executado apenas se R<>0 sempre.