くだすれDelphi(超初心者用)その48
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
100:Delﾌｻｷﾞｺ ◆A6VzDeLphI 08/11/14 00:02:20 >>98さん ∧,,∧ こんな感じかしら ミﾟДﾟ,,彡 ﾐ(旦⊂ ﾐ 操作なので。 (~,,(~,,,ミ〜 これ動かして慣れてみてください。 procedure TForm6.Button1Click(Sender: TObject); var i: Integer; j: Integer; s: String; begin for i := 0 to Memo1.Lines.Count - 1 do begin s := Memo1.Lines.Strings[i]; for j := 1 to Length(s) do begin s[j] := '*'; //読み出しだけならこんな書き方もできたり。 // s := s + Memo1.Lines[i][j]; end; Memo1.Lines[i] := s; end; end; 101:98 08/11/14 00:32:08 >>100 助かりました。 ありがとうございます！ おかげで色々と操作ができまして懸念が1つ解消されました。 102:87 08/11/14 09:25:46 >>88 ご回答ありがとうございます。やってみます 103:デフォルトの名無しさん 08/11/14 11:16:40 >102 えぇ、 普通にRandomで、出てきた数字を覚えておいて重複したら却下すれば良いだけじゃないの？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4250日前に更新/151 KB
担当:undef