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.
이거 프로그램좀짜주세요...ㅠㅠ
몇앞에 번호 넣고 학번 넣고 이름 넣고 전화 주소
계속 넣을수있게요..ㅠㅠ
이거 막혔네요 ㅠㅠ
|