まずはソースから。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
function NP_CutFirst(var Str:string;SubStr:string):string; var aPos:integer; begin Result:=''; //------------------------------------------------------- // 文字位置を取得 //------------------------------------------------------- aPos:=Str.IndexOf(SubStr); //------------------------------------------------------- // Substrが見つからない場合 //------------------------------------------------------- if aPos=-1 then begin Result:=Str; Str:=''; exit; end; //------------------------------------------------------- // 分割処理 // 文頭にデリミタがある場合とそうでない場合に場合分け // 分割前半を取得 //------------------------------------------------------- if aPos=0 then Result:='' else Result:=Str.SubString(0,aPos); //------------------------------------------------------- // 分割処理 // 分割後半を取得 //------------------------------------------------------- Str:=Str.Remove(0,aPos+SubStr.Length); end; |
引数に分割対象の文字列と分割のマーカーとなる文字列を指定して呼び出します。
すると、戻り値にはマーカー前の文字列。呼び出した分割対象の文字列は
マーカーより後の文字列が入ります。
戻り値、呼出後の分割対象文字列にはマーカーは含まれません。