procedure TForm1.Button3Click(Sender: TObject);
begin
ClientDataSet1.FieldDefs.Clear;
with ClientDataSet1.FieldDefs.AddFieldDef do begin
Name := 'xName';
Size := 10;
DataType := ftString;
end;
with ClientDataSet1.FieldDefs.AddFieldDef do begin
Name := 'xAge';
DataType := ftInteger;
end;
// 在處下列處 出現錯誤訊息
ClientDataSet1.CreateDataSet; // ???????
ClientDataSet1.Open;
end;

附加檔案：64f934e472b45_1694053482173@2x.jpg

把 Open 那行槓掉再試試

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心