procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if DBGrid1.SelectedField.FieldName = 'title' then
DBGrid1.SelectedField.AsVariant := DBGrid1.SelectedField.OldValue;
end;procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
0Abegin
DataSet.FieldByName('title').AsVariant := DataSet.FieldByName('title').OldValue;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
begin
if DBGrid1.SelectedField.FieldName = 'title' then
DBGrid1.SelectedField.AsVariant := DBGrid1.SelectedField.OldValue;
end;procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
0Abegin
DataSet.FieldByName('title').AsVariant := DataSet.FieldByName('title').OldValue;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 很弱很弱的问题!
- idpop3接收正文不正确问题 (delphi7+indy9)急,在线等待
- 把一个表中的数据导出到Excel ,或都是DBGRID中的数据导也到Excel.
- 着急请教问题!,在线等待。。
- 十万火急DBGrid控件的一种用法
- 请问如何定义动态数组变量请举个例子.谢谢.
- 大家来讨论,时下用什么数据库和什么与之相配的连接方式比较好(挣钱多)?
- 关于 自定义类型 中使用 string 的问题!
- Application.ShowMainForm的值。
- Delphi中如何使用sql语句查出某字段内容相同,只取另外一个字段最大的行
- 来看看,一个我想了很久都想不出来的算法问题!
- pagecontrol关闭所有TABSHEET的问题!
var
m_FieldName:String;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
m_FieldName:=Column.FieldName;
end;procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if m_FieldName='asd' then key:=#0;
end;