ActiveDelphi

[marcellomm]

Boa tarde galera! Seguinte tenho um cadastro de alunos com +ou- 3500 alunos e aki em minas os RGs são alfanuméricos podendo ter os seguinte formatos:

102.103 as mais antigas
M-102.103 por volta de 1940
M-1.102.103 por volta de 1960
MG-1.102.103 por volta de 1980
MG-12.102.103 mais recentes

Resumindo: Gostaria de retirar esses caracteres '-' e '.' dos RGs uniformizando o formato +ou- assim:

102103
M102103
M1102103
MG1102103
MG12102103

Tem como?

[djtatao]

Bom dia

Tenta assim

procedure TForm1.Button1Click(Sender: TObject);
Var Texto1 : String;
x, y : Integer;
begin
for x := 1 to Length(Edit1.Text) do
if Pos(Copy(Edit1.Text, x, 1), '.') <= 0 then
Texto1 := Texto1 + Copy(Edit1.Text, x, 1);

Edit1.Text := Texto1;
end;

Espero ter ajudado.

[adriano_servitec]

Em uma funçao