Сохранить строку в поток

[RIO]

Здравствуйте! Подскажите пожалуйста как можно сохранить строку в поток. Если строка записана в мемо, то можно через сейвтустрим, а если строка записана в переменной?

[Пепел Феникса]

Stream.Write(s[1],Length(s));
тока советую сохранять длину строки...иначе потом фиг прочтете(разве что строка последняя)

[RIO]

Спасибо

Еще вопрос.

Я записал строку в поток, и пытаюсь вывести ее теперь в мемо. Почему-то не работает данным методом:

Stream.Write(S[1], Length(S));
Memo1.Lines.LoadFromStream(Stream);

[Stilet]

Рекомендую для строк использовать соответствующий класс работы с потоком:

var s:string;m:TStringStream;
begin
 s:='12313123';
 m:=TStringStream.Create(s);
 Memo1.Lines.LoadFromStream(m);
 m.Free;
end;

[RIO]

О ! Все правильно. Спасибо, не знал о данном классе

[mihali4]

Класс TStringStream

Так как строковые константы и переменные широко применяются при разработке приложений, то для удобства работы с ними создан специальный класс TStringStream. Он обеспечивает хранение строки и доступ к ней во время выполнения приложения.
Он обладает стандартным для потоков набором свойств и методов, добавляя к ним еще несколько, упрощающих использование строк.
Свойство только для чтения

property DataString: string;

обеспечивает доступ к хранимой строке. Методы

function Read(var Buffer; Count: Longint): Longint; override;

И

function Write(const Buffer; Count: Longint): Longint; override;

реализуют обычный для потоков способ чтения и записи строки для произвольной переменной Buffer.
Метод

function ReadString(Count: Longint): string;

обеспечивает чтение count байтов строки потока, начиная с текущей позиции.
Метод

procedure WriteString(const AString: string);

дописывает к строке строку AString, начиная с текущей позиции.
При работе с файлами и потоками используются дополнительные классы исключительных ситуаций.
Класс EFCreateError возникает при ошибке создания файла, a EFOpenError — при открытии файла.
При чтении/записи данных в поток могут возникнуть исключительные ситуации EReadError И EWriteError.
Их нужно обрабатывать.

Может быть вам это будет интересно, но в основном я - для тех, кто сумеет воспользоваться поиском и сможет почерпнуть полезное для себя, не создавая "зеркальной" темы...

[RIO]

И вам спасибо Хорошая информация

Я еще добавлю Может кто-то не поймет, как считывать поток в строку.

Так вот:

Stream := TStringStream.Create('');
S := Stream.ReadString(Stream.Size);
Stream.Free;

[recod]

Считать строковый поток в строку можно немного проще :

Stream := TStringStream.Create('');
S := Stream.DataString;
Stream.Free;