马斯克的xAI巨轮获资百亿:AI军备竞赛新篇章启航!
2025-07-02
procedure TForm1.ADOTableCalcFields(DataSet: TDataSet);
var
YY1,YY2,MM,DD:Word;
TmpDate:TDate;
begin
DecodeDate(Date,YY1,MM,DD);
TmpDate:=DataSet.FieldByName(´Birth´).AsDateTime;
DecodeDate(TmpDate,YY2,MM,DD);
DataSet.FieldByName(´Age´).AsString:=IntToStr(YY1-YY2)+´岁´;
//在OnCalField中显示出年龄
end;
以上是我用ADO写的。一开始我用BDE写的,也一样都可以通过.
评论 {{userinfo.comments}}
{{child.content}}
{{question.question}}
提交