Алгоритмическая ошибка.помогите.

[LeoN]

Вот код и что выходит:

procedure TMForm.AddSoob(MTxt:string;REdit:TsRichEdit);
Begin
//Ñèñòåìà
 REdit.SelStart:=pos('[',MTxt)-1;
 REdit.SelLength:=pos(']',MTxt);
 REdit.SelAttributes.Color:=SysColor.ColorValue;
 REdit.SelAttributes.Size:=SysSize.Value;
 REdit.SelAttributes.Name:=SysFont.Text;
//Íèê
 REdit.SelStart:=pos(']',MTxt);
 REdit.SelLength:=pos(':',MTxt)-pos(']',MTxt)-1;
 REdit.SelAttributes.Color:=NikColor.ColorValue;
 REdit.SelAttributes.Size:=NikSize.Value;
 REdit.SelAttributes.Name:=NikFont.Text;
//Ñîîáùåíèå
 REdit.SelStart:=pos(':',MTxt);
 REdit.SelLength:=Length(MTxt)-pos(':',MTxt);
 REdit.SelAttributes.Color:=NikColor.ColorValue;
 REdit.SelAttributes.Size:=NikSize.Value;
 REdit.SelAttributes.Name:=NikFont.Text;
//Äîáàâëåíèå
 REdit.Lines.Insert(0,MTxt);
End;

[Virtson]

и что ? ......
как должно быть ?
какие были параметры ?

[pu4koff]

Может всеже сначала строку добавить в ричэдит, а потом только её форматировать?

[LeoN]

В строке должно быть 3 цвета:
[] один
от ] до : второй
после : - 3й
Местами менял, результат тот же.

[Alter]

Вот такой способ, работает 100%(если меджду "["и"]" не будет ":", то будет всё нормально):

Procedure AddStr(RE :TRichEdit; Txt :TCaption; Sys, Nik, Txtt :TFont);
var All :LongInt;
begin
 IF Txt='' Then Exit;
  All := Length(Re.Text);
 Re.Lines.Add(Txt);
 // Чего-то, например время
 Re.SelStart := Pos('[', Txt) + All;
 Re.SelLength := Pos(']', Txt) - (Pos('[', Txt)+1);
 Re.SelAttributes.Color := Sys.Color;
 Re.SelAttributes.Size := Sys.Size;
 Re.SelAttributes.Name := Sys.Name;
 Re.SelAttributes.Style := Sys.Style;
 // НИК
 Re.SelStart := Pos(']', Txt) + All;
 Re.SelLength := Pos(':', Txt) - (Pos(']', Txt)+1);
 Re.SelAttributes.Color := Nik.Color;
 Re.SelAttributes.Size := Nik.Size;
 Re.SelAttributes.Name := Nik.Name;
 Re.SelAttributes.Style := Nik.Style;
 // Текст
 Re.SelStart := Pos(':', Txt) + All;
 Re.SelLength := Length(Txt) - Pos(':', Txt);
 Re.SelAttributes.Color := Txtt.Color;
 Re.SelAttributes.Size := Txtt.Size;
 Re.SelAttributes.Name := Txtt.Name;
 Re.SelAttributes.Style := Txtt.Style;
end;

____________________________________________________