TTable..FindField 메소드로 필드의 존재유무를 알 수 있습니다.




아래 예제를 참고하세요. 테이블을 프로그램 실행시 생성할 수 있는
루틴입니다. 참고로 Index필드 생성 내용도 있습니다.

with Table1 do begin
  Active := False;  
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'CustInfo';

  { Don't overwrite an existing table }

  if not Table1.Exists then begin
    { The Table component must not be active }
    { First, describe the type of table and give }
    { it a name }
    { Next, describe the fields in the table }
    with FieldDefs do begin
      Clear;
      with AddFieldDef do begin
        Name := 'Field1';
        DataType := ftInteger;
        Required := True;
      end;
      with AddFieldDef do begin
        Name := 'Field2';
        DataType := ftString;
        Size := 30;
      end;
    end;

    { Next, describe any indexes }
    with IndexDefs do begin
      Clear;
      { The 1st index has no name because it is
      { a Paradox primary key }
      with AddIndexDef do begin
        Name := '';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin

        Name := 'Fld2Indx';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];
      end;
    end;
    { Call the CreateTable method to create the table }
    CreateTable;
  end;
end;

그럼...수고하세요!

답변 정말 감사드립니다
추가로 한개 더 질문드릴께요~

그럼 파라독스에서 필드들의 길이도 줄이거나 넓힐수 있을까요?
현재 20으로 되어있는 string field의 길이는 30으로 주고 싶은데요~
(이미 이 필드에는 값이 들어가 있습니다)

가능할까요?

좋은 하루 되세요