掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DbGridの特定セルの値の取得 (ID:32620)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでいかがだろう？ TForm1 = class(TForm) private FDataLink :TDataLink; end; procedure TForm1.FormCreate(Sender: TObject); begin FDataLink := TDataLink.Create; FDataLink.DataSource := DataSource1; end; procedure TForm1.FormDestroy(Sender: TObject); begin FDataLink.Free; end; procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); var ac, value: Integer; sameValue: Boolean; begin //カレントレコード取得 ac := FDataLink.ActiveRecord; //現行値 value := Field.AsInteger; {直前レコードへ移動} FDataLink.ActiveRecord := ac - 1; if FDataLink.BOF then begin sameValue := False; end else begin //直前レコード値と比較 sameValue := value = FDataLink.DataSet.FieldByName(Field.Name).AsInteger; end; if sameValue then begin //同じ場合の描画 end else begin //異なる場合の描画 end; //レコードを戻る FDataLink.ActiveRecord := ac; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.