掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBのInStr関数をdelphiで作るには (ID：8274)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
かつて VB のユーザでしたが忘れてしまったので http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_k06.htm の InStr() の例を参考にしてつくりました。 AnsiStrPos() を使うとコピーをしなくてすみます。 function InStr(StartPos:integer;const Str, SubStr:string):integer ;overload; var pStr,p:PChar; begin pStr := PChar(Str); p := AnsiStrPos(PChar(pStr+StartPos-1),PChar(SubStr)); if p = nil then result := 0 else result := p-pStr+1; end; function InStr(const Str, SubStr:string):integer ;overload; begin result := InStr(1,Str,SubStr); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(InStr('abcdefdefdef', 'def')); Label2.Caption := IntToStr(InStr(5, 'abcdefdefdef', 'def')); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.