- 851 名前：デフォルトの名無しさん [2016/10/08(土) 11:11:57.43 ID:TrfpRvxJ.net]
- >>793 の続き。構造体(ユーザー定義変数)について。
引数に使った構造体を初期化しようとして、
Dim Shared BBB As TakaPearValSSL
Function AAA(AA As TakaPearValSSL) As Long
'Dim AA As TakaPearValSSL = BBB
'DimCk10.bas(18) error 4: Duplicated definition, AA in 'Dim AA As TakaPearValSSL = BBB'
AAA = 0
'Dim AA As TakaPearValSSL
'DimCk10.bas(17) error 4: Duplicated definition, AA in 'Dim AA As TakaPearValSSL'
'ReDim AA As TakaPearValSSL
'DimCk10.bas(20) error 62: Expected array, AA in 'ReDim AA As TakaPearValSSL'
'Dim AA As TakaPearValSSL = BBB
'DimCk10.bas(18) error 4: Duplicated definition, AA in 'Dim AA As TakaPearValSSL = BBB'
AA = BBB
End Function
なんてやったけど、Dim も ReDim もコンパイルが通らない。
LET文「AA = BBB 」が通ったので、使いもしない変数を用意しておいて、コピーするという手法を使うことになる。
QB の頃は、
Type で宣言したモジュール(ファイル)以外のモジュールでは引数に使えない
という制限があったはず。
Fotranの名前付き共通領域そのものの使い方しかできなかった。
だから、大域での使用が前提になってしまう。
|
 |
