Formatação de forma simples
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+
Valeu t+
Gigatel
Curtidas 0
Respostas
Kotho
16/05/2005
O que você está utilizando para formatar o texto?
GOSTEI 0
Sremulador
16/05/2005
já tentou usar o formatfloat ???
GOSTEI 0
Edilcimar
16/05/2005
no onexit coloque
try
meunúmero := strtofloat(edit1.text)
execept
showmessage(´xxx´)
edit.setfocus;
end;
edit.text := floattostrf(menumero,10,2);
try
meunúmero := strtofloat(edit1.text)
execept
showmessage(´xxx´)
edit.setfocus;
end;
edit.text := floattostrf(menumero,10,2);
GOSTEI 0
Gigatel
16/05/2005
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)]);
GOSTEI 0
Kotho
16/05/2005
O FormatFloat é uma boa idéia: FormatFloat(´0.00´, valor);
quando quizer usar o separador de milhar: FormatFloat(´,0.00´, valor);
quando quizer usar o separador de milhar: FormatFloat(´,0.00´, valor);
GOSTEI 0
Gigatel
16/05/2005
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
GOSTEI 0
Kotho
16/05/2005
então colega... a primeira fórmula é sem o separador... a segunda com que é com separador...
GOSTEI 0
Gigatel
16/05/2005
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 ?
GOSTEI 0
Edilcimar
16/05/2005
uma variável flutuante
GOSTEI 0
Edilcimar
16/05/2005
corrigindo a função acima
try
meunúmero := strtofloat(edit.text)
execept
showmessage(´xxx´)
edit.setfocus;
end;
edit.text := floattostrf(meunumero,ffFixed,10,2);
try
meunúmero := strtofloat(edit.text)
execept
showmessage(´xxx´)
edit.setfocus;
end;
edit.text := floattostrf(meunumero,ffFixed,10,2);
GOSTEI 0
Gigatel
16/05/2005
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 ?
GOSTEI 0
Edilcimar
16/05/2005
no onexit do edit coloque
var meunumero : real;
var meunumero : real;
GOSTEI 0
Gigatel
16/05/2005
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+
GOSTEI 0
Edilcimar
16/05/2005
é isto aí
GOSTEI 0