Pegar de Clipboard a StringGrid

[ecfisa]

Empezado por Cristhor1982

No logro pegar desde la Row 1 de la grilla, siempre comienza de la Row 0, me puedes ayudar, gracias

Hola.

De este modo pegará los valores en la columna y a partir de la fila que indique la celda seleccionada actualmente:

Código Delphi [-]
var
  TS: TStrings;
  i : Integer;
begin
  if Clipboard.HasFormat(CF_TEXT) then
    with StringGrid1 do
    begin
      TS := TStringList.Create;
      try
        TS.Text := clipboard.AsText;
        RowCount := TS.Count;
        for i:= 0 to TS.Count-1 do
          Cells[Col, StringGrid1.Row+i]:= TS[i]; //(*)
      finally
        TS.Free;
      end;
  end
end;

Si deseas utilizar el edit para seleccionar la columna, reemplaza la línea (*) por:

Código Delphi [-]
   Cells[StrToInt(Edit1.Text),StringGrid1.Row+i]:= TS[i];

Saludos.