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, с методом записи строк.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 583 • TDictionary Custom Sort 6 599 • Fast Watermark Sources 6 369 • 3D Designer 9 319 • Sik Screen Capture 6 703 • Patch Maker 7 084 • Айболит (remote control) 7 088 • ListBox Drag & Drop 5 955 • Доска для игры Реверси 97 496 • Графические эффекты 7 290 • Рисование по маске 6 584 • Перетаскивание изображений 5 457 • Canvas Drawing 5 826 • Рисование Луны 5 537 • Поворот изображения 5 058 • Рисование стержней 3 623 • Paint on Shape 2 864 • Генератор кроссвордов 3 750 • Головоломка Paletto 3 019 • Теорема Монжа об окружностях 3 828 • Пазл Numbrix 2 519 • Заборы и коммивояжеры 3 219 • Игра HIP 2 186 • Игра Go (Го) 2 117 • Симулятор лифта 2 499 • Программа укладки плитки 2 149 • Генератор лабиринта 2 633 • Проверка числового ввода 2 303 • HEX View 2 635 • Физический маятник 2 255