FDELPHI 12
/RE:04508 RE:Streamの標準出力へのWrite

　こんにちは、十兵衛 さん

》次のように決め打ちで試せるコードを書いてみました。

ＯＫです。正常に終了できました。
このコードを私のソースの出力部分に組み込んでみましたら、無事にファイルの
取得が完了するようになりました。

ということで、何とか問題は回避する事ができましたが、原因の方はさっぱりわ
かりません。もう一度、問題の部分を掲載します。

    with Stream1 do begin
      Position := 0;
      for i:=0 to Size-1 do begin
        Read(bufChar,1);
        system.Write(bufChar[0]);
      end;
    end;

ここから以下のことを試して見ました。

・with を使わないコーディングにしてみる
→状況変わらず、EAccessViolation 発生
・ループを for i:=1 to Size-2 do begin としてみる
→取得できたファイルサイズは小さくなるが、EAccessViolation 発生
・system.Write(bufChar[1]); としてみる
→ファイルは当然取得できないが、EAccessViolation は発生せず
・Writeln(bufChar[0]); としてみる
→１バイトごとに改行が入ってしまうが、EAccessViolation は発生せず

う〜ん、なんとなく標準手続きの write が悪いような気がしてきました。
でも、そんなところにバグが潜んでいるのなら、すでに大問題になっているよう
な気がします。

ということで、なんか釈然としないまま、この件は解決という事になるかと思い
ます。みなさん、どうもありがとうございました。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき