ตัวอย่างในบทความนี้อธิบายการใช้ฟังก์ชันการแยกสตริงของ Delphi แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ วิธีการดำเนินการเฉพาะมีดังนี้:
ตัวอย่างนี้สามารถแยกสตริง s ออกเป็นหลายสตริงตามการแสดงตัวคั่นสตริง และเก็บไว้ในรายการสตริง rs รหัสเฉพาะมีดังนี้:
คัดลอกรหัสดังต่อไปนี้: ขั้นตอน SeparateTerms2(s:string;Separator:string;var rs:TStringList);
var
AStr: สตริง;
idx: จำนวนเต็ม;
ASubStr: สตริง;
เริ่ม
AStr := ตัดแต่ง;
ในขณะที่ Pos(Separator, AStr) > 0 ทำ
เริ่ม
idx := Pos (ตัวคั่น, AStr);
ASubStr := คัดลอก (AStr, 1, idx - 1);
rs.เพิ่ม(ASubStr);
AStr := คัดลอก(AStr, idx + 1, ความยาว(AStr));
จบ;
ถ้า AStr+'a' <> 'a' แล้ว rs.Add(AStr); //ถ้ามีสตริงเหลืออยู่ ให้เก็บไว้ในรายการสตริง
จบ;
ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม Delphi ของทุกคน