Delphi เทคนิค ดึงค่า ที่รับ JSON จาก API ลง Class ตอน ดึงข้อมูลลงตาราง
ในตอนที่แล้วเราเอาค่าตัวแปลจากใน JSON มาใส่ลงใน ช่อง TextBox เดี๋ยวครวนี้เราจะเอาข้อมูลใน JSON มาใส่ตารางกัน
- ก่อนอื่นเลยต้องมี Data Set ให้มันก่อนกรณีอื่นผมจะใช้ Memdata มารับ แต่สำหรับเคสนี้ผมจะใช้ ClientDataset กับ DataSource
2. นำ dbgrid มาวาง
3. ทำการเพิ่ม Field ใน Clientdataset
4.กำหนด Datasource ให้ DBGrid
5.เข้า Columns Editor..
6. กด ปุ่มตามรูป เพื่อดึง Field
7. ใน Form Create เราก็สั่งให้ ClientDataSet ทำงาน ซึ่งมันจะต่างจากพวก memdata ปกติ ต้องสั่ง CreateDataSet ก่อน
Tips นิดหนึ่ง กรณีเราใช้ ClientDataset จะไปกด Active ทันทีไม่ได้
ต้องไป คลิกขวาแล้วเลือก Create DataSet ไว้ถึงจะ Active ได้
8. เพิ่ม Code เข้าไป จาก code เดิมในตอนที่แล้ว
7. เท่านี้ก็จบครับ
Tips แล้วจะรู้ได้ไงว่าใน JSON อันไหน Return ค่าให้เราเป็นตาราง หรือ เป็น Dataset
ให้เราไปที่ RootUnit.Pas
function TResult.GetRecords: TObjectList<TRecords>;
begin
Result := ObjectList<TRecords>(FRecords, FRecordsArray);
end;
จากตัวอย่างจะพบว่าเขา Return ค่ากลับเป็น ObjectList ก็แสดงว่าเราเอาเข้า Dataset ได้ครับ
ตัวอย่าง code อยู่ที่ Delphi เทคนิค ดึงค่า ที่รับ JSON จาก API ลง Class
