MemoryStream`e String değişkeni atıp geri çağırma
Program esnasında oluşturduğumuz TMemoryStream kontrolüne istediğimiz bir string değişkeni atıp istendiğinde geri almak için aşağıdaki yöntem kullanılabilir.
procedure TForm1.Button1Click(Sender: TObject);
var
SourceString: string;
MemoryStream: TMemoryStream;
begin
SourceString := `Hello, how are you doing today?`;
MemoryStream := TMemoryStream.Create;
try
// Write the string to the stream. We want to write from SourceString`s
// data, starting at a pointer to SourceString (this returns a pointer to
// the first character), dereferenced (this gives the actual character).
MemoryStream.WriteBuffer(Pointer(SourceString)^, Length(SourceString));
// Go back to the start of the stream
MemoryStream.Position := 0;
// Read it back in to make sure it worked.
SourceString := `I am doing just fine!`;
// Set the length, so we have space to read into
SetLength(SourceString, MemoryStream.Size);
MemoryStream.ReadBuffer(Pointer(SourceString)^, MemoryStream.Size);
Caption := SourceString;
finally
MemoryStream.Free;
end;
end;
