안녕하십니까?



다름이 아니라 콤보박스에서 전체/남자/여자를 선택하면 자동으로 인원수와 비율을 계산하는 프로그램입니다. 그런데 제가 영 신통치가 않아서 골치가 아파요...

고수님들의 따뜻한 손길과 도움 부탁드립니다.



procedure TForm27.ComboBox1Change(Sender: TObject);

var

i,j,Total:integer;

begin

case combobox1.ItemIndex of

0 : begin

table1.Filtered := false;

Total:=table1.recordcount;

Edit2.text:=IntTostr(Table1.RecordCount);

end;



1 : begin

table1.Filtered := false;

table1.Filter := 'Sex = ''남자''';

table1.Filtered := true;

total:=table1.recordCount;

Edit2.text:=IntTostr(Table1.RecordCount);

i:=table1.recordcount;

Edit3.text:= i div total * 100;

end;



2 : begin

table1.Filtered := false;

table1.Filter := 'Sex = ''여자''';

table1.Filtered := true;

total:=table1.recordCount;

Edit2.text:=IntTostr(Table1.RecordCount);

i:=table1.recordcount;

edit3.text:= j div total * 100;

end;

end;

end;