文字列領域が不足

T_T 2005-04-25 02:32:49 No: 121228

こんにちは。

文字列型の配列を宣言しLOOP処理中にその領域に文字列を挿入しています。
あるところになると以下のメッセージが表示され処理が中断されます。
「文字列領域が不足しています。」

Dim strdata() as string
Dim i as integer

Redim strdata(0) as string
i = 1
Do
  Redim Preserve strdata(i) as string
  strdata(i) = "a"
  i = i + 1
  If i = 10000 Then
     Exit Do
  End If
Loop

iの値が10000になる前に「8192」でエラーメッセージが表示されます。

ＨＤ等の問題でしょうか？
教えて下さい。宜しくお願い致します。

岡田之仁 2005-04-25 05:10:27 No: 121229

環境に左右されているのでしょうか・・・

私のマシン環境では問題なく動作しました。
搭載メモリは、1GBあり、空き領域も375MBありました・・・

以上。

ガッ 2005-04-25 08:28:55 No: 121230

OS:WinXPHome(SP2)
Main Mem:512MB(実行時空き:140MBくらい)
Form1のLoad()イベントにコードをコピペして実験しましたが、何事もありませんでした。

しかし…良く見ると不思議なコードだなぁ…

T_T 2005-04-25 18:34:28 No: 121231

岡田さん、ガッさんありがとうございます。
環境に左右されるようですね・・・
空き領域は200MB以下でしたので・・・