วิธีการใช้ฟังก์ชัน StringTokenizer กับ Delphi:
เรารู้ว่ามี StringTokenizer ใน Java ซึ่งสะดวกมากสำหรับการประมวลผลสตริง แต่ฟังก์ชันนี้ไม่มีใน Delphi ฉันอ้างถึงเวอร์ชัน Delphi และเวอร์ชัน C# ของภาษา Java เพื่อใช้ฟังก์ชันนี้ หวังว่าจะมอบความสะดวกสบายให้กับคุณ หวังว่าคุณจะให้คำแนะนำเพิ่มเติมแก่ฉันได้ [email protected] หน่วย SkyStringTokenizer; {ผู้เขียนคลาสการวิเคราะห์และการประมวลผลสตริง: เวลา Zeng Qingsong: 21/2/2547 (วันส่งท้ายปีเก่า, 2546) } อินเทอร์เฟซใช้ SysUtils, Classes; type IIterator = ฟังก์ชันอินเทอร์เฟซ hasNext (): บูลีน; ฟังก์ชั่นถัดไป (): string; end; type TSkyStringTokenizer = class (TComponent, IIterator) โทเค็นส่วนตัว: TStringList; ดัชนี: จำนวนเต็ม; ข้อมูล: สตริง; ตัวคั่น: สตริง; ขั้นตอน init (dataLine: string; delim: string); ฟังก์ชั่น CharacterInTokens (ch: string; const sl: TStringList): บูลีน; SplitString (แหล่งที่มา ch: สตริง): Tstringlist; ได้รับการป้องกัน { ประกาศที่มีการป้องกัน } สาธารณะ { ประกาศสาธารณะ } สร้างคอนสตรัคเตอร์ (dataLine: สตริง); โอเวอร์โหลด; สร้าง (dataLine: string; delim: string); โอเวอร์โหลด; destructor ทำลาย (); แทนที่;