[[nlsgarcia]]

Cristhor1982,

Empezado por Cristhor1982

Necesito que los valores Vacios de lo que copio no los inserte, trate con un IF TS[i]='' then..etc pero no puedo

La solución que te propuse en el Mensaje #4 tiene el siguiente código:

Código Delphi [-]
procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

Luego, si hay texto en el Clipboard este es procesado:

Código Delphi [-]
 if Clipboard.HasFormat(CF_TEXT) then
   begin
      Split(' ',Clipboard.AsText,StrList);
   ...

De esta forma solo se copia al TStringList los valores diferentes de blanco del Clipboard, usando el carácter blanco como separador de data.

Adicionalmente:

Código Delphi [-]
IF TS[i]='' Then

No verifica si el valor es blanco, solo verifica si el valor es empty, contrariamente:

Código Delphi [-]
IF TS[i]=' ' Then

Si verifica si el valor es blanco.

Te sugiero probar ambas opciones e implementes la que mejor se adapte a tu proyecto.

Espero sea útil

Nelson.