掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列操作について (ID：18183)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やりたいことがわかっているのだから、その通りにやればいいだけです。 ↓ノリで書いたので、コンパイルが通るのかも、動くのかもテストしていません。 function HogeHoge1(aSubStr, aStr: String): String; var i: Integer; begin //例: aSubStr = 'a', aStr := 'abcdafff' Result := ''; //一個目の'a'を検索 i := Pos(aSubStr, aStr); //i:=1 if i > 0 then begin //一個目の'a'までを削除 //'abcdafff' -> 'bcdafff' Delete(aStr, 1, i + Length(aSubStr) - 1); //二個目の'a'を検索 i := Pos(aSubStr, aStr); //i=4 if i > 0 then begin //二個目の'a'までを削除 //'bcdafff' -> 'fff' Delete(aStr, 1, i + Length(aSubStr) - 1); Result := aStr; end; end; end; function HogeHoge2(aSubStr, aStr: String): String; var i: Integer; begin //例: aSubStr = 'c', aStr := 'abcdafff' Result := ''; //'c'を検索 i := Pos(aSubStr, aStr); //i:=3 if i > 0 then begin //'c'以降を削除 //'abcdafff' -> 'ab' Delete(aStr, i, Length(aStr)); Result := aStr; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.