Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Incrementar número com ponto


Douglas Soares

Pergunta

Parece ser uma coisa fácil... mas é... porem ngm sabe tudo, rsrsrs

existe algum componente tipo spin edit que possa incrementar números assim: 6.5.1.2 > 6.5.1.3 > 6.5.1.4 > 6.5.1.5.... e assim vai.... alguém conheçe uma forma de fazer isso???

Obrigado

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
existe algum componente tipo spin edit que possa incrementar números assim: 6.5.1.2 > 6.5.1.3 > 6.5.1.4 > 6.5.1.5.... e assim vai.... alguém conheçe uma forma de fazer isso???

Use um componente Edit e um componente UpDown da paleta Win32

voce quer mastigado ou quer tentar fazer ??? rs é bem facil

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Na propriedade Max do UpDown coloque 100 e na propriedade Min coloque -100

No evento OnClick coloque:

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var val, c, a, i  : integer; S: string;
begin
   if Button = btNext then
      begin
         S := Edit1.Text;
         while Pos('.', S) > 0 do
               delete(s,Pos('.', S),1);

         val := strtoint(trim(s));
         val := val + 1;
         s := inttostr(val);
         c := length(trim(s));

         for a := 1 to c-1 do
            Insert('.',s,a*2);

         Edit1.Clear;
         Edit1.Text := s;
      end;

    if Button = btPrev then
      begin
         S := Edit1.Text;
         while Pos('.', S) > 0 do
               delete(s,Pos('.', S),1);

         val := strtoint(trim(s));
         val := val - 1;
         s := inttostr(val);
         c := length(trim(s));

         for a := 1 to c-1 do
            Insert('.',s,a*2);

         Edit1.Clear;
         Edit1.Text := s;
      end;
end;

No edit voce digita o valor que quer começar

exemplo:

1.0 ou 1.1.2.0 etc... o valor digitado irá variar de 100 a -100

Obs: se quiser começar com 0.0.1 não esqueça de adicionar zeros ( caracter ) a esquerda do numero

Como eu disse é bem facil ..... abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...