Fórum Formatação de forma simples #281833

16/05/2005

0

Delphi

Tenho olhado os tópicos e não encontrei nada que me atendesse, será então que existe uma forma simples ?..Imaginem um edit onde coloco um número 10, e no exento ONEXIT deste edit colocaria uma função que ficasse assim 10,00, isso até que achei aki no fúrum, más quando coloca um numero maior tipo 1000, nas funções que achei aqui, fica assim 1.000,00. presciso de algo assim 1000,00 isto é por causa de calculos, quando tem o ponto ele dá uns erros...

Valeu t+


Gigatel

Gigatel

Responder

Posts

16/05/2005

Kotho

O que você está utilizando para formatar o texto?


Responder

Gostei + 0

16/05/2005

Sremulador

já tentou usar o formatfloat ???


Responder

Gostei + 0

16/05/2005

Edilcimar

no onexit coloque
try
meunúmero := strtofloat(edit1.text)
execept
showmessage(´xxx´)
edit.setfocus;
end;
edit.text := floattostrf(menumero,10,2);


Responder

Gostei + 0

16/05/2005

Gigatel

O que você está utilizando para formatar o texto?


o ultimo foi este

no evento Onexit eu coloquei,

Edit1.Text:= format(´¬n´, [strtofloat(Edit1.Text.Text)]);


Responder

Gostei + 0

16/05/2005

Kotho

O FormatFloat é uma boa idéia: FormatFloat(´0.00´, valor);

quando quizer usar o separador de milhar: FormatFloat(´,0.00´, valor);


Responder

Gostei + 0

16/05/2005

Gigatel

O FormatFloat é uma boa idéia: FormatFloat(´0.00´, valor); quando quizer usar o separador de milhar: FormatFloat(´,0.00´, valor);


aí e que está, eu não quero separador de milhar

quero que o número fique assim 1000,00


Responder

Gostei + 0

16/05/2005

Kotho

então colega... a primeira fórmula é sem o separador... a segunda com que é com separador...


Responder

Gostei + 0

16/05/2005

Gigatel

no onexit coloque try meunúmero := strtofloat(edit1.text) execept showmessage(´xxx´) edit.setfocus; end; edit.text := floattostrf(menumero,10,2);


o que seria este meunúmero ?


Responder

Gostei + 0

16/05/2005

Edilcimar

uma variável flutuante


Responder

Gostei + 0

16/05/2005

Edilcimar

corrigindo a função acima
try
meunúmero := strtofloat(edit.text)
execept
showmessage(´xxx´)
edit.setfocus;
end;
edit.text := floattostrf(meunumero,ffFixed,10,2);


Responder

Gostei + 0

16/05/2005

Gigatel

corrigindo a função acima try meunúmero := strtofloat(edit.text) execept showmessage(´xxx´) edit.setfocus; end; edit.text := floattostrf(meunumero,ffFixed,10,2);



Como faço para declarar esta variável ?


Responder

Gostei + 0

16/05/2005

Edilcimar

no onexit do edit coloque
var meunumero : real;


Responder

Gostei + 0

16/05/2005

Gigatel

no onexit do edit coloque var meunumero : real;


Rapais funcionou filé...afunção completa ficou assim

procedure TForm1.Button1Click(Sender: TObject);
var
meunumero : real;
begin
try
meunumero := strtofloat(edit1.text)
except
showmessage(´xxx´);
edit1.setfocus;
end;
edit1.text := floattostrf(meunumero,ffFixed,10,2);
end;

end.

Valeu, muito obrigado estava prescisando mesmo disto...

é bom que outras pessoas vejam como faz, ví que tinha muita gente aki no fórum procurava esta, função ...t+



Responder

Gostei + 0

16/05/2005

Edilcimar

é isto aí


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar