Meu caro, Alisson
Desculpe a minha inexperiência, pois sou iniciante.
- Como utilizar esta procedure.
Não entendi como funciona.
Abrçs,
Almir
Alisson Costa Resende <[EMAIL PROTECTED]> escreveu:
Use essa função por mim desenvolvida. Pode usar um
edit comum mesmo. Faça a chamada no evento OnKeyUp do
Edit.
procedure DigitaNumero (Edit: TCustomEdit; Mascara:
String; PermiteVazio : Boolean);
var Texto : String;
i, Casas : Integer;
begin
//Código para evitar que a seleção do texto do edit
seja desfeito pelo SelStart
if (Edit.SelText = Edit.Text) and (Edit.Text <> '')
then
Exit
else if (Edit.Text = '') then
begin
Edit.Text := FormatFloat(Mascara, 0);
if PermiteVazio then
Edit.Text := '';
Edit.SelStart := Length(Edit.Text);
Exit;
end;
Texto := '0';
Casas := 0;
i := Length(Mascara);
while (Mascara[i] <> '.') do
begin
i := i-1;
Inc(Casas);
Texto := Texto + '0';
end;
for i := 1 to Length(Edit.Text) do
if (Edit.Text[i] in [#48..#57]) then
Texto := Texto + Edit.Text[i];
if (Casas > 0) then
Insert(',', Texto, Length(Texto)-Casas+1);
Edit.Text := FormatFloat(Mascara,
StrToFloat(Texto));
if (Edit.Text = '0') and PermiteVazio then
Edit.Text := '';
Edit.SelStart := Length(Edit.Text);
end;
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e
anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e
anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
