Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];

Вниз

импорт-экспорт   Найти похожие ветки 

← →
Talla2k   (2003-10-19 23:01) [0]

Как из Stringgrid в Excel (и обратно).
Прийму все варианы.(Желательно без установки доп.компонент)

---

← →
Song   (2003-10-19 23:03) [1]

Через буфер обмена.

---

← →
Talla2k   (2003-10-19 23:08) [2]

Если можно подробнее(желательно исходники)

---

← →
Song   (2003-10-19 23:15) [3]

Ну вот например (сколько раз уже приводил, поискать в лом ??? )

Procedure CopyStringGridToClipBoard(StringGrid: TStringGrid);
{ Процедура копирует TStringGrid, переданный в качестве параметра в буфер обмена }
Var S: String;
t,r: Integer;
Begin
S:="";
With StringGrid Do For t:=0 to RowCount-1 Do
Begin
For r:=0 to ColCount-1 Do IF r = ColCount-1 then S:=S+Cells[r,t] else S:=S+Cells[r,t]+#9;
S:=S+#13#10;
End; {For}
{ Включаем русский язык на время копирования }
ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0);
ClipBoard.AsText:=S;
End;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c