j� tentou assim:
...
i := StrToInt64(FakeResult);
...
t+
----- Original Message -----
From: thiago castro
To: [email protected]
Sent: Thursday, March 03, 2005 3:33 PM
Subject: Re: [delphi-br] Fun��o - muuuuuuuuito estranho...
tenta isso aqui
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;
--- Filipe <[EMAIL PROTECTED]> escreveu:
---------------------------------
Ol�, tehno esta fun��o abaixo, que, na linha
"i := StrToInt(FakeResult);"
Ocorre uma excess�o, dizendo algo como:
''234234234'' n�o � um valor inteiro valido....
Observem q a primeira e a ultima aspas s�o da mensagem
de erro msm, mas as de dentro...
parece q minha string, ao inv�s de ser 'string', est�
como ''string''... o que pode estar acontecendo???
Obrigado.
function
TfrAcompanhaProcesso.DeixaApenasNumeros(S: String):
Integer;
var
i: Integer;
FakeResult: String;
begin
Result := 0;
FakeResult := EmptyStr;
for i := 1 to Length(S) do
if S[i] in ['0'..'9'] then
FakeResult := FakeResult + S[i];
i := StrToInt(FakeResult);
Result := i;
end;
____________________
Filipe Geyer
Programador
[EMAIL PROTECTED]
www.bludata.com.br
[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] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um servi�o oferecido por:
function SearchComboBox() {
if (document.form_combo.keyword.value.length==0){
alert("Por favor, digite algo."); return false; }else
{ document.form_combo.action
="http://br.rd.yahoo.com/SIG=12avp06mu/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1109944618/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;}
[input]
[input] [input]
---------------------------------
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 Termos do Servi�o do Yahoo!.
_______________________________________________________
Yahoo! Acesso Gr�tis - Instale o discador do Yahoo! agora.
http://br.acesso.yahoo.com/ - Internet r�pida e gr�tis
--
<<<<< 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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um servi�o oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc� faz do Yahoo! Grupos est� sujeito aos Termos do Servi�o
do Yahoo!.
[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] ou [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
