この発言は
#00719　佐藤　充男　　　さんのRE:TStringListの拡張
に対するコメントです



#719

バグがあります(^^;
LoadFormStreamでバッファを消してないのでClearを追加してください。

>>// ストリームから読み込み
>>procedure TStringListEx.LoadFromStream(Stream: TStream);
　…
>>begin
>>  BeginUpdate;
>>  try
>>    TotalSize := Stream.Size - Stream.Position;
>>    LoadingSize := 0;
>>
    Clear;    // 入れ忘れ(^^;
>>    FillChar(ReadBuf, BufferSize + 1, #0);
>>    P := ReadBuf;

                              98/11/14(土) 10:59am  LDM03756 佐藤　充男

Original document by 佐藤　充男　　　氏 ID:(LDM03756)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。