掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
全ての組み合わせを表示するには？ (ID:16278)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
えぃっ！ procedure TForm1.Button1Click(Sender: TObject); var i:Integer; str,Rstr:string; function PickUpStr(a,b:string):string; var q:integer; str2:string; begin for q:=1 to Length(b) do str2:=str2 + a + ',' + b[q] + #13#10; Result:=str2; end; begin str:=Edit1.Text; for i:=1 to Length(str)-1 do Rstr:=Rstr + PickUpStr(str[i],Copy(str,i+1,Length(str))); Memo1.Text:=Rstr; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.