procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin for I:=0 to DBGrid1.Columns.Count-1 do
if DBGrid1.Columns[I].Title.Caption='Name' then
Break
else
Continue;
ShowMessage('[Name]为第 '+IntToStr(I+1)+' 列');
end;
var
I:Integer;
begin for I:=0 to DBGrid1.Columns.Count-1 do
if DBGrid1.Columns[I].Title.Caption='Name' then
Break
else
Continue;
ShowMessage('[Name]为第 '+IntToStr(I+1)+' 列');
end;
解决方案 »
- 轻松赚取30分,用了string的处理函数之后如何保留原网页的格式
- 关于注册协议的问题
- 请教,dbGridEh中,如果编辑某一字段,如何让鼠标点上的时候出现编辑状态?也就是出现一个闪烁的'|'
- 各位大哥!如何获得当前打印机设置的纸张边距?
- 用ADO 如何进行批处理呀,就像用BDE的TBatchmove? 急用!!
- 如果才能让TdbGrid的一列,当值为非空时显示“注销”,空显示为“使用”,并且只要一输入值,就可转换为“注销”
- ★★ 作了一个服务,怎么计算已运行的时间? ★★
- 在DELPHI 中嵌入汇编指令
- 如何获取 CDROM 的 Serial Number
- 关于SQL语句
- 请教各位两个问题,请帮忙!
- 昨天(情人节)一个人过的单身兄弟们进来,我给大家放点分安慰一下!
//0为第一列,1为第二列