Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
TMemoryStream

Думайте о потоке памяти как о расположенном в памяти файле. Команды для работы с потоком очень похожи на команды для работы с файлами. (В действительности, это ближе к команде blockwrite.)

Вот "медленный" путь записи строки в поток:


for i := 1 to Length(s) do
  memstream.Write(s[i], 1);

Данный код пишет за один проход один символ строки. Просто и легко для понимания, но немного медленно в работе. Для ускорения процесса можно сделать так:


memstream.Write(s[1], Length(s));

Две строчки делают то же самое, они добавляют символы в поток. Если вы не делали никаких перемещений внутреннего курсора потока (seek), символы просто добавляются в конец.

Теперь, для соблюдения перевода каретки, вы должны добавлять эти спецсимволы сами:


memstream.Write(#13, 1);
memstream.Write(#10, 1);

Или вы можете использовать более изощренный метод:


procedure StreamWriteStr(var ms: TMemoryStream; s: string);
begin
  ms.Write(s[1], Length(s));
end;

procedure StreamWriteLnStr(var ms: TMemoryStream; s: string);
begin
  StreamWriteStr(ms, s + #13#10);
end;

Также, вы можете создать собственный класс-потомок TMemoryStream, с методом записи строк.

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.