Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизНа первый взгляд вопрос простой... Найти похожие ветки
← →
Набережных С. (2002-03-21 19:59) [12]
var
M:TMemoryStream;
F:TFileStream;
n:integer;
begin
n:=3; //кол-во RichEdit
F:=TFileStream.Create("MyFile.xxx",fmCreate);
try
M:=TMemoryStream.Create;
try
F.Write(n,SizeOf(n));
RichEdit1.Lines.SaveToStream(M);
M.Position:=0;
n:=M.Size;
F.Write(n,SizeOf(n));
F.CopyFrom(M,n);
M.Size:=0;
RichEdit2.Lines.SaveToStream(M);
M.Position:=0;
n:=M.Size;
F.Write(n,SizeOf(n));
F.CopyFrom(M,n);
M.Size:=0;
RichEdit3.Lines.SaveToStream(M);
M.Position:=0;
n:=M.Size;
F.Write(n,SizeOf(n));
F.CopyFrom(M,n);
M.Size:=0;
finally
M.Free;
end;
finally
F.Free;
end;
end;
И не спрашивай, как читать - разбирайся сам.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c