Скачать: CL | DM;

На первый взгляд вопрос простой...   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



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