Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

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, то подскажите, мона ли сделать вставляемую картинку обтекаемой текстом? и, если мона, то как? Премного благодарен :))

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c