Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Вниз
На первый взгляд вопрос простой... Найти похожие ветки
← →
Doom (2002-03-20 09:29) [0]Подскажите пожалуйста. На форме имеется несколько RichEdit Необходимо их все сохранить в один файл (TIniFile) Как это красивше сделать?
← →
Song (2002-03-20 10:09) [1]см. http://delphi.mastak.com/cgi-bin/forum.pl?look=1&id=1016603758&n=0 реплику tovSuhov © (20.03.02 09:51)
Как Вам?
У Вас XP, а если придётся запустить на 98-ом?
← →
Doom (2002-03-20 10:09) [2]Что никто не знает?
← →
VID (2002-03-20 11:40) [3]если тебе надо сохранить текст, находящийся в свойсте lines этих компонентов, без сохранения форматирования, то должен помочь компонент из пакета RXLib. Называется FORM STORAGE
← →
Doom (2002-03-21 06:33) [4]В том-то и вопрос что что нужно сохранить форматирование.
← →
Anatoly Podgoretsky (2002-03-21 07:28) [5]INI файл и форматирования не совместимы, INI файл это plainText
← →
Doom (2002-03-21 11:10) [6]Неужели для того чтобы сохранить несколько Rich Edit -ов, необходимо сохранять их в нескольких файлах? Это не подходит. Хорошо, тогда как можно получить форматированный текст Rich Edit -a в виде одной строки?
← →
Фэ (2002-03-21 11:25) [7]Удаляешь все переводы строк - ву-ля.
← →
Doom (2002-03-21 11:31) [8]2 Фэ
А вот и не Voila !
Потому что мне не текст просто нужно получить, а ф орматир ованный текст.
← →
Damblador (2002-03-21 12:22) [9]Попробуй создать экземпляр TMamoryStream, а затем содержимое всех RichEditов записать в него, ну а затем все это запиши в файл на диск.
← →
Doom (2002-03-21 12:25) [10]То есть сохранять Rich Edit не в файл а в поток? А не объясните чайнику как это сделать? А то идея интересная.
← →
Doom (2002-03-21 18:33) [11]И что? Никто так чайнику и не поможет?
← →
Набережных С. (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;
И не спрашивай, как читать - разбирайся сам.
← →
Doom (2002-03-22 08:15) [13]Спасибо, работает!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c
