Q&A

  • 변수까지 올렸습니다.
총 10명의 사원에 대해 각각 6개의 자료를 입력받습니다.
사원번호,부서코드,호봉,이메일,본봉,월매출액 을 입력받지요.
폼1(입력폼)에서 입력받은 자료중 제일 높은 급여를 받은 사원을 골라 폼2(출력폼)에 출력시킵니다.
급여는( 본봉+월매출액수당-공제액 ) 이 급여가 됩니다.
월매출수당과 공제액을 구하는건 생략하겠습니다.
그래서 작성한 코딩은 아래와 같습니다.
그리고 에러는 다음과 같습니다.
[Error] Unit1.pas(190): There is no overloaded version of 'IntToStr' that can be called with these arguments


var                                     <--전역 변수
  Form1: TForm1;
  IP:array[1..10,1..6]of integer;//입력정보 저장 배열  
  OP:array[1..10]of integer;//급여저장 배열
  N,sal:integer; //카운터,최고급여 변수

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
N:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  m,n: integer; //수당,공제액
  a,b:integer;

중간 생략~~~~~~~~


//급여계산(급여=본봉+월매출수당-공제액)  
  sal:=0;
  sal:=IP[N,5]+m-n;
  OP[N]:=sal;//계산된 급여를 급여배열에 저장

  //급여 순위 비교
  for i:=1 to 10 do
    if sal<OP[i] then
       sal:=OP[i]
    else
       sal:=sal;


end;



procedure TForm1.Button3Click(Sender: TObject);  //출력
var
  i: integer;
begin
  form2.Show;
  for i:=1 to 10 do
    if sal=OP[i] then
    begin
      Form2.Label8.Caption:=IntToStr(IP[i,1]);
      Form2.Label9.Caption:=IntToStr(IP[i,2]);
      Form2.Label10.Caption:=IntToStr(IP[i,3]);
      Form2.Label11.Caption:=IntToStr(IP[i,4]);
      Form2.Label12.Caption:=IntToStr(OP[i]);
    end;

end;


관심있게 읽어 주셔서 감사합니다. 해결점을 찾아주신다면 고맙겠습니다.
1  COMMENTS
  • Profile
    KDDG_ZZOM 2002.06.08 00:11
    혹시  IP란 배열값에 null값이 있는건 아닐까요?
    그냥 지나가다 즐프하세요...