프로그래밍 노트

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stdctrls, ExtCtrls;

type
  TForm2 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    procedure GetCtrlName(Sender: TObject);
  public

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

var
  Count1 :integer = 1;
  Count2 :integer = 1;
  sParent : string;

// 컨트롤 키를 눌렀는지 알려줌
function CtrlDown : Boolean;
var
  State : TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[vk_Control] And 128) <> 0);
end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then Exit;

  // 컨트롤 키를 눌렀을때
  if CtrlDown then
  begin

    Inc(Count1);

  end
  // 컨트롤 키를 안눌렀을때
  else
  begin

   Inc(Count2);

  end;

end;

// 동적으로 만들어진 컨트롤을 클릭했을 때 실행
procedure TForm2.GetCtrlName(Sender: TObject);
begin
  Form2.Caption  := (Sender as TButton).Caption;
  //Form2.Caption  := (Sender as TButton).name;

  if ((Sender as TButton).Left + (Sender as TButton).Width + 50) > Form2.Width  then
    (Sender as TButton).Left := 0
  else
    (Sender as TButton).Left :=  (Sender as TButton).Left + 50;
end;

end.

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stdctrls, extctrls
  ,CarList, xmldom, XMLIntf, XMLDoc;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

    ixList : IXMLItemListType;
    ixDetail :Array of IXMLItemType;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  iListCount : integer;
  i : integer;
  sTest : string;
begin

  iListCount := ixList.Count;
  setLength(ixDetail, iListCount);

  ListBox1.Clear;

  // xml 파일에서 아이템 가져오기
  for i := 0 to iListCount - 1 do
  begin
    ixDetail[i] := ixList.Get_Item(i);
    ListBox1.Items.Add(ixDetail[i].Name)
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentPath : array [0..256] of char;
begin

  // 어플리케이션이 위치하는 디렉토리 얻기
  GetCurrentDirectory(sizeof(CurrentPath),CurrentPath);

  // xml을 읽어서 아이템 리스트 로드
  ixList := LoadItemList(CurrentPath + '\CarList.xml');
  Application.GetNamePath

end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: integer;
begin
  i := ListBox1.ItemIndex;

  ListBox2.Clear;
  // 선택한 아이템의 상세 정보 표시
  //ListBox2.Items.Add(ixDetail[i].Sec);
  ListBox2.Items.Add('Color = ' + ixDetail[i].Color);
  ListBox2.Items.Add('Maker = ' + ixDetail[i].Maker);
end;

end.

// XML 파일 읽어오기
procedure TForm1.Button2Click(Sender: TObject);
Var
  xdSoft : TXMLDocument;
begin

  OpenDialog1.Filter := 'Xml file|*.xml';

  if OpenDialog1.Execute then
  begin

    // XML Document 만들기
    xdSoft := TXMLDocument.Create(Application);

    // XML Document 불러오기
    xdSoft.LoadFromFile(OpenDialog1.FileName);
    xdSoft.Active := True;

    // TreeView 기존 데이터 삭제
    TreeView1.Items.Clear;

    // XML 구조를 읽어서 TreeView에 표시
    MakeTree(nil, xdSoft.DocumentElement);

    // TreeView 다 펴서 보여주기
    TreeView1.FullExpand;

    xdSoft.Free;

  end;

end;

// XML 구조를 읽어서 TreeView에 표시
procedure TForm1.MakeTree(TreeNode : TTreeNode; XMLNode : IXMLNode);
var
  Node: TTreeNode;
  i: integer;
  sNode : string;
begin

  sNode := '';

  // 노드 밑에 노드가 없을 때
  if (XMLNode.NodeType = ntText) then
  begin

    // 노드에 Attribute가 있을 때
    if XMLNode.AttributeNodes.Count > 0  then
    begin
      sNode := ' |';
      For i :=0 To XMLNode.AttributeNodes.Count - 1 Do
      begin
        sNode := sNode +
        XMLNode.AttributeNodes.Get(i).NodeName + ' : ' +
        XMLNode.AttributeNodes.Get(i).NodeValue + '|';
      end;
    end;

    // 트리뷰에 노드 추가
    Node := TreeView1.Items.AddChild(TreeNode, XMLNode.NodeValue + sNode);

  end

  // 노드 밑에 노드가 있을 때
  else
  begin

    // 노드에 Attribute가 있을 때
    if XMLNode.AttributeNodes.Count > 0  then
    begin
      sNode := ' |';
      For i :=0 To XMLNode.AttributeNodes.Count - 1 Do
      begin
        sNode := sNode +
        XMLNode.AttributeNodes.Get(i).NodeName + ' : ' +
        XMLNode.AttributeNodes.Get(i).NodeValue + '|';
      end;
    end;

    // 트리뷰에 노드 추가
    Node := TreeView1.Items.AddChild(TreeNode, XMLNode.NodeName + sNode);

  end;

  // 노드 밑에 노드가 있을 경우
  for i :=  0 to  XMLNode.ChildNodes.Count - 1 do
    // XML 구조를 읽어서 TreeView에 표시
    MakeTree(Node, XMLNode.ChildNodes.Nodes[i]);

end;

// XML 파일 만들고 쓰기
procedure TForm1.Button1Click(Sender: TObject);
Var
  xdSoft : TXMLDocument;
  xnRoot  : IXMLNode;
  xnChild : IXMLNode;
  xnGrandchild : IXMLNode;
begin

  // XML Document 만들기
  xdSoft := TXMLDocument.Create(Application);
  xdSoft.Active := True;
  xdSoft.Encoding:= 'euc-kr';

  // 루트 노드 만들기
  xnRoot := xdSoft.AddChild('SoftList');
  // 노드에 속성 설정
  xnRoot.Attributes['LatestUpdate'] := FormatDateTime('YYYY/MM/DD', Now);

  // 테스트 데이터 추가

###################################################################### //

  // 노드 밑에 노드 만들기
  xnChild := xnRoot.AddChild('Soft');
  xnChild.Attributes['Soft_name'] := 'PhotoSharp';

  xnGrandchild := xnChild.AddChild('Detail');
  xnGrandchild.Attributes['maker'] := 'Adove';
  xnGrandchild.Attributes['section']  := 'Drawing tool';
  xnGrandchild.Attributes['Price']  := 5000;

  xnGrandchild := xnChild.AddChild('Extra');
  xnGrandchild.Attributes['name'] := 'toy';
  xnGrandchild.Attributes['note']  := 'for child';

  xnGrandchild := xnChild.AddChild('Stock');
  // 노드 값 설정
  xnGrandchild.NodeValue := 100;

  // ---------------------------------------------------------------------- //

  xnChild := xnRoot.AddChild('Soft');
  xnChild.Attributes['Soft_name'] := 'OverOffice';

  xnGrandchild := xnChild.AddChild('Detail');
  xnGrandchild.Attributes['maker'] := 'OverSoft';
  xnGrandchild.Attributes['section']  := 'office tool';
  xnGrandchild.Attributes['Price']  := 2000;

  xnGrandchild := xnChild.AddChild('Extra');
  xnGrandchild.Attributes['name'] := 'notebook';
  xnGrandchild.Attributes['note']  := 'no comment';

  xnGrandchild := xnChild.AddChild('Stock');
  xnGrandchild.NodeValue := 50;

  // ###################################################################### //

  // XML Document 저장하기
  xdSoft.SaveToFile('C:\Test.Xml');
  xdSoft.Free;

end;

// XML 파일 읽어오기
procedure TForm1.Button2Click(Sender: TObject);
Var
  xdSoft : TXMLDocument;
  xnChild : IXMLNode;
  xnGrandchild : IXMLNode;
  i : Integer;
  j : Integer;
  k : Integer;
  sMsg : string;
  sTest : string;
begin

  // XML Document 만들기
  xdSoft := TXMLDocument.Create(Application);

  // XML Document 불러오기
  xdSoft.LoadFromFile('C:\Test.Xml');
  xdSoft.Active := True;

  // 루트 노드가 없을 경우 종료
  if xdSoft.ChildNodes.First = nil then Begin
    Exit;
  End;

  // 루트에 딸려있는 노드 분
  For i := 0 To xdSoft.DocumentElement.ChildNodes.count - 1 Do
  Begin
    sMsg := '';
    sTest := '';

    xnChild := xdSoft.DocumentElement.ChildNodes[i];
    xnGrandchild := xnChild.ChildNodes[0];

    // Soft 노드의 첫번째 노드의 속한 attribute 분
    For j :=0 To xnGrandchild.AttributeNodes.Count - 1 Do
    begin

    sMsg := sMsg +
      '    ' + xnGrandchild.AttributeNodes.Get(j).NodeName + ' : ' +
      xnGrandchild.AttributeNodes.Get(j).NodeValue + #13

    end;
    sTest := sTest + xnChild.NodeName + ' : ';
    sTest := sTest + xnChild.AttributeNodes.Get(0).NodeValue + #13;

    xnGrandchild := xnChild.ChildNodes[2];

    ShowMessage(
      sTest + #13 +
      sMsg + '    ----------' + #13 +
      '    ' + xnGrandchild.NodeName + ' : ' +
      xnGrandchild.NodeValue
    );

  End;

  xdSoft.Free;

end;

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.Visible := True;

  // 워크북 추가
  Excel.WorkBooks.Add;
  WorkBook := Excel.ActiveWorkBook;

  // 워크시트 추가
  Workbook.sheets.add;

  // 작업할  워크시트 선택
  WorkSheet := WorkBook.WorkSheets[1];

  // 선그리기
  WorkSheet.Range['B5:E10'].Borders[xlDiagonalDown].LineStyle := xlNone;
  WorkSheet.Range['B5:E10'].Borders[xlDiagonalUp].LineStyle := xlNone;
  WorkSheet.Range['B5:E10'].Borders[xlEdgeLeft].LineStyle := xlContinuous;
  WorkSheet.Range['B5:E10'].Borders[xlEdgeTop].LineStyle := xlContinuous;
  WorkSheet.Range['B5:E10'].Borders[xlEdgeBottom].LineStyle := xlContinuous;
  WorkSheet.Range['B5:E10'].Borders[xlEdgeBottom].Weight := xlThick;
  WorkSheet.Range['B5:E10'].Borders[xlEdgeBottom].ColorIndex := xlAutomatic;
  WorkSheet.Range['B5:E10'].Borders[xlEdgeRight].LineStyle := xlContinuous;
end;

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 := WorkBook.WorkSheets[1];

    // 셀에 데이터 입력
    for I := 1 to 100 do
    begin
      WorkSheet.Cells[i,1].Value:= IntToStr(i);
      WorkSheet.Cells[i,2].Value:= 'TEST-' + IntToStr(i);;
    end;

    // 워크북 저장
    WorkBook.SaveAs(Filename:='c:\ExcelOutputTest.xls');

  finally
    // 워크북 닫기
    WorkBook.close;
    WorkBook:=unAssigned;
    WorkSheet:=unAssigned;
    // 엑셀 종료
    Excel.Quit;
    Excel:=unAssigned;
  end ;

end;