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
Acho que você tá informando um valor muito grande pra Integer... Tenta
LongInt, Int64 ou algo assim...
-
( ' [EMAIL PROTECTED]
//\ ICQ 2199001
v_/_ MSN [EMAIL PROTECTED]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
Você tá criando um número muito grande.
faça
var
i: longint
begin
i := strtoint64(FakeResult);
end;
- Original Message -
From: Filipe
To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br
Sent: Thursday, March 03, 2005 10:55 AM
Subject: [delphi-br] Função - mito
já tentou assim:
...
i := StrToInt64(FakeResult);
...
t+
- Original Message -
From: thiago castro
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 03, 2005 3:33 PM
Subject: Re: [delphi-br] Função - mito estranho...
tenta isso aqui
function
5 matches
Mail list logo