Delphi เขียนโปรแกรมให้รับค่า Parameter ผ่าน .EXE ของเรา

การเขียนโปรแกรม Delphi บางทีต้องรับค่าผ่าน Parameter ไม่ว่าจะเป็นการส่งค่าผ่านทาง command line หรือ ผ่าน Application อื่นอีกที ทำให้การทำงานของเราง่ายขึ้นครับ

วันนี้ผมเอาเทคนิคเรื่องของการส่งค่าผ่านทาง Parameter มาให้ลองเล่นกันดูครับ Code ไม่มีอะไรมากเลยเลย การรับค่า Param ของ Delphi จะเริ่มต้นที่ 1 ไม่ใช่ 0 เหมือน Array นะครับ

ParamStr(1)

ใช้คำสั่งนี้ ParamStr(1) เพื่อรับค่า Parameter ตัวที่ 1 ถ้ามีมากกว่า 1 ก็ใส่ ParamStr(2) ParamStr(3) กันไป

ShowMessage(ParamStr(1)) ;

จากตัวอย่างผมทำการสั่งให้แสดง ข้อความที่ผ่านมาทาง Parameter โดยถ้ากด ปุ่มทางซ้ายให้แสดง Parameter1 ถ้ากดปุ่มทางขวา ให้แสดง Parameter2

เขียนคำสั่งกำกับลงไปในแต่ละ ปุ่ม

ทีนี้เรามาดูวิธีการทดสอบการป้อน Parameter หากเรากด ปุ่มดังกล่าวโดยที่ไม่มีการส่ง Parameter เข้ามาก็จะกลายเป็นค่าว่างเฉยๆ

เราสามารถทดสอบโดยการ Build โปรแกรมเป็น .Exe แล้ว เข้า Command Pompt เพื่อสั่ง Run โปรแกรม โดยใช้คำสั่ง ชื่อโปรแกรม ตามด้วย Parameter ในกรณีนี้

ชื่อโปรแกรม = DelphiParams.exe
Parameter1 = Auditor
Parameter2 = Piyanat

เมื่อทำการ Run แล้ว Execute แล้วกดที่ปุ่มที่ 1 และ 2 ก็จะได้ค่าตาม Param ที่ส่งมา

แต่การสั่ง Run แบบนี้เวลาเราจะทำการ Debug จะทำลำบากเนื่องจาก ไม่ได้อยู่ใน Mode การพัฒนาแล้ว

ผมจึงขอเสนอ เทคนิค การทดสอบ Parameter แบบ Run ผ่าน IDE ได้เลย

เข้าไปที่ Run แล้ว เลือก Parameters..

ใส่ Parameter เข้าไปได้เลย โดยเว้นช่องว่าง ระหว่าง Parameter แต่ละตัว แล้วกด Save

จากนั้นเมื่อเราทำการกด Run with Debuging หรือ F8 โปรแกรมก็จะ Run เหมือนว่าเราส่ง Parameter เข้ามาผ่านทาง Command Line หรือ ผ่านทางช่องทางอื่นๆได้เลย แต่ *********** ตรงนี้จะตรวจสอบตัวเล็กตัวใหญ่ *********** ใส่ให้เหมือนกันนะครับไม่งั้นจะ Run ไม่ได้

โอเคครับจบแล้วสำหรับ Delphi ‘s Tips เล็กๆน้อยๆในวันนี้หวังว่าจะสามารถนำไปต่อยอด และ เป็นประโยชน์กับ Delphi Programmer ทั้งหลายได้นะครับ