[Cristhor1982]

Empezado por nlsgarcia

Cristhor1982,


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.

Al final lo solucione con una variable x que almacenaba y luego en un ciclo le preguntaba si era '' ...y funciono.. Gracias