Eu resolvo usando duas função que eu mesmo criei
Function ConverterNumeroNaoSQL(Valor:String):string;
var
M_New:String;
i:Integer;
begin
M_New := '';
Valor := trim(Valor);
if (Valor = '') then
Result := '0'
else
begin
for i:=1 to length(Valor) do
begin
if
((valor[i] = '.') or (valor[i] = ',')) then
M_NEW := M_New+DecimalSeparator
else
M_New := M_New+valor[i];
end;
Result := M_New;
end;
end;
Function ConverterStrtoFloat(Valor:String):Extended;
begin
if Valor = '' then
Result := 0
else
Result := strtofloat(ConverterNumeroNaoSQL(Valor));
end;
----- Original Message -----
From: "fernandoaldrighi" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, September 14, 2006 10:57 AM
Subject: [delphi-br] String editada para float
Pessoal, estou tendo problemas na conversao
de uma string para float.
o Conteudo da string, como exemplo seria este: 1.234,56
Ou seja, um valor com o ponto do milhar.
E e´ este ponto do milhar que me causa problemas.
Se na string estivesse assim: 1234,56
nao ocorreria erro de conversao.
Como voces estao resolvendo isto ?
ParamByName('TotProd').Asfloat := strtofloat(edit5.text);
esta e´a linha que uso para converter
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< 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
