Question

delphi，问题，求大神回答，给分 怎样将这个值拆分放到上面去

前台怎么写

Answer 1

如果安装了EHlib组件：
DBDateTimeEditEh1和DBDateTimeEditEh1挂相同的数据集和字段，然后：

DBDateTimeEditEh1.Kind := dtkTimeEh;
DBDateTimeEditEh1.EditFormat := 'HH';
DBDateTimeEditEh2.Kind := dtkTimeEh;
DBDateTimeEditEh2.EditFormat := 'NN';

提交前要合并处理。

追问

我这边打算前台delphi字符串拆分，但是不知道这个值怎么取

追答

在数据集的AfterScroll事件中写：

  //方法1
  Edit1.Text := FormatDateTime('HH', (DataSet.FieldByName('时间字段').AsDateTime));
  Edit2.Text := FormatDateTime('NN', (DataSet.FieldByName('时间字段').AsDateTime));
  //方法2 Uses DateUtils;
  Edit1.Text := Format('%.2d', [HourOf(DataSet.FieldByName('时间字段').AsDateTime)]);
  Edit2.Text := Format('%.2d', [MinuteOf(DataSet.FieldByName('时间字段').AsDateTime)]);

追问

大神，请问表格中的值要怎么取

追答

要么用数据感知组件关联到字段，要么在数据集的AfterScroll事件中手动关联字段。

Answer 2

字符串拆分。

追问

怎么拆分啊，求具体方法

追答

如果你下面的表格使用的是字符串表格 (TStringGrid），则先获取单元格的内容，再用字符串函数进行拆分（或者干脆直接用 copy 函数）。

不同的表格控件，获取单元格值的方法（属性、函数）不太一致，这个需要具体看控件来确定。

追问

就是不懂怎么获取单元格内容，没学过delphi，苦

追答

你现在的表格是什么控件？

追问

dgView.Columns

追答

Columns 是表格控件 列属性，你看下表格是什么控件？

通常来说，表格中单元格数值的访问是使用 cells[行号,列号] 属性来访问。