Convertir una cadena a una abreviación

[ecfisa]

Hola.

Veo que agregaste información luego de mi mensaje.

Entonces sería:

Código Delphi [-]
procedure Abreviar(var Cadena: string);
begin
  Cadena:= StringReplace(Cadena, 'Calle', 'CLL.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Edificio', 'ED.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Apartamento', 'AP.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Barrio', 'BRR.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Avenida', 'AV.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Numero', '#.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Aeropuerto', 'AER.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Bloque', 'BL.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Case', 'CA.', [rfReplaceAll]);
  Cadena:= StringReplace(Cadena, 'Piso', 'P.', [rfReplaceAll]);
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str:= 'calle 140 Numero 48-50 edificio Torres alfa Piso 2 apartamento 203 barrio fuentes.';
  Abreviar(str);
  Caption:= str;
  ...
end;

Saludos.