안녕하세요.(주)나이렉스 인터내셔날의 짱굽니다.

테이블을 동적으로 생성하는 루틴입니다. 참고 하세요.

  { ************************** TblName ************************** }
  with TTable.Create(Application) do
  begin
    Active := False;
    DatabaseName := DBName;  {DBName을 바꾸어주는 코드부분입니다.}
    TableName := TblName;    {TableName을 바꾸어주는 코드부분입니다.}
    TableType := ttDefault;

    { *************** Fields of Table 'TblName' **************** }
    FieldDefs.Add('UserIndex', ftAutoInc, 0, False);
    FieldDefs.Add('MainIndex', ftSmallInt, 0, False);
    FieldDefs.Add('Style', ftSmallInt, 0, False);
    FieldDefs.Add('TempShort', ftSmallInt, 0, False);

    { *************** Indexes of Table 'TblName' ****************  }
    IndexDefs.Add('', 'UserIndex', [ixPrimary, ixUnique]);
    IndexDefs.Add('ChapExNo', 'Chapter;ThemeNo;Style;ExamNo', [ixCaseInsensitive]);
    CreateTable;
    Free;
  end;

그럼 좋은 코딩핫에ㅛ.