StoringGridの件 (ID:7741)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

今やりたいことはStringGridを表示されているレコードを取得（edit.text)をしたいのですが、文法の書き方がどうしてもわかりません。どなたか教えて下さい。
基本的なことですが、Queryでデータ取得ができなかった場合の処理も同様に教えていただきたいと思います。とても漠然とした質問ですがよろしくお願いします。

procedure TForm1.Button1Click(Sender: TObject);

var ii,jj:integer;

begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('Select *  From trouble ');
Adoquery1.SQL.Add('Order by CC ' );
Adoquery1.Open;

stringgrid1.FixedColor:=clred;

stringgrid1.FixedCols:=0;

stringgrid1.DefaultRowHeight:=canvas.TextHeight('wg')+2;
            
stringgrid1.RowCount:=adoquery1.RecordCount+1;
        
stringgrid1.ColCount:=adoquery1.FieldCount;

for ii :=0 to adoquery1.FieldCount-1 do

begin
stringgrid1.Cells[ii,0]:=adoquery1.Fields[ii].FieldName;
                        
stringgrid1.DefaultColWidth:=canvas.TextWidth(adoquery1.Fields[ii].fieldname)+2;
           
end;
                                                                
for ii:=0 to adoquery1.RecordCount-1 do
             
begin
for jj:=0 to adoquery1.FieldCount-1 do
                 
begin
stringgrid1.Cells[jj,ii+1]:=adoquery1.Fields[jj].AsString;

if stringgrid1.ColWidths[jj]< canvas.TextWidth(stringgrid1.Cells[jj,ii+1])+2 then

stringgrid1.ColWidths[jj]:= canvas.TextWidth(stringgrid1.Cells[jj,ii+1])+2;
end;
adoquery1.Next;
end;
adoquery1.First;
end;

←解決時は質問者本人がここをチェックしてください。

戻る