implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);  //SpeedButton1을 더블클릭하면 자동생성
var         //변수지정
SRect:TGridRect;  //SRect값을 stringGrid에 들어갈 변수로 지정
i,j:Integer;     //i,j값을 정수로 지정
flg:char;        //flg값을 ASC∥문자형으로 지정
sum:LongInt;     //sum값을 4byte크기의 정수형으로 지정
begin
   SRect:=StringGrid1.Selection; {SRect를 stringgrid1에서 고른 값으로 지정}
   flg:='A';      //flg를 문자형 'A'로 지정
   for i:=SRect.Top to SRect.Bottom do  //i가 StringGrid의 첫열에서 끝열로 가는동안
    if StringGrid1.Cells[SRect.Right,i]<>''then {Cell의 맨오른쪽까지의 들어간 수가 공백이 아니면}                                                 아니면}
    flg :=#0;   //아무런 키값도 적용시키지 말고
   if flg='A' then flg:='C'  //만약 flg가 'A'이면 'c'를 그렇지 않으면 'b'를 대입하라
   else flg :='B';
   for i:=SRect.Left to SRect.Right do //i가 왼쪽행에서 오른쪽행으로 가는 동안
    if StringGrid1.Cells[i,SRect.Bottom]<>''then  //맨 끝열값이 공백이 아닐경우
     if (flg='C')or(flg='A')then flg:='A'       {flg가 c또는 a이면 a를 대입하고 그렇지않으
                                                  면 #0을 대입하라.}
     else flg:=#0;
   if flg=#0 then MessageDlg('합계를 입력하는 영역입니다.',mtInformation,[mbOK],0);
                            {flg가 #0이면 위맨트의 메세지 창을 출력하라.}
  

대충이런 간단한 프로그램인데 주석을 달라고 해서 다는데 까지했는데
fla:='A'이런 식으로 문자형이 지정되는데 도데체 무슨 뜻인지 모르겠어여
제발 부탁드립니다.흑흑