if table1.fieldbyname('id').asinteger = table2.fieldbyname('id').asinteger then
showmessage(inttostr(table1.fieldbyname('id').asinteger)+':'+table1.fieldbyname('name').asstring);
showmessage(inttostr(table1.fieldbyname('id').asinteger)+':'+table1.fieldbyname('name').asstring);
解决方案 »
- 灵异事件(变量自动变0)
- 寻求第3方控件,要1个分24段,每一段能着不同的颜色,当然也要能响应鼠标点击事件。
- Server里的Excel组件在帮助里找不到?
- 用ACCESS如何在DELPHI中实现过滤啊???
- 关于QREPORT的RICHEDIT控件的行距设置问题??
- 如何编程实现拨号,并能得知对方是摘机、占线还是应答?
- 关于web service的问题(100)
- ★★★关于指针的内存问题,不知道这样做是否会出错?
- 一个关于提高查询速度的问题。有点不爽!!
- 我用delphi写的第一个web应用程序怎么了?
- 怎样在一个窗口控制另一个窗口的控件?困惑.
- 请问各位高手,我如何能把系统的ALT+F4键禁用?
var
i, j: Integer;
f: TField;
begin
Result := EmptyStr;
j := 0;
for i := 0 to table1.FieldCount - 1 do
begin
f := table2.FindField(table1.Fields[i].FieldName);
if (f <> nil) then
begin
if j = 0 then
Result := table1.Fields[i].FieldName
else
Result := Result + '+' + table1.Fields[i].FieldName;
Inc(j);
end;
end;
end;