DBGridの内容変更 (ID:37531)

名前

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

本文 TDatasetに計算項目を追加して表示するのが簡単でしょう。 TDatasetで右クリックから項目の設定を選択->項目設定ダイアログを表示-> 右クリックから項目の新規作成で計算項目を作成します。 TDatasetのOnCulcFieldsイベントで計算項目Fieldを設定します。 元のテーブル項目名がTimeIntegerだとします。 計算項目の項目名をDispTimeString,型をStringサイズを8バイトを作成 計算項目をTDBGridへ設定します。 procedure TDM_NandemoIB.IBQuery_MstCalcFields(DataSet: TDataSet); var i : Integer; begin with Dataset do bedin if FieldByName('TimeInteger').isNull then FieldByName('DispTimeString').AsString := '未設定' else begin i := FieldByName('TimeInteger').AsInteger mod 24; if I > 12 then begin FieldByName('DispTimeString').AsString := '午後' + inttostr(I - 12) + '時'; end else begin FieldByName('DispTimeString').AsString := '午後' + inttostr(I) + '時'; end; end; end; end;