똑 같은 내용의 질문이 올라 오는데요.
아마도 회원분들 답을 안해주실 듯 합니다.

숙제는 직접하시고 직접하셔야 공부가 됩니다. ㅡ_ㅡ;;

참고로 한말씀 드리면

procedure TForm1.Button1Click(Sender: TObject);
//전역변수 필요 몇번 저장했는지 아는 변수 필요
begin
cnt:= 1;

이부분에서 버튼을 누를때 마다 cnt 가 1로 되니
이부분을 다른 곳에서 초기화 해주시고 버튼 이벤트에서 빼시면 잘될 겁니다.

그럼 수고 하세요.

심심해서 한번 해봤습니다.

unit2 를 수정해서 다양한 기능을 추가해보세요

Form1 하나 뿐인 프로젝트에서 unit2 를 uses 에 추가하고
TEdit 4개와 TButton 2개를 올려놓고, 아래와 같이 추가해보세요

끝. (숙제는 자기 힘으로 해야하는 거고 도와주는 사람은 악마입니다.)


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, unit2, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
SG : C_SG;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
SG := C_SG.Create(Form1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SG.AddData(Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SG.init;
end;

end.





unit Unit2;

interface
uses
Grids, Classes, Controls, SysUtils;

type
C_SG = class(TStringGrid)
constructor Create(AOwner : TComponent; Parent : TWinControl = nil);
private
MyDataCount : integer;
public
procedure init;
procedure AddData( StudentNo, Name, PhoneNumber, Address : string);
end;

implementation

{ C_SG }

procedure C_SG.AddData(StudentNo, Name, PhoneNumber, Address: string);
begin
inc(Self.MyDataCount);
Self.RowCount := Self.RowCount + 1;

Self.Cells[0,Self.MyDataCount] := IntToStr(Self.MyDataCount);
Self.Cells[1,Self.MyDataCount] := StudentNo;
Self.Cells[2,Self.MyDataCount] := Name;
Self.Cells[3,Self.MyDataCount] := PhoneNumber;
Self.Cells[4,Self.MyDataCount] := Address;

Self.Cells[0,Self.MyDataCount + 1] := '';
Self.Cells[1,Self.MyDataCount + 1] := '';
Self.Cells[2,Self.MyDataCount + 1] := '';
Self.Cells[3,Self.MyDataCount + 1] := '';
Self.Cells[4,Self.MyDataCount + 1] := '';
end;

constructor C_SG.Create(AOwner: TComponent; Parent : TWinControl);
begin
inherited Create(AOwner);

if Parent = nil then Parent := TWinControl(AOwner);

Self.Parent := Parent;
Left := 64;
Top := 88;
Width := 505;
Height := 297;
FixedRows := 1;
FixedCols := 0;
ColCount := 5;

Self.EditorMode := false;
Self.init;
end;

procedure C_SG.init;
begin
Self.Cells[0,0]:='번호';
Self.Cells[1,0]:='학번';
Self.Cells[2,0]:='이름';
Self.Cells[3,0]:='전화';
Self.Cells[4,0]:='주소';

Self.Cells[0,1]:='';
Self.Cells[1,1]:='';
Self.Cells[2,1]:='';
Self.Cells[3,1]:='';
Self.Cells[4,1]:='';

Self.MyDataCount := 0;
RowCount := 2;
end;

end.

정윤님이 오히려 숙제를 더 내주신 듯 하네요. ㅋ

ㅎㅎ 숙제도와주는 사람은 악마...^^;;
무섭네요 ㅠ.ㅠ 많이 도와줬었는데...
도와주면 아무것도 하지 않는 것이 문제라고 생각합니다.
왜 이렇게 했는지 고민하고 자기것으로 만들어가는 자세가 중요하다 생각합니다.
- 지나가던 악마가 ㅎㅎ -