Caption := DBGrid1.SelectedField.Name;
解决方案 »
- 求教大神们,关于在canvas上输出文字的问题!
- 关于webbrowser释放已打开的问题.希望各位能个解答。
- opc连接服务器
- 皮肤颜色和按扭光泽 师傅们进来指导下
- DBNavigator按扭enable调用
- 请问exchange中地址簿的存储结构是怎么样的(看似树状)
- Delphi与C++Builder混合编程问题(Delphi窗体怎样嵌入到C++builer中)
- 欧洲杯 1/4决赛 法国VS希腊,猜中200分!!
- TClientDataset同时添加两条记录就失败,一条就正确(解决再加100)
- *********难道这就是倒分?但愿这只是巧合吧***********
- 散分了,怎么样通过应用程序句柄获得这个程序的主窗口句柄
- 我的控件装不上了,帮帮忙,有分。
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;
如果我想把它加到一个excel文件当中,应该怎么做?