Cara mengimplementasikan fungsi StringTokenizer dengan Delphi:
Kita tahu bahwa ada StringTokenizer di Java, yang sangat nyaman untuk pemrosesan string, tetapi fungsi ini tidak disediakan di Delphi. Saya merujuk ke versi Delphi dan versi C# bahasa Java untuk mengimplementasikan fungsi ini. Semoga dapat memberi Anda kemudahan. Semoga Anda bisa memberi saya lebih banyak nasihat. [email protected] unit SkyStringTokenizer; antarmuka {analisis string dan pemrosesan kelas: Zeng Qingsong Waktu: 21/2/2004 (Malam Tahun Baru, 2003) } menggunakan SysUtils, Kelas; fungsi selanjutnya (): string akhir; ketik TSkyStringTokenizer = kelas (TComponent, IIterator) token pribadi: TStringList; indeks: bilangan bulat; data: string; pembatas: string; prosedur init(dataLine: string; delim: string); fungsi CharacterInTokens(ch: string; const sl: TStringList): fungsi StringToCharArray(delim: string): fungsi TString; SplitString(sumber, ch: string): Tstringlist; protected { Deklarasi yang dilindungi } public { Deklarasi publik } membuat konstruktor (dataLine: string); kelebihan; konstruktor Buat(dataLine: string; delim: string);