Q&A

  • FlatCheckList에서~~요
안녕하세요?
델 초보인데요 필드값이 'A'면 FlatCheckList에 체크를
하고 싶은 도저히 안되는군요 제발 좀 도와 주세요 소스는요
Dm1.CatTable1.First;
ChkVal:=0;
while Not Dm1.CatTable1.Eof do
Begin
  If StrToInt(Gono) = Dm1.CatTable1.FieldByName('Cno').AsInteger Then
     Begin
        RdVal:=RdVal+1;
        G32_ProgressBar1.Position:=RdVal;
        KindFish:=Trim(Dm1.CatTable1.FieldByName('Cbd').AsString);
        //LenNm:=length(KindFish);
        LenSp:='';
        //For Lencn:=1 to (10-LenNm) Do
        //    LenSp:=LenSp + '';
        FlatCheckListBox1.Items.Add(KindFish+Lensp+
        (Dm1.CatTable1.FieldByName('Cdt').AsString)+' '
        +(Dm1.CatTable1.FieldByName('Cti').AsString)+' '
        +(Dm1.CatTable1.FieldByName('Cpl').AsString));

        // ShowMessage(inttostr(FlatCheckListBox1.ItemIndex)); -> 계속 -1만
        If (Trim(Dm1.CatTable1.FieldByName('Cpl').AsString) = '보관') Then
           Begin
             FlatCheckListBox1.Checked[FlatCheckListBox1.Items.Count]:=True;
--> 이 부분이 안되요            
           End;
     End ;
  Dm1.CatTable1.Next;
nd;
0  COMMENTS