Текущий архив: 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.02 c
