能写一点程序更好
解决方案 »
- 求完整的DLL 封装非模式窗体方法(撤底解决给200)
- 为什么StrToInt没能得到我输的数字,求大神
- 更改图片的高度,让它从下往上变,现在图片高度好像是从上往下变
- 高分救人!使用spcomm控件和下位机通讯,下面每10ms发一帧数据上来,我如何区分每一帧数据
- 请问{$IF DEBUG}{$ELSE}{$IFEND}是什么意思?
- 欢迎大学访问www.51cv.com www.51cv.net最近出来的简历网站
- intraweb中调用com的问题!!!急!!!
- delphi中的报表问题
- 纯送分帖:烟鬼程序员请看进来!斑竹手下留情不要删帖呀!~~~~
- 几个函数不太清楚,想请教!一个函数10分,呵呵!
- 请问BDE打开数据库时的用户名和密码?
- 在paradox中如何存入图片?
如你用query1连的:
s:=query1.fieldbyname('name').asstring;
就是取的当前记录的值了。
begin
s:=dataset.fieldbyname(dataset.fieldname[i]);
stringList.add(s);
end;
fieldbyname('字段名').asstring或fieldbyname('字段名').asDateTime等
with DBGridEh1.DataSource.DataSet do
for p:=0 to k-1 do begin
GotoBook(pointer(DBGridEh1.SelectedRows.Items[p]));
for q := 0 to FieldCount-1 do begin
if (q>0) then s:=s+'-- ';
s:=s+Fields[q].AsString;
end;
with DBGridEh1.DataSource.DataSet do
for p:=0 to k-1 do begin
GotoBook(pointer(DBGridEh1.SelectedRows.Items[p]));
for q := 0 to FieldCount-1 do begin
if (q>0) then s:=s+'-- ';
s:=s+Fields[q].AsString;
end;