[AIMor]

Помогите, пожалуйста, кто может!
Каким образом можно вставлять данные в StringGrid, заранее скопировав ячейки из экселя, методом Ctrl+C - Ctrl+V?

[Nyctos Kasignete]

Если вы, скопировав диапазон в Excel, посмотрите содержимое буфера обмена, то увидите, что в буфере данные представлены как текст, в котором содержимое ячеек разделено табуляциями. Можно плясать от этого...
Вот вариант процедуры, с помощью которой можно вставить из буфера данные, скопированные из Excel. Вставка в StringGrid производится начиная от той ячейки, в которой сейчас установлен курсор.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

procedure TForm1.DoClipbrdPaste; var   ClipbrdData: TStringList;   ClipbrdRow: TStringList;   i, j, RowCnt: Integer; begin   if not Clipboard.HasFormat(CF_TEXT) then Exit;   ClipbrdData := TStringList.Create;   ClipbrdRow := TStringList.Create;   try     ClipbrdData.Text := Clipboard.AsText;     RowCnt := ClipbrdData.Count;     <font color="RoyalBlue"><i>// если не вмещается, увеличиваем число строк в StringGrid</i></font>     if StringGrid1.RowCount - StringGrid1.Row < RowCnt then       StringGrid1.RowCount := RowCnt + StringGrid1.Row;     for i := 0 to RowCnt - 1 do     begin       ClipbrdData.Strings[i] := '"' + ClipbrdData.Strings[i] + '"';       ClipbrdData.Strings[i] := StringReplace(ClipbrdData.Strings[i], #9,                                               '"'#9'"', [rfReplaceAll]);     end;     ClipbrdRow.Delimiter := #9;     ClipbrdRow.DelimitedText := ClipbrdData.Strings[0];     <font color="RoyalBlue"><i>// проверяем число столбцов в StringGrid. Если что, добавляем</i></font>     if StringGrid1.ColCount - StringGrid1.Col < ClipbrdRow.Count then       StringGrid1.ColCount := ClipbrdRow.Count + StringGrid1.Col;     for i := 0 to RowCnt - 1 do     begin       ClipbrdRow.DelimitedText := ClipbrdData.Strings[i];       for j := 0 to ClipbrdRow.Count - 1 do         StringGrid1.Cells[j + StringGrid1.Col, i + StringGrid1.Row] := ClipbrdRow.Strings[j];     end;   finally     ClipbrdData.Free;     ClipbrdRow.Free;   end; end;   <font color="RoyalBlue"><i>// вставка в StringGrid по нажатию в нём Ctrl+V</i></font> procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState); begin   if (Key = 86) and (ssCtrl in Shift) then DoClipbrdPaste(); end;

P.S. Если будете использовать, не забудьте подключить модуль Clipbrd в uses.

[AIMor]

Спасибо большое, работает отлично!
Только строку

Код:

1	if (Key = 86) and (ssCtrl in Shift) then DoClipbrdPaste();

лучше доделать следующим образом

Код:

1	if ((Key = 86) or (Key = 112)) and (ssCtrl in Shift) then DoClipbrdPaste();

Чтобы реакция была как на маленькую букву, так и на большую.