掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ある文字列と文字列を比較して、一致しているかどうかの確認方法は？ (ID:11961)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function HowManyMatch(s1,s2:string):integer; var i:integer; begin result := 0; for i := 1 to 4 do if StrScan(PChar(s1),s2[i]) <> nil then Inc(result); end; procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption := IntToStr(HowManyMatch('sfQZ','sSZY')); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.