tirar ponto e traço de uma string?
15/05/2003
0
ex .: 123456-96
123.123.12-6
gostaria de tirar os tarços e os pontos da string
ex .: 12345696
123123126[/b:1221ebccd4]
Guigao
Posts
15/05/2003
Hatrix
procedure TForm1.Button2Click(Sender: TObject);
var i,j : integer;
texto:string;
textofinal:string;
begin
texto := edit1.text;
textofinal := ´´;
for i:=1 to length(texto) do
begin
if not((copy(texto,i,1) = ´-´)or(copy(texto,i,1) = ´.´)) then
begin
textofinal := textofinal+copy(texto,i,1);
end;
end;
label1.caption := textofinal;
end;
15/05/2003
4_olho
Percorra a string original, caracter a caracter;
Veja se o caracter está em [0..9];
Em caso afirmativo, adicione este caracter na string auxiliar;
Em caso negativo, vá para o próximo
No final se desfaça da string original e renomeie a auxiliar
Desculpe não lhe dar o peixe ...
15/05/2003
By Alemão
var
i : integer;
begin
Edit2.Text := ´´;
for i:=1 to Length(Edit1.Text) do begin
if (copy(Edit1.Text,i,1) = ´.´) or (copy(Edit1.Text,i,1) = ´-´) then
Edit2.Text := Edit2.Text
else Edit2.Text := Edit2.Text + (copy(Edit1.Text,i,1));
end;
end;
15/05/2003
E_gama
procedure TForm1.Button1Click(Sender: TObject);
const NaoCopiar = ´-.,=+´; // Os caracteres que serão excluídos
var I: Integer;
S: string;
begin
Edit2.Text := ´´;
S := Edit1.Text;
for I := 1 to Length(S) do
begin
if Pos(S[I], NaoCopiar) = 0 then
Edit2.Text := Edit2.Text + S[I];
end;
end;
17/05/2003
Dcport
function KeepOnlyDigits(var Texto: string): string;
var
i, j: Integer;
begin
j := 0;
for i := 1 to Length(Texto) do
if Texto[i] in [´0´..´9´] then
begin
Inc(j);
Texto[j] := Texto[i];
end;
SetLength(Texto, j);
Result := Texto;
end;
-- dcport
Clique aqui para fazer login e interagir na Comunidade :)
