掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Random関数のバグ？ (ID:17112)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function RandomStr(key: String): String; var i: Integer; begin Randomize; result := ''; for i := 0 to Random(6)+5 do Result := Result+key[Random(Length(key))+1]; end; ですね。result の初期化、および文字列のゼロ番目にアクセスしないように +1 をする必要があります。 また、Randomize は FormCreate などで１回だけ実行する方がベターです。 それから、標準関数のバグを気軽に口にしないようにしてください。プログラマは そういうことに非常に敏感です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.