Сохранить содержимое memo с форматированием

[meklias]

Вопрос по компоненту memo,
как сохранить содержимое memo, не просто текст, а полностью. т.е. (шрифт и цвет текста, цвет самого memo и сам текст разумеется)).)
чтоб просто текст сохранить есть такоей код.
Memo1.Lines.SaveToFile('1.txt');
а загрузить текст:
Memo1.Lines.LoadFromFile('1.txt');
а как с другим? цвет, шрифт и т.д. помпгите пожалуйста.

[evg_m]

а как с другим? цвет, шрифт и т.д. помпгите пожалуйста.
например так

Memo.Lines.add('#FONT-COLOR=clRed');
memo.lines.Add('#FONT-SIZE=10');
Memo.lines.Savetofile

Мемо.Lines.Loadformfile
if memo.lines.strings[n][1]='#' then DecodeLine;

[meklias]

Сообщение от evg_m

а как с другим? цвет, шрифт и т.д. помпгите пожалуйста.
например так

Memo.Lines.add('#FONT-COLOR=clRed');
memo.lines.Add('#FONT-SIZE=10');
Memo.lines.Savetofile

Мемо.Lines.Loadformfile
if memo.lines.strings[n][1]='#' then DecodeLine;

почему здесь выдаёт ошибку??
Мемо.Lines.Loadformfile

[_SERGEYX_]

Вообще-то, для этого придуман RichEdit и формат rtf.

[meklias]

Сообщение от _SERGEYX_

Вообще-то, для этого придуман RichEdit и формат rtf.

спасибо. немного теперь другая проблема.

if memo1.lines.Strings[n][1]='#' then DecodeLine;

где [n] выдаёт ошибку. я понял что в var прописать n надо, пишу
n:string; он здесь значит выдаёт ошибку(((

[phomm]

N это ведь номер строки, должно быть целым числом. если Вы хотите считать какие-то строки на предмет наличия в них каких-то кодов (типа #) то надо в цикле считывать, где номер строки это будет переменная цикла, сам цикл от 0 до lines.count-1 , ну а если гарантированно строки с кодами - последние, то считываете так: lines[lines.count-1] - последняя строка lines[lines.count-2]- предпоследняя и т.д.

[meklias]

причём тут строки?
мне просто надо сохранить содержимое memo.
"сам текст, шрифт и цвет текста, и цвет самого memo",
как просто текст сохранить знаю, а как всё полностью нет.
помогите кто знает. скиньте код или расскажите!
заранье спасибо.

[Аватар]

Memo.lines.Savetofile и Мемо.Lines.Loadformfile имеют текстовій параметр, задающий имя файл (желательно с полным путем, иначе можно концы не найти куда пишется или откуда читается)

[Человек_Борща]

Вот тебе пример для для присвоения цвета текста мемо :

procedure TForm1.Button3Click(Sender: TObject);
const
  c = '#Color="';
var
  s: string;
begin
  //Строка  #Color="clRed"
  s := Edit1.Text;
  if AnsiPos(c, s) > 0 then
  begin
    //удалем первую часть #Color="
    Delete(s, AnsiPos(c, s), Length(c));
    if AnsiPos('"', s) > 0 then
    begin
      //ищем закр ковычку..  "
      Delete(s, AnsiPos('"', s), Length('"'));
      Memo1.Font.Color := StringToColor(s); //присвайваем цвет
      // ShowMessage(s);
    end;
  end;
end;

Надеюсь смысл ясен.
Отрезаем пурвую часть, далее ищем последнюю, результат присвайваем.

остальсь добавить TStringList + цикл For..to..do, и удаление этих строк из файла перед выводом в мемо.
т.е. получается вся работа сводится к циклу StringList'у(посреднику) и показаннм мною примером.

А дальше сами.... ручками и головой. функции Copy.AnsiPos,Delete вам в помощь....

[meklias]

всем спасибо)