FDMemTable内存表操作

最新推荐文章于 2024-08-27 09:40:21 发布
最新推荐文章于 2024-08-27 09:40:21 发布
阅读量6.2k 收藏 4
点赞数
分类专栏： 手机开发 数据库

FDMemTable内存表操作

unit Umemtable;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Rtti,
FMX.Layouts, FMX.Grid, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, Data.DB,
FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.Controls.Presentation, FMX.StdCtrls,
Data.Bind.EngExt, Fmx.Bind.DBEngExt, Fmx.Bind.Grid, System.Bindings.Outputs,
Fmx.Bind.Editors, Data.Bind.Components, Data.Bind.Grid, Data.Bind.DBScope, FMX.Edit;

type
TForm1 = class(TForm)
Button1: TButton;
FDMemTable1: TFDMemTable;
DataSource1: TDataSource;
Grid1: TGrid;
bndsrcdb1: TBindSourceDB;
bndngslst1: TBindingsList;
lnkgrdtdtsrcBindSourceDB: TLinkGridToDataSource;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
lbl1: TLabel;
Label1: TLabel;
Label2: TLabel;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
private

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Id: Integer;

implementation

{$R *.fmx}

procedure TForm1.Button10Click(Sender: TObject);
begin
//清空
FDMemTable1.EmptyView;
end;

procedure TForm1.Button11Click(Sender: TObject);
var
FRow, FRow2: TFDDatSRow;
begin
FRow := FDMemTable1.Table.Rows.Add([1, 'Hello', '2015-09-15']);
FRow2 := FDMemTable1.Table.NewRow();
FRow2.SetValues([2, 'Hello2', '2015-09-15']);
FDMemTable1.Table.Rows.Add(FRow2);
//以下方法2条记示增加成功
FDMemTable1.CachedUpdates;
FDMemTable1.CommitUpdates;
// FDMemTable1.ApplyUpdates;
// FDMemTable1.CommitUpdates;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
FDMemTable1.Filter := 'Value = ' + QuotedStr('Hello');
FDMemTable1.Filtered := True;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
//FDMemTable1.Filter := 'Value = ''Hello''';
FDMemTable1.Filter := 'Value = ''Hel*''';
//foCaseInsensitive时，“Filter”属性中的条件字符串文字与字段值进行比较时，不区分大小写。
//foNoPartialCompare强制Delphi将星号（*）解释为原义字符而非通配符。默认情况下，
//FilterOptions设置为空集
FDMemTable1.FilterOptions := [foCaseInsensitive];
FDMemTable1.Filtered := True;

end;

procedure TForm1.Button14Click(Sender: TObject);
begin
FDMemTable1.Filter := 'Value Like ''Hel%''';
FDMemTable1.Filtered := True;

end;

procedure TForm1.Button15Click(Sender: TObject);
begin
FDMemTable1.Filter := 'Id<10 and Value Like ''He%''';
FDMemTable1.Filtered := True;

end;

procedure TForm1.Button16Click(Sender: TObject);
var
FConnIntf: IFDPhysConnection;
FCommIntf: IFDPhysCommand;
oMechFilter: TFDDatSMechFilter;
FDataView: TFDDatSView;
begin

FDataView := FDMemTable1.Table.DefaultView;
FDataView.Sort := 'Id ASC';
//FDataView.Mechanisms.AddSort('Id DESC;Value ASC');
//FDMemTable1.View.Mechanisms.AddSort('Id');
FDataView.Mechanisms.Clear;


// FDMemTable1.View.Sort:=' Id DESC;'
//FDMemTable1.View.SortingMechanism;
// 4) filtering
// oMechFilter := TFDDatSMechFilter.Create('id > 3');
// FDMemTable1.View.Mechanisms.Add(oMechFilter);

// FDefaultView.Mechanisms.Clear;
// // 5) too
// FDMemTable1.View.Mechanisms.AddFilter('Id DESC');
// FDefaultView.Mechanisms.Clear;
// FDefaultView.Mechanisms.Clear;
// // 5) too
// FDefaultView.Mechanisms.AddFilter('id > 5');
// FDefaultView.Mechanisms.Clear;

end;

procedure TForm1.Button17Click(Sender: TObject);
var
oMech: TFDDatSMechFilter;
i: Integer;
FDataView: TFDDatSView;
begin
FDataView := FDMemTable1.Table.DefaultView;
// Locate row using locating mechanism
oMech := TFDDatSMechFilter.Create('Id=5');
oMech.Locator := True;
FDataView.Mechanisms.Add(oMech);
FDataView.Locate(i, True, True);
if i <> -1 then
begin
ShowMessage('找到 删除');
//FDataView.de;
end
else
begin
ShowMessage('NO');
end;
FDataView.Mechanisms.Clear;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if FDMemTable1.Active then
FDMemTable1.Close;
with FDMemTable1.FieldDefs do
begin
Clear;
Add('Id', ftInteger, 0, False);
Add('Value', FtString, 20, False);
Add('Time', ftDateTime, 0, False);
end;
with FDMemTable1.IndexDefs do
begin
Clear;
// Add('Index1', 'Id', []); //定义索引 正序
Add('Index1', 'Id', [ixDescending]); //定义索引 倒序
end;
FDMemTable1.CreateDataSet;
for i := 1 to 15 do
begin
FDMemTable1.AppendRecord([i, 'ID' + IntTOSTR(i), Now()]);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FDMemTable1.AppendRecord([StrToInt(Edit1.Text), Edit2.Text, StrToDate(Edit3.Text)]);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
fld_Id: TIntegerField;
fld_Value: TStringField;
fld_Time: TDateTimeField;
i: Integer;
begin
//插入
with FDMemTable1 do
begin
DisableControls; //切断数据感知控件
try
Open; //打开
//定义Field
fld_Id := TIntegerField(FieldByName('Id'));
fld_Value := TStringField(FieldByName('Value'));
fld_Time := TDateTimeField(FieldByName('Time'));
for i := 0 to 9 do
begin
Inc(Id);
Append; //附加数据
//赋值
fld_Id.AsInteger := Id;
fld_Value.AsString := 'Hello PFeng!' + inttostr(Id);
fld_Time.AsDateTime := Now;
Post; //确定
end;
//UpdateIndexes;//更新索引
finally
EnableControls; //连接数据感知控件
end;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
fld_Id: TIntegerField;
fld_Value: TStringField;
fld_Time: TDateTimeField;
begin
//更新
with FDMemTable1 do
begin
Open;
fld_Id := TIntegerField(FieldByName('Id'));
fld_Value := TStringField(FieldByName('Value'));
fld_Time := TDateTimeField(FieldByName('Time'));
if Locate('Id', 5, []) then
begin
Edit;
fld_Value.AsString := '内容被修改';
fld_Time.AsDateTime := Now;
Post;
end;
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
fld_Id: TIntegerField;
fld_Value: TStringField;
fld_Time: TDateTimeField;
begin
//删除
with FDMemTable1 do
begin
Open;
fld_Id := TIntegerField(FieldByName('Id'));
fld_Value := TStringField(FieldByName('Value'));
fld_Time := TDateTimeField(FieldByName('Time'));
if Locate('Id', 5, []) then
begin
Delete;
//UpdateIndexes;
end;
end;
end;

procedure TForm1.Button8Click(Sender: TObject);
var
fld_Id: TIntegerField;
fld_Value: TStringField;
fld_Time: TDateTimeField;
begin
//查询
with FDMemTable1 do
begin
Open;
fld_Id := TIntegerField(FieldByName('Id'));
fld_Value := TStringField(FieldByName('Value'));
fld_Time := TDateTimeField(FieldByName('Time'));
if Locate('Id', 5, []) then
ShowMessage(fld_Value.AsString);
//还可以用FindKey实现，结合索引速度更快
// kbmMemTable1.IndexFieldNames:='Id';
// if kbmMemtable1.FindKey([5]) then ...
end;
end;

procedure TForm1.Button9Click(Sender: TObject);
var
fld_Id: TIntegerField;
fld_Value: TStringField;
fld_Time: TDateTimeField;
id: Integer;
begin
//循环比较最小值
with FDMemTable1 do
begin
Open;
fld_Id := TIntegerField(FieldByName('Id'));
fld_Value := TStringField(FieldByName('Value'));
fld_Time := TDateTimeField(FieldByName('Time'));
DisableControls;
try
First;
id := fld_Id.AsInteger;
while not Eof do
begin
if id > fld_Id.AsInteger then
id := fld_Id.AsInteger;
Next;
end;
Locate('Id', id, []);
finally
EnableControls;
end;
end;
end;

end.

利客阿平
关注
专栏目录
delphi 内存表FDMemTable1
11-06
delphi 内存表FDMemTable1
delphi 新版内存表 FDMemTable
weixin_33967071的博客
09-03 703
c++builder XE 官方demo最全60多个 http://community.embarcadero.com/blogs?view=entry&amp;id=8761    FireDAC.Comp.Client   用好FDMemTable代替之前的ClientDataSet，以前ClientDataSet内存表转换太繁琐了步骤。  TClientDataSet *cds...
delphi FDMemTable1.SourceView遍历各行数据，取任意行数据无需Next移动指针了。TFDDatSView
qqww155的专栏
06-14 172
beginthenContinue;end;
FDMemTable的详细使用方法
weixin_30607029的博客
09-08 2070
unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Data.DB, Data.SqlExpr, FM...
FDMemTable内存表操作.rar
07-19
FDMemTable是一个内存中的表格，可以用于临时存储数据，进行数据操作，或者作为其他组件如DBGrid的数据源。下面将详细阐述FDMemTable的主要特性和操作方法。 1. **创建与初始化**： 创建FDMemTable的方法通常是在...
delphi内存表FDMemTable
11-05
Delphi内存表FDMemTable是Embarcadero Delphi编程环境中用于处理内存数据的一个重要组件。它属于FireDAC库的一部分，FireDAC是Delphi提供的一个高效、全面的数据访问层，支持多种数据库系统。FDMemTable允许开发人员...
Delphi内存表使用(TdxMemData,TVirtualTable,TFDMemTable)例子.rar
01-09
演示在Delphi上使用内存表存储数据的例子。TdxMemData 属于DevExpressVcl控件，TVirtualTable属于UniDAC控件，TFDMemTable属于FireDAC控件。经过测试证明，TFDMemTable性能最好！
Delphi FireDac Delta 记录操作日志 与 Delta转SQL
12-01
- 使用 FDMemTable：FDMemTable 是 FireDAC 提供的一种内存中的数据表，你可以将它用作临时存储，用来记录用户对数据的操作。当你对 FDMemTable 进行插入、更新或删除操作时，Delta 会自动跟踪这些变化。 - 开启 ...
Delphi FDMemTable内存表用法及简单操作函数封装
wh445306
11-05 3268
在某些场景下当轻量级的应用需要在内存中缓存数量比较多且字段比较多的高频使用数据时。以前我都是采用Ini或直接使用sqlite数据库。JSON也试过基本无法或很难实现需要的功能，因为当涉及某一同类型对象多字段多列时不通过遍历基本无法直接取到或修改数据。这样就导致了效率的低下。比如你在写一个多任务多线程并发断点续传下载工具的时候，就意味着要同时保存每个下载任务N个线程的不同状态和位置数据。并在关闭后持久化到磁盘。最近发现FDMemTable真的是个好东西。
Delphi XE10 FDMemTable 数据保存本地和从本地加载
jhzhao的专栏
11-03 5984
//保存  procedure TFrm_xxcha.Button4Click(Sender: TObject); var   filename:string; begin   if SaveDialog2.Execute then   begin       filename :=   SaveDialog2.FileName;       FDMemTable1.SaveT
fdMemTable内存表进行SQL查询
最新发布
GuoGuoABC
08-27 786
fdLocalSql可以对fdMemTable内存表进行SQL查询（可以对多个fdMemTable内存表进行联表查询哦），fdLocalSql使用SQLITE引擎，而FIREDAC驱动SQLITE，连SQLITE驱动DLL都不需要附带的。2]可以设置多个内存表，FDMemTable1,FDMemTable2。
delphi 调试 FDMemTable 频繁调用过滤报内存错误
qqww155的专栏
04-11 755
一个通用参数查找函数，FDMemTable拿来做参数查找，内存表内近万条记录，极端情况一秒会查找二十次，会随机报内存read00000000。 原因:因为FDMemTable是指针类型，作为参数传递，实际filter操作的都是同一个对象。 解决:函数新增一个FDMemTable类型的局部变量，参数FDMemTable.data 赋值给局部变量的data. ...
FDMemtable中创建字段，如何在已有的字段数据集上加入字段
qq_18932003的博客
11-10 928
procedure TfrmCaiGouShouLiouRuKuXuanZe.FormShow(Sender: TObject); begin // FieldDefs.Add('ID', ftInteger, 0, False); // FieldDefs.Add('Status', ftString, 10, False); // FieldDefs.Add('Created...
FDMemTable让虚字段变得可以读写
刘永锋的专栏
08-06 409
select '' as temp,flag=0,sql返回的虚拟字段，以前clientDataSet可以修改，FDMemTable里不能改了。 ClientDataSet1->FieldByName("flag")->AsString="1"; 但是FDMemTable不能改了。怎么办？以前的这种虚拟字段的方式挺好用啊。 解决办法：设置属性TFDMemTable.UpdateOpt...
Locate语句的使用
cpw999cn的专栏
09-08 942
首先要把Db添加到uses里面，然后按下面办法：1、单个字段：table1.locate(FieldName,SearchText,[loCaseInsensitive, loPartialKey]);2、多个字段table1.locate(Field1;Field2;Field3,Text1;Text2;Text3,[loCaseInsensitive, loPartialKey
delphi内存表字段排序
03-04 1100
FDMemTable1.IndexFieldNames:='id;ParentId';
delphi fdmemtable 变更转sql脚本
从事厨房信息化行业，万能对接所有点餐系统，kds，智能控菜，酒店协调软件
10-22 768
fdmemtable 变更记录 转 sql fdmemtable.cachedupdates = true 然后才能获取 { 转载的 做了细微修改，网址忘了 引用 System.JSON; 函数名称：DBToJSON（TFDMemTable 数据转成SQL脚本更新） 参数： DB：TFDMemTable数据集 sTable：更新表名 sKey:关键字段，...
delphi fdmemtable如何获取指定行的指定字段的值
04-22
要获取 Delphi FDMemTable 中指定行的指定字段的值，可以使用以下代码： ``` var FieldValue: Variant; begin // 获取第 10 行的 "MyField" 字段的值 FieldValue := FDMemTable1.FieldByName('MyField').Value; end; ``` 其中，`FDMemTable1` 是你的 FDMemTable 对象，`MyField` 是你要获取的字段名，`FieldValue` 是获取到的字段值。如果要获取指定行的值，可以使用 `FDMemTable1.RecNo` 属性指定当前行号，例如： ``` var FieldValue: Variant; begin // 指定当前行为第 10 行 FDMemTable1.RecNo := 10; // 获取当前行的 "MyField" 字段的值 FieldValue := FDMemTable1.FieldByName('MyField').Value; end; ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值