掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列から計算させるには？ (ID:3690)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>> Delphiの文字列型は、配列のように使う(Str[1]など)こともできるので、 > そんなことできるのですか？ Anothor HTML Lintを実行し、その出力文字列の最後の行から、 点数を抜き出します。(おとといつくったばっか) e,sはInteger。ResultLabel.Captionには最終行の文字列 PlaySoundはうちにあるTPlaySoundコンポーネント。 // 点を検索、点数を取得 e := Pos('点',ResultLabel.Caption); // 終了位置を取得 Dec(e); s := e; while ResultLabel.Caption[s] in ['0'..'9','-'] do Dec(s); // 数字ではなくなるまで、開始位置をデクリメント case StrToInt(Copy(ResultLabel.Caption,s,e - s + 1)) of 100 : PlaySound.Play('OnPerfect'); // 100点 70..99: PlaySound.Play('OnFully'); // 70点以上 30..69: PlaySound.Play('OnNormal'); // 30点以上 0..29 : PlaySound.Play('OnWrong'); // 30点未満 else PlaySound.Play('OnFailure'); // マイナス点 end; ほんとはeのときにエラー処理をちゃんとしておきましょう^^; (定義ファイルが見つからなかったりしたら、採点できないので)
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.