【QBASIC互換!?】FreeBasic【GPL】

669 名前：デフォルトの名無しさん [2016/09/11(日) 00:14:57.06 ID:SHnp2qDQ.net] 同一サブルーチン内で、事前の配列宣言が必要かの動作試験。 Dim MomoStringSU As Integer MomoStringSU = 20 'Dim MomoString() As String ReDim MomoString(MomoStringSU) As String Astring= Str$(UBound(MomoString))+","+Str$(LBound(MomoString)) MessageBox(HWND,Astring,"Messagebox caption",MB_ICONINFORMATION) では、Dim 文がなくてもReDim文の実行が可能。 Dim, ReDim文を両方取り除くと、UBound(), LBound() 関数行がコンパイルできなくなる。 ReDim文をない状態、Dim分だけでは、UBound(), LBound() 関数値が -1, 0となる。 UBound(), LBound() 関数値の大小関係が反転するという現状を使って、未初期化である状態が検出可能と思われる。 Dim as Long AAAAlong Dim As String DataValString() AAAAlong = TestTest01(DataValString()) Dim BBBBlong As Long = TestTest01(DataValString()) と参照側で定義して、被参照側で Public Function TestTest01(DataValString() As String) as Long TestTest01=0 'Dim DataValString() As String: 'エラー 'Dim DataValString(20) As String: 'エラー ReDim DataValString(20) End Function とやったらば、被参照側でのDim文はコンパイルエラーで、ReDim文が使用可能。 このあたりまでやって、なんとか、システム情報取得ルーチン用サブルーチン、25個の書き換えの目安がたちました。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef