Retirar caracteres de uma frase

Question

Ol� pessoal estou com um problema estou precisando retirar alguns caracteres de uma frase.
Exemplo: um endere�o retirar o numero da rua

RUA IGUATEMI S.CARLOS 678

retirar o 678 e ficar assim

RUA IGUATEMI S.CARLOS

Muito obrigado.

Afarias · Answer

Primeiro, � preciso definir um padr�o para se identificar o q se deseja excluirT+...

Jmarcelo_8 · Answer

O que eu quero excluir eu j� consigo achar dentro da frase, s� esta faltando elimirar o palavra achada....

Afarias · Answer

|O que eu quero excluir eu j� consigo achar dentro da frase, s� esta faltando
|elimirar o palavra achada.

Bom, q vc sabe eu imaginei.Mas se quer ajuda deve contar o q vc sabe pois fica dif�cil ajudar sem ter informa��o nenhuma.

Meu objetivo era q vc nos contasse COMO vc consegue achar, pois como vc vai eliminar depende disso. Bom... Ex: se vc sabe definir a POSI��O onde come�a e termina o texto q quer excluir, use o procedimento DELETE:

Delete(Texto, PosicaoInicial, NumeroPosicoes);

T+

Jose Almeida · Answer

function retificar(frase:String):String;
var
x:integer;
y:char;
begin
Result:=��;
for x:=1 to length(Frase)do
begin
y := frase[x];
if not((Ord(y) > 47) and (Ord(y)< 58)) then
Result := Result + frase[x];
end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := �RUA IGUATEMI S.CARLOS 678�;
ShowMessage(retificar(Edit1.Text));
end;

Afarias · Answer

Funciona... desde q ruas como estas:rua 1� de mar�orua 7 de setembrorua 22  -- em algumas localidades as ruas tem n�meros e n�o nomesrua 12 de outubro...sejam escritas sempre por extenso, certo?T+...

Jose Almeida · Answer

Isso deve resolver o novo problema:function retificar(frase:String):String;  var  x,z:integer;  y:char;  num:boolean;  begin  num := true;  Result:=��;  for x := 1 to length(frase)do    begin  z := length(frase) - x + 1;  y := frase[z];  if num then  if not((Ord(y) > 47) and (Ord(y)< 58)) then num := false;  if not num then Result := y + Result;    end;  end;procedure TForm1.Button1Click(Sender: TObject);  begin  Edit1.Text := �RUA 7 DE SETEMBRO 678�;  ShowMessage(retificar(Edit1.Text));  end;...

F�rum Retirar caracteres de uma frase #375491