ฟังก์ชั่นแยกใน Delphi

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-03-14 20:00:04

// แยกสตริงตามสตริงซึ่งเทียบเท่ากับฟังก์ชันแยกใน VB

ฟังก์ชั่น splitstring (แหล่งที่มา const, ch: string): tstringlist;

วาจา

อุณหภูมิ: สตริง;

ฉัน: จำนวนเต็ม;

เริ่ม

ผลลัพธ์: = tStringList.create;

// ถ้าเป็นสตริงว่างให้กลับไปที่รายการว่าง

ถ้า source = ''

จากนั้นออก;

อุณหภูมิ: = แหล่งที่มา;

i: = pos (ch, แหล่งที่มา);

ในขณะที่ฉัน <> 0 ทำ

เริ่ม

result.add (Copy (Temp, 0, I-1));

ลบ (อุณหภูมิ, 1, i);

i: = pos (ch, temp);

จบ;

result.add (อุณหภูมิ);

จบ;