掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ある文字列に含まれる種類を調べるには？ (ID:12815)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function IsHoge(s1, s2: string): boolean; var tmp: TStringList; i: Integer; begin tmp := TStringList.Create; tmp.Sorted := True; tmp.Duplicates := dupIgnore; for i:=1 to Length(s1) do tmp.Add(s1[i]); s1 := tmp.Text; tmp.Clear; for i:=1 to Length(s2) do tmp.Add(s2[i]); s2 := tmp.Text; Result := (s1=s2); tmp.Free; end; procedure TForm1.Button1Click(Sender: TObject); var s1, s2: string; begin s1 := Edit1.Text; s2 := Edit2.Text; ShowMessage(BoolToStr(IsHoge(s1,s2),True)); end; なんてしてみたんですが、、、(泣)
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.