BACANA
06/03/2003
0
[b:733d072be5][color=#126987:733d072be5]PRECISO FAZER UMA FUNÇÃO QUE RETORNE TODOS OS NUMEROS DE UMA STRING
EX:
TEXTO = ´H0[i:733d072be5][u:733d072be5]14[/u:733d072be5][/i:733d072be5]HYTF[u:733d072be5][i:733d072be5]596[/i:733d072be5][/u:733d072be5]Ç[u:733d072be5][i:733d072be5]77[/i:733d072be5][/u:733d072be5]´
QUERO CHAMAR A FUNÇÃO E ELA ME RETORNE ´1459677´
VALEU![/color:733d072be5][/b:733d072be5]
[img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cry.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:733d072be5][img:733d072be5]http
EX:
TEXTO = ´H0[i:733d072be5][u:733d072be5]14[/u:733d072be5][/i:733d072be5]HYTF[u:733d072be5][i:733d072be5]596[/i:733d072be5][/u:733d072be5]Ç[u:733d072be5][i:733d072be5]77[/i:733d072be5][/u:733d072be5]´
QUERO CHAMAR A FUNÇÃO E ELA ME RETORNE ´1459677´
VALEU![/color:733d072be5][/b:733d072be5]
[img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_frown.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_confused.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_mad.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cry.gif[/img:733d072be5][img:733d072be5]http://www.apriori.com.br/cgi/forum/images/smiles/icon_evil.gif[/img:733d072be5][img:733d072be5]http
Marcelo Saviski
Curtir tópico
+ 0
Responder
Posts
06/03/2003
Aroldo Zanela
[quote:8344fcd908=´Marcelo Saviski´][b][color=#126987]PRECISO FAZER UMA FUNÇÃO QUE RETORNE TODOS OS NUMEROS DE UMA STRING
EX:
TEXTO = ´H0[i:8344fcd908][u:8344fcd908]14[/u:8344fcd908][/i:8344fcd908]HYTF[u:8344fcd908][i:8344fcd908]596[/i:8344fcd908][/u:8344fcd908]Ç[u:8344fcd908][i:8344fcd908]77[/i:8344fcd908][/u:8344fcd908]´
QUERO CHAMAR A FUNÇÃO E ELA ME RETORNE ´1459677´
VALEU[/quote:8344fcd908]
Veja o exemplo como uma idéia. A propósito, no caso ele retorna:
´01459677´ (Com o zero), caso não queira zero modifique a função IsDigit.
EX:
TEXTO = ´H0[i:8344fcd908][u:8344fcd908]14[/u:8344fcd908][/i:8344fcd908]HYTF[u:8344fcd908][i:8344fcd908]596[/i:8344fcd908][/u:8344fcd908]Ç[u:8344fcd908][i:8344fcd908]77[/i:8344fcd908][/u:8344fcd908]´
QUERO CHAMAR A FUNÇÃO E ELA ME RETORNE ´1459677´
VALEU[/quote:8344fcd908]
Veja o exemplo como uma idéia. A propósito, no caso ele retorna:
´01459677´ (Com o zero), caso não queira zero modifique a função IsDigit.
procedure TForm1.Button1Click(Sender: TObject);
var cResultado, cString: String;
nI, nF: Integer;
begin
cString := ´H014HYTF596Ç77´;
nF := Length(cString);
cResultado := ´´;
For nI := 1 to nF do
begin
cResultado := cResultado + IsDigit(cString[nI]);
end;
ShowMessage(cResultado);
end;
function TForm1.IsDigit(Caracter: Char): String;
begin
if Caracter in [´0´,´1´,´2´,´3´,´4´,´5´,´6´,´7´,´8´,´9´] then
Result := Caracter
else
Result := ´´;
end;
Responder
06/03/2003
Anonymous
Em algum lugar (pode ser no onClick de algum botão) chame a função abaixo passando como parametro a string que contenha todos os caracteres (inclusive os alfanumericos), a função retronará uma STRING (vc pode alterar o tipo de retorno se quiser).
Edit2.Text := pegaNumeros(Edit1.Text);
abaixo segue o corpo da função :
function pegaNumeros(fonte : string) : string;
var
s : string;
i : integer;
begin
s := ´´;
for i := 1 to Length(fonte) do
begin
if ord(fonte[i]) in [48..57] then
s := concat(s, fonte[i]);
end;
pegaNumeros := s;
end;
[]´s
Rodrigo Duarte
Edit2.Text := pegaNumeros(Edit1.Text);
abaixo segue o corpo da função :
function pegaNumeros(fonte : string) : string;
var
s : string;
i : integer;
begin
s := ´´;
for i := 1 to Length(fonte) do
begin
if ord(fonte[i]) in [48..57] then
s := concat(s, fonte[i]);
end;
pegaNumeros := s;
end;
[]´s
Rodrigo Duarte
Responder
06/03/2003
Marcelo Saviski
[color=green:648a0be424]Valeu Camaradas, é bom saber que sempre tem alguém disposto a ajudar
Presisou, é só chamar[/color:648a0be424]
:arrow: :D[img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_wink.gif[/img:648a0be424]
Presisou, é só chamar[/color:648a0be424]
:arrow: :D[img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_biggrin.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_smile.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_lol.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_razz.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_redface.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:648a0be424][img:648a0be424]http://www.apriori.com.br/cgi/forum/images/smiles/icon_wink.gif[/img:648a0be424]
Responder
06/03/2003
Aroldo Zanela
Legal, então enxugando mais ainda....
function TForm1.CatchNumbers(Source: String): String; var S : string; I : integer; begin s := ´´; for i := 1 to Length(Source) do if Source[i] in [´0´..´9´] then s := concat(s, Source[i]); CatchNumbers := s; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
