Delphi: Cortar string sem cortar palavra

Você que precisa copiar uma quantidade fixa de caracteres, mas que não quer que corte a palavra ao meio, pode tentar utilizar o seguinte código:



function CopySemCortarPalavra(Texto: String; Tamanho: Integer): String;
begin
   if (length(Texto) > Tamanho) then
   begin
      while ((Copy(Texto, Tamanho, 1) <> ' ') and (Tamanho < length(Texto))) do
      begin
         Inc(Tamanho);
      end;
   end;
   Result := Copy(Texto, 0, Tamanho);
end;