총 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;
관심있게 읽어 주셔서 감사합니다. 해결점을 찾아주신다면 고맙겠습니다.
그냥 지나가다 즐프하세요...