如何判断 一个stringgrid中,哪些行 被用户修改了。 一个stringgrid 在读取数据后,显示给用户,接下来,用户可能修改其中的某些行的内容,如何知道究竟哪些行被修改了呢?谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //参考如下代码var vGetText: string;procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);begin if vGetText <> Value then Caption := Format('Time:%s,Row:%d,Value:%s', [TimeToStr(Time), ARow, Value]);end;procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: String);begin vGetText := Value;end; 在事件代码里打日志,原始的方法最管用procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: String);begin Memo1.Lines.Add('TForm1.StringGrid1GetEditText');end; 控件的某些属性设置,有时会对事件的发生产生影响。如:OnGetEditText does not occur unless the Options property includes goEditing.我想看看这方面比较详细的介绍。 try finally end疑问? 续:exe文件生成exe文件的问题!(做过电子杂志的高手请进) 有一个现成的chm格式的帮助文件,我想修改其中的某些内容,该如何做? 谢谢!! 请教关于数据库数据处理的问题 动态的EDit 关于Socket问题,急啊!!! 请问各位,为什么我的控件安装后在控件面板上显示不出来? 一个简单问题? 着急的人请教大家!!!!!!!! 如何使用两个combobox实现级联查询?有和数据库连 adoconnection 使用ip连接的方法 招聘要求
var
vGetText: string;procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if vGetText <> Value then
Caption := Format('Time:%s,Row:%d,Value:%s',
[TimeToStr(Time), ARow, Value]);
end;procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
vGetText := Value;
end;
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
Memo1.Lines.Add('TForm1.StringGrid1GetEditText');
end;