Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c
