Q&A

  • 델파이 초보인디 계산기 프로그램에 대해

----

텍스트에디터   2 개랑   라벨1

+ - 버튼   계산횟수  라벨2

리셋버튼
----

+와-버튼 눌럿을때 텍스트에 입력한 값이 계산되어

라벨1에  그값이 출력되는걸 잘모르겟네요

그리고 라벨2에는 + - 이용 계산해서 계산한횟수를

한번 하면 1 또 하면 2 이렇게 증가돼는거구요

리셋버튼을 누르면 라벨2 의 값이 0으로 초기화

되면 되거던요 이거좀 갈켜주세요

빠른답변좀 낼모레 시험이라

부탁합니다


1  COMMENTS
  • Profile
    Crazy 2003.11.17 23:19
    책을 전혀 안보신거 아닌지요?????

    var
         iCount : Integer;
    Ueses
    .....

    //초기화
    Form1.FormShow( Sender : TSender );
    begin
         iCount := 0;
         Label2.Caption := IntToStr( iCount );
    end;
    //+
    Form1.Buutton1_Click( Sender : TSender );
    var
    begin
         if (Trim(Edit1.Text) = '')  or
            (Trim(Edit2.Text) = '')  then
          begin
                 ShowMessage( 입력한 값이 올바르지 않습니다);
                 Edit1.SetFocus;
                 Exit;
          end;

         Label1.Caption := IntToStr( StrToInt(Edit1.Text) +  StrToInt(Edit2.Text)  );
         Inc( iCount );
         Label2.Caption := IntToStr( iCount );    
    end;

    //-
    Form1.Buutton2_Click( Sender : TSender );
    var
    begin
         if (Trim(Edit1.Text) = '')  or
            (Trim(Edit2.Text) = '')  then
          begin
                 ShowMessage( 입력한 값이 올바르지 않습니다);
                 Edit1.SetFocus;
                 Exit;
          end;

         Label1.Caption := IntToStr( StrToInt(Edit1.Text) +  StrToInt(Edit2.Text)  );
         Inc( iCount );
         Label2.Caption := IntToStr( iCount );    
    end;

    //reset
    Form1.Buutton3_Click( Sender : TSender );
    var
    begin
         Label1.Caption := '0';
         Edit1.Text := '0';
         Edit2.Text := '0';
         iCount := 0;
         Label2.Caption := IntToStr( iCount );    
         Edit1.SetFocus;
    end;