for i:=inps.Size-1 downto 0 do
begin
inps.Read(b,1);
outps.Write(b,1);
end;
работает слишком медленно.
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > tMemoryStream -> tFileStream |
| Автор: eXz 23.10.2004, 19:39 |
| Надо как нибудь быстро переписать все что лежит в MemoryStream в FileStream. for i:=inps.Size-1 downto 0 do begin inps.Read(b,1); outps.Write(b,1); end; работает слишком медленно. |
| Автор: p0s0l 23.10.2004, 20:36 | ||
Попробуй всего одной строкой:
Может и не будет работать  , потому как не пробовал... |
| Автор: Dmitry V.Abramov 23.10.2004, 23:38 | ||||||
Будет. Но корректнее:
|