Stream

← →
SeF © (2002-05-05 08:05) [0]

Здраствуйте!
код:
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 кб)
что здесь не так?

← →
MBo © (2002-05-05 08:10) [1]

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

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

← →
beginer (2002-05-05 11:29) [2]

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

Stream Найти похожие ветки