解决方案 »
- 怎么指定TXT/LOG文档的存放路径,和读取TXT/LOG内容.给个例子 ..
- [征集] 关于字符数组赋值方法. 另:传说中的MIC请来
- 誰有DELPHI5.0光碟資料,高分求助!!!!
- 我想做一个软件自动更新的功能,该怎样实现呢?
- 有谁知道较好的指纹对比算法?
- 关于使用IHTMLWindow4时出错------求助
- 求助
- GExperts和其它一些Delphi的插件哪有下载?GExperts.rog的官方网站我上不去
- 关于数据绑定的问题
- 怎样用SENDmessage函数改变一个输入焦点 如EDIT1中的内容?
- 得到任意字符的ASCII码究竟用什么函数?
- 我用DELPHI6写了一个COM+组件和一个客户端程序,在本地机上就能运行,但把客户端分发到另一台机上就说“RPC 服务器不可用。”,为什么?
至于这样的函数吗,我没有见过了。
table.locate(好像是,既不清楚了)
begin
;查到要做的事情
end
else
begin
;查不到要做的事情
end;
if table.locate('','','',arrayof('','',''),[]);
好像是
procedure Tfr_jjfenxi.Bnt_sxClick(Sender: TObject);
var
Excelapp:variant;
I:integer;
Year,Name,Sx:string;
begin
Excelapp:=CreateOleObject('Excel.Application'); //动态创建EXCEL
Excelapp.Visible:=True; //执行时可见
ExcelApp.workbooks.open(ExtractFilePath(paramstr(0))+'AAA.xls'); for i:=6 to 300 do//最大取值300
begin
if trim(ExcelApp.cells.item[i+1,2])<>'' then begin
Year:=copy(Trim(ExcelApp.cells.item[4,1]),1,7); Name:=Trim(ExcelApp.cells.item[i+1,2]);
Sx:=Trim(ExcelApp.cells.item[i+1,5]);
if not(TBL_SX.Locate('qs;name;sx',VarArrayOf([Year, Name, Sx]),[])) then
begin
TBL_SX.appendrecord([Year,Name,Sx]); //如果没有相同的记录,将记录添加到数据表
fr_jjfenxi.Refresh;
end
end
else
begin
Excelapp.workbooks.close; //如果表格中行为空时,退出
Excelapp.quit;
end
end;
end;
但是,程序却不能判断数据表中已存在相同的记录,请各位指点!