如:
EditSelected.Text:=dbgridC.SelectedField.Text;可得到当前选择记录的第一个值,那第二、第三个怎么的到?
EditSelected.Text:=dbgridC.SelectedField.Text;可得到当前选择记录的第一个值,那第二、第三个怎么的到?
解决方案 »
- Delphi下把数据保存成word,使用Servers组件
- VC编写的DLL的接口函数入参为char*,Delphi调用使用pchar与之对应仅能传入第一个字符,后面字符丢失。
- 请问如何根据已经打开的Adoconnection和Adoquery,生成该数据库的DDL
- 哪儿还有delphi4、5下载阿?
- 我想在对文件的操作时直接对文件进行删除,请问该怎么做?
- 超怪问题
- 300分!!!知道一台电脑的计算机名,如何能在局域网中的另外一台电脑上判断它是否已经开机,急急急
- 在delphi中如何实现字段的任意截取
- 我不想哭的,可泪如滔滔江水,一发不可收拾。。。。。。。。。。。
- 帮忙翻译一段Delphi7写的代码,谢谢!!
- 关于数据库里的图片显示的问题求解!!!
- 拿出所有的60分问两个有意义的问题
到它的根源上取就好了呀
procedure TForm1.Button1Click(Sender: TObject);
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;