MyBase自訂技巧 -- 取代StringGrid

底下的方法相當簡單明瞭,在許多場合都可以派上用場,而且另存資料也相當方便!



procedure TForm1.AddNewDataClick(Sender: TObject);
begin
  with ClientDataSet1 do
  begin
    Append;
    Fields.Fields[0].AsString := Edit_AddTest0.Text;
    Fields.Fields[1].AsString := Edit_AddTest1.Text;
    Fields.Fields[2].AsString := Edit_AddTest2.Text;
    Post;
  end;
end;

留言

這個網誌中的熱門文章

對於 Delphi 10.1 Berlin 推出的看法

IntraWeb 學習日記:【Login】