文字列領域が不足


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」でエラーメッセージが表示されます。

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


岡田 之仁  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以下でしたので・・・


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加