ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室

　　　　　　　　　＿＿＿＿＿＿＿＿＿
　 ∧,,∧　　／　こんなんつくーたよ。Memo1には「ってヨ」という文字が入る
　ミ,,ﾟДﾟ彡＜　
　ﾐつ　つ　＼　StringStreamなんてあるんだ。初耳。
～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　ＵＵ

procedure TForm1.Button1Click(Sender: TObject);
var
　MS1, MS2: TMemoryStream;
　SL: TStringList;
begin
　MS1 := TMemoryStream.Create;
　MS2 := TMemoryStream.Create;
　try
　　SL := TStringList.Create;
　　try
　　　SL.Text := '逝ってヨシ';
　　　SL.SaveToStream(MS1);

　　　MS1.Position := 2;
　　　MS2.CopyFrom(MS1, 6);

　　　MS2.Position := 0;

　　　Memo1.Lines.LoadFromStream(MS2);

　　finally
　　　SL.Free;
　　end;
　finally
　　MS1.Free;
　　MS2.Free;
　end;
end;