사바리.. wrote:

>

> 제목 그대로 임당.. 어떻게 해면 스트링 그리드에 쿼리값을 넣을 수있나엽..

>

> 글구 값을 출력후 해당 셀을 클릭 하면 삭제하게 할 수도 있는지....

>

> 모르는게 너무 마나서리.....

>

> 흠 열시미 공부하구 있는 이 목마른 초보에게 지식의 단비를 주소서

>

> 그럼 이만...........휙



with mQry do

begin

sql.Add('select * -------');

Open;



if mQry.Count>0 then

begin

while not eof do

begin

strGrid1.Cell[0,i]:=FindField('필드명1').AsString;

strGrid1.Cell[1,i]:=FindField('필드명2').AsString;

strGrid1.Cell[2,i]:=FindField('필드명3').AsString;

.

.

strGrid1.Cell[x-1,i]:=FindField('필드명x').AsString;



Inc(i);

Next;

end; //end of while

end; //end of if

end; //end of with



퀘리결과를 스트링그리드에 넣는 방법을 위처럼 하시면 되구요,

스트링그리드 선택열을 삭제하는 방법은 다음을 참고하세요.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Grids, StdCtrls;



type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure StrGridRowClear(Const sender:TStringGrid);

var

i,j:byte;

begin

for j:=TStringGrid(sender).Row to TStringGrid(sender).RowCount-2 do

for i:=0 to TStringGrid(sender).ColCount-1 do

TStringGrid(sender).Cells[i, j]:=TStringGrid(sender).Cells[i, j+1];



TStringGrid(sender).RowCount:=TStringGrid(sender).RowCount-1;



//for j:=0 to TStringGrid(sender).ColCount-1 do

//TStringGrid(sender).Cells[j, TStringGrid(sender).RowCount-1]:='';



TStringGrid(sender).Col:=1;

end;



procedure TForm1.FormCreate(Sender: TObject);

var

i, j:byte;

begin

for j:=0 to StringGrid1.RowCount-1 do

for i:=0 to StringGrid1.ColCount-1 do

StringGrid1.Cells[i, j]:=IntToStr(i)+ ',' +IntToStr(j);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

StrGridRowClear(StringGrid1);

end;



end.