Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

Спасибо, работает!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.036 c
1-142             Zool                  2002-03-21 22:53  2002.04.01  
Ошибка


1-202             interest              2002-03-20 08:55  2002.04.01  
Переменные сохранить, а при запуске вернуть


4-366             JAndrey               2002-01-31 01:18  2002.04.01  
Как сделать автозапуск при загрузке?


1-174             Dok_3D                2002-03-19 07:28  2002.04.01  
XML-файлы большого размера


1-128             oomneeq               2002-03-21 12:26  2002.04.01  
Как управлять включением TD32 Debug Info