inputbox somentes dados num�ricos � possivel?

Question

Ol� pessoal, por acaso o inputbox tem prote��o para dados numericos.Exemplo: 100,58 somente aceitar n�meros e n�o permitir dados do tipo string.Abra�os....

Marco Salles · Answer

acho que n�o.. Mas voce pode criar uma janela que se comporta como inputQuery e adicionar esta caracteristica.... Outra saida mais simples � testar a saida e informar se � ou n�o � un numero v�lido

Fabiotb · Answer

tipo, como se faz uma funcao q chama uma form e retornar o resultado da edit dessa form? abracos...

Mahdak · Answer

como nao tenho certeza, e creio que visualmente ao entrar com o valor voce nao possa fazer esse tipo de coisa com um inputbox, o que voce podeestar fazendo era tratar esses dados na saida, como por exemplo:

// Remove caracteres de uma string deixando apenas numeros
function RemoveChar(Const Texto:String):String;
var
I: integer;
S: string;
begin
S := ��;
for I := 1 To Length(Texto) Do
begin
if (Texto[I] in [�0�..�9�]) then
begin
S := S + Copy(Texto, I, 1);
end;
end;
result := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
var saida : string;
begin
    saida := inputbox(�validando saida�,�digite o valor:�,��);
    Showmessage(removechar(saida));
end;

espero ter ajudado

abra�os!

Fabiotb · Answer

Pessoal, meu amigo Everton Mateus me ajudou a desenvolver a solu��o do nosso proprio inputbox.
N�s criamos uma form com nome frm_inputboxps usando uma label, um edit, e um radiogroup e um botao.
(nosso objetivo � tratar o tipo de dados na edit e retorna o mesmo).
Sendo que o radiogroup utilizamos para controlar o tipo de dados (double,string,inteiro). Sendo que no evento:
procedure Tfrm_inputbox.edKeyPress(Sender: TObject; var Key: Char);
begin
case RadioGroup1.ItemIndex of
0 : begin
if not (Key in[�0�..�9�,�,�,Chr(8),chr(13)]) then Key:= #0;
end;
1 : begin
if not (Key in[�a�..�z�,�A�..�Z�,Chr(32),�,�,Chr(8),chr(13)]) then Key:= 0;
end;
2 : begin
if not (Key in[�0�..�9�,Chr(8),chr(13)]) then Key:= 0;
end;
end;

nossa fun�ao ficou assim:

function inputboxps(mensagem:string;tipodados:integer):string;
begin
try
frm_inputbox:=tfrm_inputbox.create(Application);
frm_inputbox.RadioGroup1.ItemIndex:=tipodados;
frm_inputbox.lblmensagem.Caption:=mensagem;
frm_inputbox.showmodal;
result:=frm_inputbox.ed.Text;
finally
frm_inputbox.free;
end;
end;

Para usar a funcao basta criar uma variavel do tipo string veja abaixo:

Var_valor:=inputboxps(�Valor da Mensalidade:�,0);

Qualquer d�vida tamos ai.
Obrigado por todos que tentaram de alguma forma em me ajudar .

Fabio Correa

F�rum inputbox somentes dados num�ricos � possivel? #331000