procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer;

begin

// 다음 라인에 한라인 삽입....

with StringGrid1 do

begin

RowCount := RowCount + 1;

if Row + 2 <> RowCount then

for i := RowCount - 1 downto Row + 2 do

Rows[i] := Rows[i - 1];

Rows[Row + 1].Clear;

Row := Row + 1;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

var

i : Integer;

begin

// 선택된 라인 삭제...

with StringGrid1 do

begin

Rows[Row].Clear;

for i := Row to RowCount - 2 do

Rows[i] := Rows[i + 1];

RowCount := RowCount - 1;

end;

end;



procedure TForm1.Button3Click(Sender: TObject);

var

i : Integer;

begin

// 전체 라인 삭제 (2개 빼구...)

with StringGrid1 do

begin

for i := 1 to RowCount - 1 do

Rows[i].Clear;

RowCount := 2;

end;

end;



> 전 걍 if stringgird.cells[1,1] := '' then

> stringgrid.rowcount := stringgrid.rowcount + 1;



이게 맞는 것 같군요....



if stringgird.cells[1,1] = '' then

stringgrid.rowcount := stringgrid.rowcount + 1;



잘 되시길 기원하겠습니다...



건강하세요....

상면님 넘넘 감사합니다.

텔런트 박상면처럼 넘 포근하고 친절한 답변에 다시 한번 감사드립니다.

저도 빨리 이쪽 전산쪽에 자리잡아서 저처럼 도움이 필요한 분들에게 도움을

주고 싶군요. 이제 한번 해봐야 겠군요. 조금 감은 온것 같으니깐... 근데 왜

for 문을 downto.. do로 돌리시나요..? 원래 습관이신가요.? to.. do로 돌리

셨다면 제가 할일이 하나도 없을뻔 했군요.. stringgrid.cells[] 안에 i로 바

로 돌리면 될것 같은데 하여튼 넘넘 감사드리고 더욱 열시미해서 발전하는 모

습으로 우리 델을 사랑하는 사람들을 만나도록 노력할게요.... 그럼 다른분들

에게도 희망과 용기를 주세요.. 전 이만 .............

저두 델파이 첨 시작할 때 이곳에서 정말 많은 도움을 받았었습니다...(물론 지금두 마찬가지구요...)



// 다음 라인에 한라인 삽입....(마지막 로우 뿐만 아니라 가운데 있는 로우에서도 삽입이 가능합니다...)



이곳에서만 제가 downto를 썼었습니다...



이곳에서는 downto를 써야 맞습니다...



함 연구해 보세요^^



건강하세요...



윤순상 wrote:

> 상면님 넘넘 감사합니다.

> 텔런트 박상면처럼 넘 포근하고 친절한 답변에 다시 한번 감사드립니다.

> 저도 빨리 이쪽 전산쪽에 자리잡아서 저처럼 도움이 필요한 분들에게 도움을

> 주고 싶군요. 이제 한번 해봐야 겠군요. 조금 감은 온것 같으니깐... 근데 왜

> for 문을 downto.. do로 돌리시나요..? 원래 습관이신가요.? to.. do로 돌리

> 셨다면 제가 할일이 하나도 없을뻔 했군요.. stringgrid.cells[] 안에 i로 바

> 로 돌리면 될것 같은데 하여튼 넘넘 감사드리고 더욱 열시미해서 발전하는 모

> 습으로 우리 델을 사랑하는 사람들을 만나도록 노력할게요.... 그럼 다른분들

> 에게도 희망과 용기를 주세요.. 전 이만 .............