Delphi 文字列区切り関数の使用例

この記事の例では、Delphi の文字列分離関数の使用方法について説明します。皆さんの参考に共有してください。具体的な実装方法は以下の通りです。

この例では、文字列 Separator の表現に従って文字列 s を複数の文字列に分割し、rs 文字列リストに格納できます。具体的なコードは次のとおりです。

次のようにコードをコピーします。procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList);

変数

AStr: 文字列;

idx: 整数;

ASubStr: 文字列;

始める

AStr := トリム;

while Pos(Separator, AStr) > 0 do

始める

idx := Pos(セパレータ, AStr);

ASubStr := Copy(AStr, 1, idx - 1);

rs.Add(ASubStr);

AStr := Copy(AStr, idx + 1, 長さ(AStr));

終わり;

if AStr+'a' <> 'a' then rs.Add(AStr) // 文字列が残っている場合は、文字列リストに格納します。

終わり;

この記事が皆さんの Delphi プログラミングに役立つことを願っています。