딩요~ 님이 쓰신 글 :
: implementation
:
: {$R *.dfm}
:
: procedure TForm1.FormCreate(Sender: TObject);
: begin
: SG.Cells[0,0]:='번호';
: SG.Cells[1,0]:='학번';
: SG.Cells[2,0]:='이름';
: SG.Cells[3,0]:='전화';
: SG.Cells[4,0]:='주소';
: end;
:
: procedure TForm1.Button1Click(Sender: TObject);
: //전역변수 필요 몇번 저장했는지 아는 변수 필요
: begin
: cnt:= 1; <==== 여기서 초기화를 하니 계속 처음으로 들어가지요
: sg.Cells[cnt,cnt]:='inttostr(cnt-1)';
: sg.Cells[cnt+1,cnt]:='edit2.text';
: sg.Cells[cnt+2,cnt]:='inttostr(edit3.Text)';
: sg.Cells[cnt+3,cnt]:='edit4.Text';
: sg.Cells[cnt+4,cnt] :='inttostr(edit1.text)';
:
: inc(cnt);
: end;
:
: end.
:
: 이거 프로그램좀짜주세요...ㅠㅠ
: 몇앞에 번호 넣고 학번 넣고 이름 넣고 전화 주소
: 계속 넣을수있게요..ㅠㅠ
: 이거 막혔네요 ㅠㅠ
|