すぱむ (ID:38387)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 本物はアセンブラだけど 機能的にはこんな感じ function PosEx(SubText,Text: String; Index: Integer): Integer; begin Delete(Text,1,Index-1); Result := Pos(SubText,Text); if Result <> 0 then Result := Result + Index - 1; end; Index で開始位置を指定できる