| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stream [D6, Win2k]

SeF ©   (2002-05-05 08:05:00) 

Здраствуйте!
код:

procedure TForm1.Button2Click(Sender: TObject);
var
//fs:tfilestream;
fs:tmemorystream;
i:string;
ii:integer;
begin
fs:=tmemorystream.Create;
//fs:=tfilestream.Create("c:\1.1",fmCreate);
i:=edit1.Text;
ii:=length(i);
fs.Write(ii,sizeof(integer));
fs.Write(i[1],ii);
fs.Position:=0;
i:="";
ii:=0;
fs.Read(ii,sizeof(integer));
fs.ReadBuffer(i,ii);{1}
//fs.Read(i,ii); {2}
edit2.Text:=i; {3}
fs.Free;
end;

что при 1, что при 2 в 3 появляется сообщение об ошибке http://seff.pisem.net/images/error.jpg(16 кб)
что здесь не так?

---

beginer   (2002-05-05 11:29:00) [1]

Программеры, если кто знаком с RxRichEdit, то подскажите, мона ли сделать вставляемую картинку обтекаемой текстом? и, если мона, то как? Премного благодарен :))

---

MBo   (2002-05-05 08:10:00) [2]

стоило обозначить строку хотя бы s - трудно же разбираться

setlength(i,ii);
fs.ReadBuffer( i[1],ii);

---

Наверх