(Resolvido) Incrementar número com ponto

[Douglas Soares]

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

[Jhonas]

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

[Douglas Soares]

Ah... to sem delphi aki em casa agora... segunda quando eu voltar trabalhar vo precisa disso... se você puder ir cortando o bife pra mim eu agradeço :P

Abraços

[Jhonas]

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

[Douglas Soares]

Vlw Jhonas você é meu herói... rsrsrsrs

Abraços