freepascal.ru

Суть вопроса: Необходимо добавлять строку за строкой, меняя ее стиль.
Строки добавляются, стили задаются. Но не так как хотелось бы. из двух строк меняется только последняя. В чем может быть проблема?

Код: Выделить всё

//Добавление текста
procedure AddText;
var
  n: integer;
begin
  n := MainForm.MemoRez.SelStart;
//добавляем в мемо еще строку
  MainForm.MemoRez.Lines[MainForm.MemoRez.Lines.Count-1] :=
    MainForm.MemoRez.Lines[MainForm.MemoRez.Lines.Count-1]+' '+text;

     // Читаем атрибуты
    MainForm.MemoRez.GetTextAttributes(n, fp);
  //Устанавливаем значения
  if Color<>'' then
    fp.Color :=ConvertHtmlHexToTColor(Color);
    Color:='';
  if Size<>'' then
    fp.Size := StrToInt(Size);
    Size:='';
  //Впихиваем в мемо указанные атрибуты
  MainForm.MemoRez.SetTextAttributes (n,Length(Text),fp);
    text:='';

  //Ставим курсор
  MainForm.MemoRez.SetFocus;
end;

проблема в определении "n"? что происходит если 3 строки добавить?

Разобрался уже. Немного не в ту сторону. Ну да ладно все равно спасибо.