12397번의 답변을 참고하세요...


heartsim 님이 쓰신 글 :
: 안녕하세요.
: 빌더를 얼마 시작한지 않되는 초보입니다.
: 막히는 부분이 있어서요.
:
: Table1에서 fix.db, dcref.db 등등 여러 파일을 불러서 DBgrid에 표시하는데
: 이 여러 파일을 구분하는 인덱스 같은 기능이 있나요?
: 어떤 경우 버튼을 누르면fix.db데이터를 GBgrid화면에 표시하고 또 버튼을 누르면
: dcref.db데이터를 화면에 보이게 한 후,
: 만일 dcref.db데이터가 선택되어 화면에 보인 경우, 필드를 선택해서 값을 얻을려고 합니다.
:
: 그런데 다음과 같은 로직이 잘 안되서요.
: 자꾸 strlen(Table1->TableName.c_str())에서 에러가 나는 군요
:       Constant expression required
:
: 특별히 파일을 구별할 수 있는 인덱스 기능이 없어서 나름대로 strlen을 써서 그 값으로 파일을 구분할려고 하는데 힘드네요.제가 strlen을 잘 못 썼나요? 이 로직으로 해도 된다면 문법적인 오류가 어디인지 체크를 좀 부탁드립니다.
:
: .
: .
: void __fastcall TForm1::DBGrid1CellClick(TColumn *Column)
: {
:
:         switch(strlen(Table1->TableName.c_str()))
:         {
:                 case strlen("fix.db"):  //에러가 나는 부분 "Constant expression required"
:                    if(strchr(Table1->FieldByName("50")->AsString.c_str(),'&')!=NULL)
:                    {
:                                      중간생략.........
:                    }
:                    else
:                    {
:                                      중간생략.........
:                    }
:                    break;
:        
:                 case strlen("dcref.db"): //에러가 나는 부분
:
:                    if(strchr(Table1->FieldByName("9")->AsString.c_str(),'&')!=NULL)
:                    {
:                         sprintf(str_read,"%s",Table1->FieldByName("9")->AsString);
:                         sprintf(str_write,"%s",str_read+2);
:                         Edit5->Text=str_write;  //주의 요망^^ 고생 엄청 했음
:                         UpDown1->Position=AnsiString("0x"+Edit5->Text).ToInt();
:                         Label9->Caption="&&H";
:                     }
:                     else
:                     {
:                         Edit5->Text=Table1->FieldByName("9")->AsString;
:                         UpDown1->Position=AnsiString(Edit5->Text).ToInt();
:                         Label9->Caption='\0';
:                     }
:                     break;
:         }
:         Label8->Caption=Table1->FieldByName("Name")->AsString;
:         Edit4->Text=Table1->FieldByName("Function")->AsString;
: }
:
: 좋은 하루 되세요.^^
:
: from heartsim