Форум: "Основная";
Поиск по всему сайту: 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.042 c
1-214             Ivan_A                2002-03-20 01:26  2002.04.01  
Как притрупить форму?


1-137             Transaero             2002-03-19 12:04  2002.04.01  
Как возвести в степень отрицательное число?


3-25              xcb                   2002-03-05 18:30  2002.04.01  
HyTech


3-45              moor_38               2002-03-04 13:00  2002.04.01  
DBGrin


1-163             Max                   2002-03-22 08:32  2002.04.01  
Delphi 5 + W2k