Pegar de Clipboard a StringGrid

[[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.

[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

[Cristhor1982]

Amigos, de nuevo con el problema para pegar desde clipboard a TStringGrid...

Ahora necesito pegar esto

Equipo 12345

Fecha/Hora 23-may-2013 11:49:11 CLT

Horometro 1111

Operador 12

Cancha 20

Insumo 6789

Cantidad 121

y quede de esta forma

Equipo Fecha/Hora Horometro Operador Cancha Insumo Cantidad
15503 23-may-2013 11:49:11 CLT 1515 363 32 50085645 121


POR FAVOR AYUDA...Llevo unos dias tratando y me pega en cualquier lado....


SAludos

[ecfisa]

Hola Cristhor1982.

Recuerda que: preguntas diferentes = hilos diferentes (Punto 8 de la guía de estilo).

Saludos y gracias por tu colaboración