FDMemTable 右键复制当前行

2018-06-15 12:51:27 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM32 Modbus-RTU从零到实战：手把手教你用HAL库实现工业通信（附完整代码）本文详细介绍了如何使用STM32 HAL库从零开始实现Modbus-RTU从机通信。内容涵盖RS485硬件设计、CubeMX串口与定时器配置、基于空闲中断的高效数据接收、协议栈状态机设计、CRC16校验实现以及常用功能码处理。文章提供了完整的代码框架和调试方法，帮助开发者快速构建稳定的工业通信节点。阅读详情

F_Kind:=FDMemTable2.FieldByName('F_Kind').AsString;
F_Unit:=FDMemTable2.FieldByName('F_Unit').AsString;

FDMemTable2.append;
FDMemTable2.FieldByName('F_Type').Value:=F_Type;
FDMemTable2.FieldByName('F_Unit').Value:=F_Unit;
这是手动的

我想根据数据库来，哪些字段设置可以复制行就复制当前行

with FDMemTable1 do
begin
while not Eof do
begin
if DBGridEh1.FieldColumns[FieldByName('F_field').Value].DisplayText<>'' then
F_Type:=DBGridEh1.FieldColumns[FieldByName('F_field').Value].DisplayText;
next;
FDMemTable2.append;
FDMemTable2.FieldByName('F_Color').Value:=F_Type;
end;
end;
类似这样

...全文

Delphi FMX开发进阶：DevExpress控件包安装与核心功能实战在Delphi跨平台开发中，第三方UI控件库是提升开发效率和界面专业性的关键工具。其核心原理在于通过封装复杂功能模块，为开发者提供可复用的高级组件，从而避免重复造轮子。这类控件的技术价值在于能够大幅缩短开发周期，确保功能稳定性和界面一致性，尤其适用于企业级应用和商业化项目。常见的应用场景包括复杂数据网格展示、混合图表可视化、数据导入导出以及移动端硬件交互等。本文聚焦于DevExpress FMX控件包，针对Delphi 12.3环境，详细解析其安装配置流程、核心组件使用，并特别回应了开发者社区中关于deve 阅读详情

zuilu5339

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

zuilu5339 2018-06-21

打赏
举报

引用 5 楼 lynmison 的回复:

弄个临时数据集（更新模式用批量更新，目的是不提交数据到数据库），复制的时候，把源数据当前记录直接克隆到临时数据集。
粘贴的时候，从临时数据集插入到目标数据集就可以。

关键只是复制，append而已，不是插入

天行归来 2018-06-21

打赏
举报

弄个临时数据集（更新模式用批量更新，目的是不提交数据到数据库），复制的时候，把源数据当前记录直接克隆到临时数据集。
粘贴的时候，从临时数据集插入到目标数据集就可以。

zuilu5339 2018-06-18

打赏
举报

var arr:array [0..10] of string; I:integer; begin arr[0]:=FDMemTable1.Fields[0].AsString; arr[1]:=FDMemTable1.Fields[1].AsString; arr[2]:=FDMemTable1.Fields[2].AsString; arr[3]:=FDMemTable1.Fields[3].AsString; FDMemTable1.Append; FDMemTable1.Fields[0].AsString:=arr[0]; FDMemTable1.Fields[1].AsString:=arr[1]; FDMemTable1.Fields[2].AsString:=arr[2]; FDMemTable1.Fields[3].AsString:=arr[3]; end; 这个方式也不行不过我们也不知道有多少行，所以能不能用i来代替数组里面的序号，i是字段的序号

zuilu5339 2018-06-18

打赏
举报

procedure CopyData(FrData,ToData:TDataSet;NotCopyField:String;Action:String;isPost:Boolean;isCopySysField:Boolean=False); var I:integer; StrList:TStringList; begin if not (Todata.State in [dsEdit,dsInsert]) then begin if Action = 'I' then ToData.Insert else if Action = 'E' then ToData.Edit end; StrList := TStringList.Create; if not isCopySysField then begin StrList.Add('CMCD'); StrList.Add('CREATEBY'); StrList.Add('CREATEDT'); StrList.Add('EDITBY'); StrList.Add('EDITDT'); StrList.Add('APPROVALBY'); StrList.Add('APPROVALDT'); StrList.Add('STATUSFLAG'); StrList.Add('REVISION'); end; Crlst(StrList,NotCopyField); Try for I:= 0 to Todata.FieldCount -1 do begin if (Todata.Fields[I].DataType <> ftAutoInc) and (Todata.Fields[I].FieldKind = fkData) and (StrList.IndexOf(ToData.Fields[I].FieldName) = -1) and (Frdata.Fields.FindField(Todata.Fields[I].FieldName) <> nil) then begin if not Frdata.Fields.FindField(Todata.Fields[I].FieldName).IsNull then Todata.Fields[I].Value := Frdata.Fields.FindField(Todata.Fields[I].FieldName).Value else Todata.Fields[I].Clear; end; end; if isPost then Todata.Post; Finally StrList.Free; end; end; 这种方式可以不

lyhoo163 2018-06-17

打赏
举报

实质上是复制数据集中，当前行的数据，因为字段类型的关系，要以字符串的形式，保存字段的数据。同时字段数量，双是变化的。因为，复制这样的数据，使用一个字符数组比较好。将各个字段的值，存入数组中。需要时再读出来。

zuilu5339 2018-06-15

打赏
举报

根据配置复制当前行，自己顶一下

FDMemTable 右键复制当前行

相关推荐