Cita:
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.