TMemoryStream の動作について

解決

大仏グミ 2004-11-17 23:20:48 No: 11798 IP: [192.*.*.*]

TMemoryStreamについて
また、わからないことが出てきました.

フォームにメモとボタンを貼り付けて
以下のようにしてみたのですが、
Memoにはなにも表示されません。
TMemoryStram ってなんなのでしょう？
私にとっては非常に不思議なんですけど・・

procedure TForm1.Button1Click(Sender: TObject);
var
  MStream:  TMemoryStream;
  SList:  TStringList;
begin
  MStream := TMemoryStream.Create;
  SList   := TStringList.Create;
  try
    SList.Add('abcdefghijklmnopqrstuvwxyz');
    SList.Add('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
    SList.SaveToStream(MStream);
    Memo.Lines.LoadFromStream(MStream);
  finally
    MStream.Free;
    SList.Free;
  end;
end;

編集削除

大仏グミ 2004-11-17 23:28:59 No: 11799 IP: [192.*.*.*]

すみません。
こちらの方はわかりました。

うっかりミスですね。

MStream.Position := 0; ← これが必要
Memo.Lines.LoadFromStream(MStream);

にしなければならないんですね。

編集削除

大仏グミ 2004-11-17 23:29:44 No: 11800 IP: [192.*.*.*]

何度もすみません。
解決しました。

編集削除