Delphi TClientDataSet[5]: 读取数据。

本例用到:

TClientDataSet.Fields[];　　　　　　{　字段集合;　它比　FieldList　有更多功能,　如可获取嵌套字段　}

TClientDataSet.FieldList[];　　　　{　字段列表;　它比　Fields　轻便,　如果只是取值用它快一些　}

TClientDataSet.FieldByName();　　　{　根据字段名称获取字段对象;　获取一个字段对象时它比上两个快　}

TClientDataSet.FindField();　　　　{　根据字段名称查找字段对象　}

TClientDataSet.FieldValues[];　　　{　根据字段名称获取字段值;　如果仅是获取字段值,　这个最快　}

TClientDataSet.First;　　　　　　　{　到第一个记录　}

TClientDataSet.Next;　　　　　　　　{　到下一个记录　}

TClientDataSet.Last;　　　　　　　　{　到最后一个记录　}

TClientDataSet.Prior;　　　　　　　{　到上一个记录　}

TClientDataSet.RecNo;　　　　　　　{　设置或读取当前记录的位置　}

TClientDataSet.Bof;　　　　　　　　{　当前位置是否是第一个记录　}

TClientDataSet.Eof;　　　　　　　　{　当前位置是否是最后一个记录　}

TClientDataSet.RecordSize;　　　　　{　一个记录的大小;　所谓一个记录就是当前行的所有字段　}

TClientDataSet.RecordCount;　　　　{　记录总数;　也就是总行数　}

TClientDataSet.GetFieldList();　　　{　根据指定的几个字段名获取字段对象的列表　}

TClientDataSet.GetFieldData();　　　{　把指定字段的值写入一个缓冲区　}

TClientDataSet.GetCurrentRecord();　{　把当前记录(不包括　Bolb　字段)写入到一个缓冲区　}

关键字： TClientDataSet GdiPlus[1] RegularExpreio GdiPlus XMLDocument 类详解

TClientDataSet[5]: 读取数据。

读取字段的结构信息可以使用 TFieldDef 对象(一般来源于 FieldDefs 或 FieldDefList);

现在要读取其中的数据, 应该使用 TField 对象(一般来源于 Fields 或 FieldList).

Fields[0]、Fields[1] ... Fields[n] 获取的是当前行的第几个字段, 可用 Next、RecNo 等指定当前位置(行).

下面的例子使用了 Common Files\CodeGear Shared\Data\holdings.xml, 若更换文件需调整代码.

这是 holdings.xml 的字段信息:

ACCT_R　{　类型是　r8,　对应　ftFloat,　相当于　Double　}

SYMBOL　　{　类型是　string,　对应　ftString,　相当于　AiString;　指定　Size=7,　加上空结束,　大小是　8　}

SHARES　　{　类型是　r8,　对应　ftFloat,　相当于　Double　}

PUR_PRICE　{　类型是　r8,　对应　ftFloat,　相当于　Double　}

PUR_DATE　{　类型是　date,　对应　ftInteger,　相当于　Integer　}

先窗体上放置 ClientDataSet1、DataSource1、DBGrid1、Memo1 和七个 Button, 然后:

{　准备数据,　也可在设计时完成　}

procedure　TForm1.FormCreate(Sender:　TObject);

begin

ChDir(GetEnvironmentVariable('CommorogramFiles')　+　'\CodeGear　Shared\Data\');

ClientDataSet1.LoadFromFile('holdings.xml');

DBGrid1.DataSource　:=　DataSource1;

DataSource1.DataSet　:=　ClientDataSet1;

end;

{　读取字段值的几种方法　}

procedure　TForm1.Button1Click(Sender:　TObject);

var

v1,v2,v3,v4,v5,v6,v7,v8:　Variant;

num:　Double;

fName:　string;

begin

{　获取首字段的名称　}

fName　:=　ClientDataSet1.Fields[0].FieldName;

{　获取第一个字段值的几种方法:　}

v1　:=　ClientDataSet1.Fields[0].Value;

v2　:=　ClientDataSet1.FieldByName(fName).Value;

v3　:=　ClientDataSet1.FindField(fName).Value;

v4　:=　ClientDataSet1.FieldValues[fName];

v5　:=　ClientDataSet1.FieldList[0].Value;

v6　:=　ClientDataSet1.FieldList.FieldByName(fName).Value;

v7　:=　ClientDataSet1.FieldList.Find(fName).Value;

v8　:=　ClientDataSet1.FieldList.Fields[0].Value;

{　已知这个字段是　Double　类型的,　可同时转换　}

num　:=　ClientDataSet1.Fields[0].AsFloat;

{　查看结果　}

with　Memo1.Lines　do　begin

Clear;

Add(v1);　Add(v2);　Add(v3);　Add(v4);　Add(v5);　Add(v6);　Add(v7);　Add(v8);

Add(FloatToStr(num));

end;

end;

{　遍历当前行字段的几种方法　}

procedure　TForm1.Button2Click(Sender:　TObject);

var

Field:　TField;

i:　Integer;

begin

Memo1.Clear;

for　Field　in　ClientDataSet1.Fields　do

begin

Memo1.Lines.Add(Field.Value);

end;

Memo1.Lines.Add('');

for　i　:=　0　to　ClientDataSet1.FieldCount　-　1　do

begin

Memo1.Lines.Add(ClientDataSet1.Fields[i].Value);

end;

Memo1.Lines.Add('');

for　i　:=　0　to　ClientDataSet1.FieldList.Count　-　1　do

begin

Memo1.Lines.Add(ClientDataSet1.FieldList[i].Value);

end;

Memo1.Lines.Add('');

end;

{　First、Next、Last、Prior、RecNo　}

procedure　TForm1.Button3Click(Sender:　TObject);

var

s1,s2,s3:　string;

begin

{　读取第二行第二个字段　}

ClientDataSet1.First;

ClientDataSet1.Next;

s1　:=　ClientDataSet1.Fields[1].Atring;

{　读取倒数第二行第二个字段　}

ClientDataSet1.Last;

ClientDataSet1.Prior;

s2　:=　ClientDataSet1.Fields[1].Atring;

{　读取第四行第二个字段　}

ClientDataSet1.RecNo　:=　4;

s3　:=　ClientDataSet1.Fields[1].Atring;

{　查看结果　}

with　Memo1.Lines　do　begin

Clear;

Add('第二行第二个字段:　'　+　s1);

Add('倒数第二行第二个字段:　'　+　s2);

Add('第四行第二个字段:　'　+　s3);

end;

end;

{　遍历指定字段的所有记录　}

procedure　TForm1.Button4Click(Sender:　TObject);

var

i:　Integer;

begin

if　not　ClientDataSet1.Bof　then　ClientDataSet1.First;

Memo1.Clear;

while　not　ClientDataSet1.Eof　do

begin

Memo1.Lines.Add(ClientDataSet1.FieldList[0].Value);

ClientDataSet1.Next;

end;

Memo1.Lines.Add('-------');

for　i　:=　1　to　ClientDataSet1.RecordCount　do

begin

ClientDataSet1.RecNo　:=　i;

Memo1.Lines.Add(ClientDataSet1.FieldList[1].Value);

end;

end;

{　通过　GetFieldList　可以读取几个指定字段的　TField　对象的列表　}

procedure　TForm1.Button5Click(Sender:　TObject);

var

List:　TList;

Field:　TField;

i:　Integer;

begin

List　:=　TList.Create;

ClientDataSet1.GetFieldList(List,　'ACCT_R;　SYMBOL;　SHARES');

Memo1.Clear;

for　i　:=　0　to　List.Count　-　1　do

begin

Field　:=　List[i];

Memo1.Lines.Add(Field.Value);

end;

List.Free;

end;

{　GetFieldData　读取字段值到指针　}

procedure　TForm1.Button6Click(Sender:　TObject);

var

F1:　Double;

F2:　array[0..7]　of　AiChar;

begin

ClientDataSet1.GetFieldData(ClientDataSet1.Fields[0],　@F1);

ClientDataSet1.GetFieldData(ClientDataSet1.Fields[1],　@F2);

with　Memo1.Lines　do　begin

Clear;

Add(FloatToStr(F1));

Add(F2);

end;

end;

//这是后面的例子用到的函数,　转换　TClientDataSet　时间格式到　TDateTime

function　TDateTimeRecToDateTime(DataType:　TFieldType;　Data:　TDateTimeRec):　TDateTime;

var

TimeStamp:　TTimeStam

begin

case　DataType　of

ftDate:

begin

TimeStamp.Time　:=　0;

TimeStamp.Date　:=　Data.Date;

end;

ftTime:

begin

TimeStamp.Time　:=　Data.Time;

TimeStamp.Date　:=　DateDelta;

end;

else

try

TimeStamp　:=　MSecsToTimeStamp(Data.DateTime);

except

TimeStamp.Time　:=　0;

TimeStamp.Date　:=　0;

end;

end;

Result　:=　TimeStampToDateTime(TimeStamp);

end;

{　GetCurrentRecord　是把当前行的所有字段(不包括　Blob　字段)读入到缓冲区　}

procedure　TForm1.Button7Click(Sender:　TObject);

type

THoldingtruct　=　packed　record　{　这是根据　holdings.xml　建立的数据结构　}

ACCT_R:　Double;

SYMBOL:　array[0..7]　of　AiChar;　{　其　Size=7,　但后面还有个　#0　}

SHARES:　Double;

PUR_PRICE:　Double;

PUR_DATE:　Integer;

//　　Other:　array[0..4]　of　Byte;　{　它后面还空着若干字节,　其字节数等于前面的字段数　}

end;

var

buf:　THoldingtruct;

DateTimeRec:　TDateTimeRec;

begin

//ShowMeage(IntToStr(ClientDataSet1.RecordSize));　{　可通过这个值对照上面的结构　}

if　ClientDataSet1.GetCurrentRecord(@buf)　then　with　Memo1.Lines　do

begin

Clear;

Add(FloatToStr(buf.ACCT_R));

Add(buf.SYMBOL);

Add(FloatToStr(buf.SHARES));

Add(FloatToStr(buf.PUR_PRICE));

DateTimeRec.Date　:=　buf.PUR_DATE;

Add(DateToStr(TDateTimeRecToDateTime(ftDate,　DateTimeRec)));

end;

end;