Concluir esta função
02/02/2010
0
begin
if (Pos ('-',fTelefone) > 0) then Result := Espero que possam mim ajudar!
Thiago Santana
Posts
02/02/2010
Marcos Iwazaki
fTelefone := StringReplace(fTelefone,'-',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,'(',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,')',[rfReplaceAll]);
02/02/2010
Thiago Santana
02/02/2010
Thiago Santana
var
I: integer;
begin
Result := '';
for I := 1 to Length(fTelefone) do
if Pos(fTelefone[I], '0123456789') > 0 then
Result := Result + fTelefone[I];
end; Valeu abraçoO
02/02/2010
Marcos Iwazaki
em vez de usar "pos" e tal
usar o "StringReplace" que ja faz isso.
Clique aqui para fazer login e interagir na Comunidade :)