unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, clipbrd, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
Memo1: TMemo;
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure CopyStreamToClipboard(S: TStream; fmt: Word);
var
hMem: THandle;
pMem: Pointer;
begin
{stream의 위치를 맨 앞으로 이동시킨다}
S.Position := 0;
{stream의 크기만큼 전역 힙(heap)에 메모리 블록을 할당한후 윈도우 핸들을 얻는다}
hMem := GlobalAlloc(GHND or GMEM_DDESHARE, S.Size);
if hMem <> 0 then
begin
{전역 힙의 할당된 메모리 블록을 고정(lock)시킨다}
pMem := GlobalLock(hMem);
if pMem <> nil then
begin
{할당받은 메모리 블럭에 stream의 내용을 복사한다}
S.Read(pMem^, S.Size);
{위의 S.Read()에 의해 증가된 포인터를 다시 맨 앞으로 이동시킨다}
S.Position := 0;
{전역 힙에서 메모리 블록의 잠금 해제}
GlobalUnlock(hMem);
{클립보드를 열러서 주어진 포맷(여기서는 CF_TEXT)과 윈도우 핸들로 지정된
데이타를 클립보드에 준다}
Clipboard.Open;
try
Clipboard.SetAsHandle(fmt, hMem);
finally
Clipboard.Close;
end;
end
else
begin
{메모리 lock의 실패로 memory block 예외를 발생시킨다}
GlobalFree(hMem);
OutOfMemoryError;
end;
end
else
begin
{메모리 할당의 실패로 memory block 예외를 발생시킨다}
OutOfMemoryError;
end;
end;
procedure CopyGridToClipboard(theGrid: TStringGrid);
var
m: TMemoryStream;
i, j: Integer;
S: String;
begin
m := TMemoryStream.Create;
try
with theGrid do
for i := 0 to Pred(RowCount) {RowCount-1} do
for j := 0 to Pred(ColCount) {ColCount-1} do
begin
S := Cells[j, i];
if j = Pred(ColCount) then // 맨 마지막 Column이면 CR/LF 를 추가하여 행구분
AppendStr(S, #13#10)
else
AppendStr(S, #9); // 각 Column을 Tab 문자로 구분
m.WriteBuffer(S[1], Length(S));
end;
S[1] := #0; // 문자열 stream의 끝 표시
m.WriteBuffer(S[1], 1);
CopyStreamToClipboard(m, CF_TEXT); // stream의 내용을 클립보드로 복사
finally
m.Free;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
var
i, j: Integer;
begin
// Column의 title을 만든다
for i := 1 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[i, 0] := Char(Ord('A')+i-1);
// Row의 title을 만든다
for i := 1 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[0, i] := IntToStr(i);;
// 임의의 자료를 만들어서 각 cell에 입력합니다
for i := 1 to StringGrid1.ColCount - 1 do
for j := 1 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[i, j] := Format('%.0n', [i * j * 10000.0]);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// StringGrid의 내용을 클립보드로 북사
CopyGridToClipboard(StringGrid1);
// 클립보드의 내용을 메모로 붙여넣기(테스트용)
Memo1.Clear;
Memo1.PasteFromClipboard;
end;
end. |
|
