프로그래밍 노트

클립보드의 데이터를 StringGrid에 붙이기 엑셀에서 데이터를 카피해서 StringGrid에 붙이기 클립보드의 데이터를 쓰기위해서는 uses절에 Clipbrd 를 추가해야 된다. procedure TfrmCable.PasteToGrid(sgrdPaste: TStringGrid; iCol, iRow: integer); const cTab = #9; cCR = #13; cLF = #10; var iCols : integer; iRows : integer; i : integer; sClip : string; sSubs : string; begin // Col,Row 이 음수 일때는 0으로 if iCol < 0 then iCol := 0; if iRow < 0 then iRow := 0; sClip := C..

델파이에서 엑셀 파일에 선그리기 procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; Const xlNone = -4142; xlDiagonalDown = 5; xlDiagonalUp = 6; xlEdgeLeft = 7; xlEdgeTop = 8; xlEdgeBottom = 9; xlEdgeRight = 10; xlContinuous = 1; xlThin = 2; xlThick = 4; xlAutomatic = -4105; begin Excel := CreateOleObject('Excel.Application'); Excel.V..

델파이에서 엑셀로 데이터 출력하는 간단한 예제 맨 위의 uses에는 "ComObj"를 추가 해야된다. procedure TForm1.Button1Click(Sender: TObject); var Excel: OleVariant; WorkBook: OleVariant; WorkSheet: OleVariant; i : integer; begin Excel := CreateOleObject('Excel.Application'); Excel.Visible := True; // 워크북 추가 Excel.WorkBooks.Add; WorkBook := Excel.ActiveWorkBook; // 워크시트 추가 Workbook.sheets.add; try // 작업할 워크시트 선택 WorkSheet := WorkBoo..