Función que obtiene el primer carácter de cada palabra de una cadena:

function obtenerSiglas (cadena : string) : string;
var
  siglas, palabra : string;
  i : integer;
begin
  siglas := '';
  palabra := '';
  for i := 1 to length(cadena) + 1 do
  begin
    if (cadena[i] <> ' ') and (i <= length(cadena)) then
        palabra := palabra + cadena[i]
    else
    begin
      if palabra <> '' then
      begin
        siglas := siglas + palabra[1];
        palabra := '';
      end;
    end;
  end;
  obtenerSiglas := siglas;
end;

  ShowMessage(obtenerSiglas('Esto es una prueba de obtención de las siglas de una cadena.'));

Publicado el: 2004-12-19